Text in Datei suchen, Problem mit Absätzen

[Florian H]

Hi,

ich habe mich an folgendem Code bedient, um eine Textstelle in einem Text zu finden: http://www.swissdelphicenter.ch/de/showcode.php?id=847

Leider habe ich danach ein Problem mit der Anzeige der Stelle (ich lade dann den ganzen Text in ein Memo), denn die Funktion gibt als Result die Position zurück, an der das gesuchte Wort steht. Jedoch offensichtlich ohne die Absätze (#13) mitzuzählen. Denn wenn ich dann sowas mache (vereinfacht)

Delphi-Quellcode:

memo1.Lines.LoadFromFile('die datei die auch durchsucht wurde');
memo2.Text := copy(memo1.Lines.GetText, res-50,100);  // res = Rückgabewert der Fkt.

ist das alles etwas zu weit oben, ich glaube, es liegt an den absätzen.

Was kann man da machen?
Ich bin bei dem sicherlich hochoptimierten Suchcode noch nich ganz durchgestiegen und konnte deshalb selber nich viel machen ausser stundenlang sinnlos probieren -.-

grüße und thx
flo

[Florian H]

hmm weiß das niemand?