Ładny brzuch

Witam... wstyd sie przyzna ale nie wiem jak to zrobi przeszukalem teraz chyba cay polski internet i nie znalazlem tego co mnie interesuje.... chodzi mi o te, ze mam jakies zdanie i chc w zdaniu 'kot jest gupi' wyraz np. 'kot' zamienic na 'pies' jak to zrobic? no i ma wyjsc owkozz ze pies jest gupi.... nie mam pojecia czego uzyc :/ bardzo prosz o pomoc :blink:


StringReplace

ok, zrobiem tak i wstpnie dziaa : :D
procedure TForm1.Button2Click(Sender: TObject); var i:integer;  S : String;  NewStr, OldStr : String; begin  for i:=0 to listbox.items.count-1 do  begin  S:=listbox.Items[i];  OldStr := edit1.text;  NewStr := '';  S := StringReplace(S, OldStr, NewStr, [rfReplaceAll, rfIgnoreCase]);  listbox.Items[i]:=S;  end; end;

[EDIT] zmieniem bo ju mi dziaa :) dziekuje
Uytkownik eip edytowa ten post 17 luty 2006, 16:12
le parametr podae przy delete - powinno by Delete(i).
Tak wogle to nie rb Delete (bd bdy) precie wystarczy listbox.items[i] := S

RelpaceAll oznacza, e wszystkie wystpienia OldStr w S zostan zastpione NewStr.
Uytkownik Uno edytowa ten post 17 luty 2006, 16:10

procedure TForm1.Button2Click(Sender: TObject); var i:integer; S : String; NewStr, OldStr : String; begin for i:=0 to listbox1.items.count-1 do begin S:=listbox1.Items[i]; OldStr := edit1.text; NewStr := edit2.text; S := StringReplace(S, OldStr, NewStr, []); listbox1.Items[i]:=S; end; end;

Ja zrobiem tak i mi dziaa :excl:

hehe dziekuje :) pewnie jakbym nie zrobi wtka to bym dalej nie wiedzia :P pozdrawiam

for i := 0 to ListBox1.Items.Count - 1 do  ListBox1.Items[i] := StringReplace(ListBox1.Items[i], edit1.text, edit2.text, [rfIgnoreCase, rfReplaceAll]);

Dziaa bo sprawdzaem

Update:
Tak bdzie chyba szybciej
ListBox1.Items.Text := StringReplace(ListBox1.Items.Text, edit1.text, edit2.text, [rfIgnoreCase, rfReplaceAll]);
Uytkownik Uno edytowa ten post 17 luty 2006, 16:23
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •