Eingelesene Datei in Unicode

[Balosh]

Hi zusammen,

habe in Delphi ein Suchprogramm geschrieben, das in *.txt, *.pas Dateien nach Stichwörtern sucht diese in einen String reinspeichert und das Ergebnis dann in einer Listbox ausgibt. Mein Problem ist aber das in den *.txt Dateien auch Umlaute stehen und wenn ich nach diesen suche mir das Programm abschmiert da ja *.txt ANSI codiert sind. Meine bisherige Lösung war über den Befehl

Code:

SaveToFile()

und

Code:

TEncoding.Unicode

die Datei umzuschreiben und ab zu speichern. Dies würde ich gerne aber vermeiden und die Codierung der Datei lassen und nur temporär umzuwandeln zum durchsuchen.

Code:

slist.LoadFromFile(Path + Rec.Name);
            with slist do
            begin
              SaveToFile(Path + Rec.Name, TEncoding.Unicode);
            end;

Hat da jemand einen Vorschlag?

Gruß
Balosh

P.S. Bin schlecht im erklären von Problemen also sorry wenn mein Problem schelcht zu verstehen ist. Ich weiß diese Art von Thema gab es hier im Forum schon öfters aber keines konnte mir da weiterhelfen.