Работа с текстом (замена подстроки)

[GAGARIN-NEW]

Имеется edit
Необходимо после нажатия на какойниить буттон найти в этом эдите некоторый текст и заменить его на ХТМЛ код
(Суть: вместо имени смайла надо вписать ХТМЛ код картинки этого смайла...)(Естественно что заменять нада будет не 1 смайл а 30 - 50...)

ХТМЛ код я сам намалюю а вот работать с текстом неумею (((
Подскажиет как организовать такую замену ???

ПОЖАЛУЙСТА ПАМАГИТЕ ! Всем благодарен !

[mihali4]

Найти - функция POS. Она дает позицию первого символа искомой подстроки.
Дальше выбираем символы до этой позиции, "присобачиваем" им в хвост "ХТМЛ код картинки этого смайла" и дополняем символами после искомой подстроки.
Полученную новую строку запихиваем в Эдит. Доступно объяснил?

[GAGARIN-NEW]

мм тероия канечно хорошо но код бы непомешал !
Я примерно в теории сам понимаю а вот функции и притмеры работы с текстом нет (
mihali4 напиши пожалста такую процедуру каторая бы искала определённый текст и заменяля его на мой (текст1 -> новый текст1;текст2 -> новый текст2)....
чтобы она находила текст среди всякого мусора в edit'е

Очень прошу

[mihali4]

А вот это - ручками, ручками... И про голову забывать не надо. Она - не только для того, чтобы ею кушать...
А такие примитивные задачки... и код готовый просить...
Ну надо же себя хоть немного уважать, а?

Да я бы с радостью сам сделал но вот незнаю функций работы с текстом !

А умные книжки умные люди на сайте для кого выложили?
Просто повыпендриваться хотели? Не-е-т - для вас, болезных.

[GAGARIN-NEW]

Да я бы с радостью сам сделал но вот незнаю функций работы с текстом !
!
!
!
как я бес этого смогу ????

[AlDelta]

function Pos ( const Needle, HayStack : string ) : Integer;
procedure Delete(var Source: string; StartChar : Integer; Count : Integer ) ;
procedure Insert(const InsertStr:string; var TargetStr: string; Position: Integer ) ;
function Length ( const SourceString : string ) : Integer;

Подробное описание и примеры работы с ними можно посмотреть в справке Делфи или здесь:
http://www.programmersclub.ru/delphibase

P.S.:Осталось только пошевилить головой и все получится.

[AlDelta]

procedure TForm1.Button1Click(Sender: TObject);
var list,base:TStringList;
    str:string;
    i,start:integer;
begin
        base:=TStringList.Create;
        list:=TStringList.Create;

        base.Add('[:hau:]');
        base.Add('[:hi-hi:]');
        base.Add('[:oh-oh:]');
        base.Add('[:wah-wah:]');

        for i:=0 to base.Count-1 do
        list.Add('<img src="/smile/sm'+IntToStr(i)+'.gif">');

        str:=Edit1.Text;
        for i:=0 to base.Count-1 do
        if Pos(base[i],str)<>0 then
        Begin
        start:=Pos(base[i],str);
        Insert(list[i],str,start);
        Delete(str,start+length(list[i]),length(base[i]));
        End;

        Edit2.text:=str;
        base.Free;
        list.Free;
end;

P.S.: Задумайся над словами mihali4'a

[GAGARIN-NEW]

Слушай давай без иронии ! я ничего такого не хотел ! а ещё до этой темы когда с тобой разговаривал просил ддать пару ссылок на умные книжки где разжовываются подробные мелочи но все почемуто молчали ... ладно замнём

Я задал вроде е такие уж и важные вапросы ... на те темы каторые не нашол в имеющихся справочниках и ясных ответах в всемогущеи имтернете

ALDelta спасибо щяс попробою пошевелить мозгами

[GAGARIN-NEW]

ALDelta спасибо ещё раз.
я вот пример написал свой =)

procedure TForm1.Button2Click(Sender: TObject);
var
text:string;
begin
text:=edit1.Text;
insert('%-%',text,Pos('xxx',Text));
Delete(text, Pos('xxx',Text ),Length('xxx'));
edit1.Text :=text;
end;

заменяет ххх на %-% но только 1 раз (( есть ли функция нахождения сколько таких слов находится в строчке (чтоб потом по её значению запустить цыкл...)

[Alex21]

function StringReplace(const S, //где выполняем замену
                           OldPattern, //что заменяем 
                NewPattern: string; // чем заменяем
  Flags: TReplaceFlags): string; { параметр показывает как выполнить замену: 
только первое вхождение OldPattern, или все вхождения OldPattern.}

Пример:

  text:=StringReplace(text,'%-%','XXX',[rfReplaceAll,rfIgnoreCase]);