Hallo alle zusammen.
Ich habe ein kleines Problem.
Ich habe in einer whatever.txt file einen beliebigen text stehen.
Bsp:
"Alle meine Entcheeeeeeen
Schwimmen in einem Seeeeeeee"
Ich versuche nun aus dem Text alle e's rauszusuchen
mein code zeigt aber nur 2 gefundene e's in Zeile 1 und Zeile 2
ich hab keine ahnung wie ich es schaffe alle e's zu lesen
Habs mit einer schleife probiert, hat aber nicht geklappt
Der folgende source funktioniert... findet aber nur immer 1 string in 1 zeile
Kann mit da jemand unter die arme greifen?
Vielen Dank schonmal im voraus!
Delphi-Quellcode:
procedure TForm1.SuchButtonClick(Sender: TObject);
var
temp :string;
such :string;
result :array[0..100] of string;
i, j, anf, lang: integer;
begin
such:=edit1.Text;
Reset(Txt);
i:=0;
j:=0;
While not EOF(txt) do
begin
ReadLN(Txt, temp);
lang:=length(such);
anf:=pos(such, temp);
if anf <> 0 then
begin
result[i]:=copy(temp, anf, lang);
memo2.lines.add('Gefunden in Zeile '+inttostr(j)+');
inc(i);
end;
inc(j);
end;
end;