[Delphi] Znajdź nastęny

Czy zna ktoś procedurę czy funkcję która wyszuka mi następny
wyraz np. Kot w memo czy Richedit?

var wyniki : array of TPoint;
str: string;
x,i,a:integer;
begin
a:=1;str:='Me';
For i:=0 to memo1.lines.count-1 do
begin
x:=pos(str,memo1.lines[i]);
IF x!=0 then
begin
setlength(wyniki,a);
INc(a);
wyniki[a].x:=i; //linia
wyniki[a].y:=x; // miejsce w lini
end;
end;
end;

i w ten spobob masz w tablicy wyniki prawie wszystkie wyniki ;p

Czy zna ktoś procedurę czy funkcję która wyszuka mi następny
wyraz np. Kot w memo czy Richedit?

W Delphi 7 masz chyba coś takiego jak PosEx.
Jeżeli nie masz takiego to zrób tak:
function PosEx(SubStr, S: string; Position: Integer): Integer;
<font color="darkblue">{Position - pozycja w tekście numerowane od 1}</span>
begin
Delete(S, 1, Position);
Result := Pos(SubStr, S) + Position;
end;

--
Jest jeszcze jeden błąd ... :)
--------Oficjalny kanał----------
Service for programmers w IRC:
Kanał: #4programmers
Serwer: warszawa.ircnet.pl
Sieć: POLNet
Port: 6667

Dzięki. Werw0e if x!=0 - to raczej C++.

Werw0e if x!=0 - to raczej C++.

ta ale normalne wpisywanie tych mniejszcze wieksze nie dziala ;]
wiec tak jest cool bo wszystko widac ;]

--
E=m*c^2

Ile razy mam pisać?
& l t ; da w wyniku <
& g t ; da w wyniku >

--
Jest jeszcze jeden błąd ... :)
--------Oficjalny kanał----------
Service for programmers w IRC:
Kanał: #4programmers
Serwer: warszawa.ircnet.pl
Sieć: POLNet
Port: 6667