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. :oops: Ich weiß diese Art von Thema gab es hier im Forum schon öfters aber keines konnte mir da weiterhelfen.

[p80286]

Zitat:

Zitat von Balosh (Beitrag 1301344)

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.

Könntest Du "abschmieren" näher erläutern?
Wie auch schon in einem anderen aktuellen Thread diskutiert, kannst Du Dich eigentlich nicht darauf verlassen, daß alle "Textdateien" gleich kodiert sind. (egal ob ANSI,UTF8,UTF16 oder was auch immer)

Geh also noch einmal in Dich und versuche erneut Dein Problem zu beschreiben. der Sourcecode der zum "Abschmieren" führt wäre auch nicht schlecht!

Gruß
K-H

[himitsu]

TFile.ReadAllBytes, oder so, darauf TEncoding.GetBufferEncoding anwenden und das dann für's Speichern benuzten.

Oder du kopierst eben die Datei (TFile.Copy), anstatt sie sinnlos einzulesen und neu zu speichern,
bzw. liest sie zumindestens nicht in eine TStringList (welche das Encoding ändert), sondern ein Array oder einen Stream.

[Der schöne Günther]

Ich verstehe das Problem noch nicht so wirklich. Die Quelldatei kann ja kodiert sein wie sie mag. Hauptsache, du bekommest es vernünftig in den Speicher (TStrings, String-Array, was auch immer). Dann hast du einen Haufen Strings und kannst darin suchen wie es Spaß macht. Was hierbei abschmieren soll verstehe ich auch nicht.

[Balosh]

Zitat:

Zitat von himitsu (Beitrag 1301353)

Oder du kopierst eben die Datei (TFile.Copy), anstatt sie sinnlos einzulesen und neu zu speichern,
bzw. liest sie zumindestens nicht in eine TStringList (welche das Encoding ändert), sondern ein Array oder einen Stream.

An einen Stream habe ich noch gar nicht gedacht. Werde ich gleich mal ausprobieren danke hierfür.:thumb: