Hi sniffy,
lade den Inhalt einer
HTML-Datei in ein Memo. Dann kannst du mit
Pos('cd_', Memo1.Text)
automatisch das gesamte Memo durchsuchen.
Beispiel:
Delphi-Quellcode:
function DurchsucheHTMLDatei(DateiName: String): Boolean;
var
MeinMemo: TMemo;
begin
MeinMemo := TMemo.Create(nil);
try
MeinMemo.Lines.LoadFromFile(DateiName);
Result := (Pos('cd_', MeinMemo.Text) +
Pos('ld_', MeinMemo.Text)) > 0;
finally
MeinMemo.Free;
end;
end;
Wichtig: Die Funktion ist nicht geschwindigkeitsoptimiert. Das andauernde Erstellen und Freigeben des Memos kostet Zeit und Speicher. Du solltest alles vereinen, d.h. Memo erstellen, Datei laden, durchsuchen, Memo löschen (MeinMemo.Lines.Clear), Datei laden, ..., Memo freigeben.
Greetz
alcaeus