Also, lade es folgendermaßen (ich weiß: sehr unsauber
):
Delphi-Quellcode:
liste := tstringlist.create;
//Auslesen der zu suchenden Wörter
liste.Sort;
for i:=0 to liste.Count-1 do begin
LCount := 0;
ltext1 := tstringlist.create;
//Laden Textdatei in eine StringList
LText1.LoadFromFile(form1.datenbank_geladen_datei);
Ltext := LText1.Text;
puffer_test := '<genre1>'+liste[i]+'</genre1>';
LPos := PosEx(puffer_test, LText, 1);
while (LPos > 0) do begin
inc(LCount);
LPos := PosEx(puffer_test, LText, LPos + 1);
end;
//Dann würde die Ausgabe folgen
Zitat:
wie lädst du die Datei in die Stringlist? Mit LoadFromFile?
Ja... ^^
Zitat:
Ist die Datei eventuell
Unicode?
Ehrlich gesagt: keine Ahnung... wie stelle ich das fest?