[Delphi7]ReplaceString - problem

Mam problem z funkcją ReplaceString. Po prostu nie chce mi poprawnie działać :cry: Albo ja coś pominąłem :) To wygląda tak: mam Memo1, Memo2 i Button1. Pod Buttona podpiąłem procedurę:

procedure TForm1.Button1Click(Sender: TObject);
var
temp : string;
source : string;
begin
source := Memo1.Lines.Text;
temp := StringReplace(source, 'm', 'b', [rfReplaceAll]);
temp := StringReplace(source, 'a', 'm', [rfReplaceAll]);
temp := StringReplace(source, 'b', 'a', [rfReplaceAll]);
Memo2.Lines.Text := temp;
end;

Dajmy przykład, że do Memo1 wpiszę ciąg znaków ma. Po wciśnięciu Buttona1, w Memo2 powinienem uzyskać am. Prześledziłem tok poczynań programu i według niego powinienem otrzymać to, co chcę:

1. Najpierw m zamieniam na b - w zmiennej temp otrzymuję ba.

2. Później a zamieniam na m - w zmiennej temp otrzymuję bm.

3. I na koniec b zamieniam na a - w zmiennej temp otrzymuję am.

Jaki kod jest potrzebny do otrzymania tego, co potrzebuję?. Proszę o pomoc. Z góry thx.

Najlepiej uczyć się na własnych błędach.
GG#: 4391798 E-mail: krzema12@wp.pl

---

a co otrzymujesz?

Zapraszam na moją stronkę:http://www.migsoft.prv.pl

a juz chyba wiem zamiast StringReplace(source... powinno byc StringReplace(temp...

Zapraszam na moją stronkę:http://www.migsoft.prv.pl

Ach no i oczywiscie temp:=Memo1.Text ... spiacy jestem ;)

Zapraszam na moją stronkę:http://www.migsoft.prv.pl

---

Dzięki za pomoc migajek! Już mi się udało!

Najlepiej uczyć się na własnych błędach.
GG#: 4391798 E-mail: krzema12@wp.pl

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl