Zamiana znaków w memo...?

[lasek_99]

Chodzi mi, że w memo1.text mam ciąg znaków "%0" i chciałbym to zaminic na "
"...
Jaki kod za to by odpowiadał??

 

[chudy1993]

Mam coś takiego:

procedure TForm1.Button1Click(Sender: TObject);

var

  a,b : char;

  temp : string;

  ilosc,i,j : integer;

begin

  ilosc := Memo1.Lines.Count;

  for i :=1 to ilosc do

    for j:=1 to length(Memo1.Lines[i]) - 1 do

      begin

        temp := Memo1.Lines[i];

        a := temp[j];

        b := temp[j+1];

        if (a = '%') and (b = '0') then

          begin

            Insert('
', temp, j+2);

            Delete(temp, j, 2);

            Memo1.Lines[i] := temp;

          end;

      end;



end;

Tylko czasami muszę kilka razy klikać przycisk, żeby wszystko zamieniło na "
".

 

[lasek_99]

Oki dzięki działa. Masz pomógł!

 

[nitr0]

eeee nie łatwiej tak :

Memo1.text := StringReplace(Memo1.Text, '%0', '
', [rfReplaceAll]);

?

//troszeczkę odświerzyłem