[delphi] zamiana cyfr

cześć

Próbuje zamienić cyfry w memo na ich odpowiedniki przezemnie przypisane tzn

11 zamienic na 2
444 zamienic na 8
itp

chciałem skorzystać z kodu

var S,zamien : String; I : Integer; begin S := Memo1.Lines.Text; for I := 1 to Length(S); do begin if S[i] = '11' then zamien := zamien + '2'; if S[i] = '444' then zamien := zamien + '8'; end; Memo1.SelText :=zamien; end;

ale nie zamienia nic :( czy ktoś może mi pomóc ??
Użytkownik ari123 edytował ten post 16 październik 2008, 14:53

---

Najprościej użyj stringreplace().

Memo1.SelText to zaznaczony tekst w memo.

skorzystałem ze stringreplace
S : String; NewStr, OldStr, NewStr1, OldStr1 : String; begin OldStr := '1'; NewStr := 'a'; edit1.text := StringReplace(edit1.text, OldStr, NewStr, []); end;

ale tych zmian w jednym edicie chcialbym zrobic wiecej tzn

np w edit1 mam tekst 1234567890 i chcialbym to zamienic na abcdefghi

to czy musze to robić tak??: ze tworze tyle zmiennych
S : String; NewStr, OldStr, NewStr1, OldStr1 : String; begin OldStr := '1'; NewStr := 'a'; OldStr1 := '2'; NewStr1 := 'b'; edit1.text := StringReplace(edit1.text, OldStr, NewStr, []); edit1.text := StringReplace(edit1.text, OldStr1, NewStr1, []); end;

czy jest na to inny sposób??

edit1.text := StringReplace(edit1.text, '1234567890', 'abcdefghi', []);
Użytkownik Kozack edytował ten post 16 październik 2008, 19:41

---

dziękuję za pomoc

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl