Zitat von
Trax:
bitte hab jemand erbarmen mit mir.
[...]
Mittlerweile bin ich bereit auch dafür zu bezahlen. [...] Ich überweise gerne was für ne richtige lösung, die lern ich dann und damit hats sich.
Jau!
Wie oft willst du in Zukunft denn noch bezahlen??? Dann zahle jetzt Sharky etwas. Der hat schon eine Möglichkeit gepostet. Aber die lernst du nicht. Die kannst du nicht einmal ein- und umsetzen. Das ist allerdings auch völlig normal, wenn man sich mit den Dingen, die man schaffen möchte, nicht
selber vertraut macht. Ob du das nicht kannst oder nicht willst, vermag ich nicht zu beurteilen. Notwendig ist es in jedem Fall.
Ich bleibe also dabei: Es ist das kleine 1 x 1 der Stringbearbeitung, und das solltest du lernen.
Siehe meine Kommentare im Code (möglichst unverändert gelassen).
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); //Ist hier dasselbe wie result[i]:=such;
//Du schreibst dein array result[] voll mit such. Ich frage mal nicht, wieso ....
{anf:=pos(such, copy(temp, anf+1, lang)); } //Für die Tonne.
memo2.lines.add('Suche erfolgreich! Zeile '+inttostr(j)+' das Ergebnis '+result[i]);
delete(temp,1,anf+lang-1); //Hier wird alles bis zum gefundenen such (einschließlich) vorne
//von temp abgeschnitten
anf:=pos(such, temp); //Hier erneute Suche im Rest von temp.
inc(i);
end;
inc(j);
end;
end;