Problem mit POS und COPY

[Trax]

bitte hab jemand erbarmen mit mir.

Ich hab es mit posEx probiert, aber das problem mit dem "rest"string konnte ich nicht lösen.

dann hab ich folgendes probiert:

Delphi-Quellcode:

While not EOF(txt) do
  begin
  ReadLN(Txt, temp);
  lang:=length(such);
  anf:=pos(such, temp);
   while anf <> 0 do
    begin
    result[i]:=copy(temp, anf, lang);
    anf:=pos(such, copy(temp, anf+1, lang));
    memo2.lines.add('Suche erfolgreich! Ich fand in Zeile '+inttostr(j)+' das Ergebnis '+result[i]);
    inc(i);
    end;
  inc(j);
  end;
end;

auch nichts

Mittlerweile bin ich bereit auch dafür zu bezahlen. ich hab sowas von keine ahnung mehr und eine riesige vorm kopf.

Ich überweise gerne was für ne richtige lösung, die lern ich dann und damit hats sich.