Ĺadny brzuch
Mam memo z tekstem. Jak sprawdzić w której lini znajduje się np. wyraz Kamil?
O Boshe!!
var i:integer; begin for i:=0 to Memo1.lines.count-1 do begin if pos('Kamil',Memo1.Lines.strings[i])>0 then begin showmessage(Format('"Kamil" występuje w %d lini',[i])); break;//przerywamy petle end; end;
Użytkownik migajek edytował ten post 17 kwiecień 2005, 09:50
O Boshe!!
var i:integer; begin for i:=0 to Memo1.lines.count-1 do begin if pos('Kamil',Memo1.Lines.strings[i])>0 then begin showmessage(Format('"Kamil" występuje w %d lini',[i])); break;//przerywamy petle end; end;
A jeżeli wystepuje w kilku liniach? :P
Zmień wtedy break na continue.
Wtedy usuń break ;)
Wtedy usuń break ;)
to wtedy bym przerobil na dynamiczna array of integer, bo jesli ktos chce miec w zmiennych numery to w i zostanie tylko ostatnio znaleziona (jesli jest break) - a tak mozna by zapisac wszystkie :)
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
O Boshe!!
var i:integer; begin for i:=0 to Memo1.lines.count-1 do begin if pos('Kamil',Memo1.Lines.strings[i])>0 then begin showmessage(Format('"Kamil" występuje w %d lini',[i])); break;//przerywamy petle end; end;
Użytkownik migajek edytował ten post 17 kwiecień 2005, 09:50
O Boshe!!
var i:integer; begin for i:=0 to Memo1.lines.count-1 do begin if pos('Kamil',Memo1.Lines.strings[i])>0 then begin showmessage(Format('"Kamil" występuje w %d lini',[i])); break;//przerywamy petle end; end;
A jeżeli wystepuje w kilku liniach? :P
Zmień wtedy break na continue.
Wtedy usuń break ;)
Wtedy usuń break ;)
to wtedy bym przerobil na dynamiczna array of integer, bo jesli ktos chce miec w zmiennych numery to w i zostanie tylko ostatnio znaleziona (jesli jest break) - a tak mozna by zapisac wszystkie :)