Hallo,
ich versuche die Datei im Anhang zu öffnen und auszulesen, ich bekomme es aber nicht hin. Habe es schon mit
TStringList
Memo.loadformfile
TFileStream

versucht.

Mit dem normalen Windows Editor kann ich die Datei öffnen!

Kann mir jemand helfen?

Bronstein hat folgendes geschrieben :

Hallo, ich versuche die Datei im Anhang zu öffnen und auszulesen, ich bekomme es aber nicht hin. Habe es schon mit TStringList Memo.loadformfile TFileStream versucht. Mit dem normalen Windows Editor kann ich die Datei öffnen! Kann mir jemand helfen?

Was heißt "lässt sich nicht öffnen"? Kommt eine Fehlermeldung?

Übrigens gibt es kein loadformfile ...

Das ist eine UTF-16 codierte Datei mit BOM. Die ersten zwei Byte sind FF FE. Wenn du sie mit den Ansi Methoden versuchst zu öffnen, wirst du nichts sehen, da die ersten Zeichen Steuerzeichen sind und das #0 Zeichen von Windows als Dateiendezeichen interpretiert wird. Es wird in einem Memo also nichts dargestellt.

Und da im Profil Delphi 6 steht, wirst du den Dateiinhalt erst einmal nach Ansi umwandeln müssen, da Delphi erst ab Delphi 2009 auch Unicode darstellen kann. Am einfachsten geht vermutlich ein TFileStream, dessen Inhalt du in einen PWideChar kopierst und dann nach Ansi umwandelst um am Ende einen AnsiString in das Memo zu packen.

könnte Dir dies weiter helfen

Delphi-Quelltext    ausgeblendet	markieren
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: procedure TForm1.Button1Click(Sender: TObject); var FileName: string; TempList: TStrings; begin TempList := TStringList.Create; try FileName:='C:\Test2.txt'; with Memo1.Lines do LoadFromFile(FileName); finally TempList.Free; end; end;

Dass und warum das so nicht geht, haben wir doch schon geschrieben. Und ich habe auch geschrieben wie es geht (einfacher wäre natürlich eine aktuelle Delphiversion, denn da geht der von dir gepostete Code):
TFileStream --> Datei hineinladen --> Inhalt in PWideChar kopieren --> in AnsiString konvertieren --> in Memo packen

Nebenbei:
Das with dort ist echt grausam. Ich finde die Verwendung von with an sich schon äußerst ungünstig, aber dann auch noch an der Stelle, wo dadurch noch mehr Zeichen geschrieben werden müssen...

Delphi-Quelltext    ausgeblendet	markieren
1: with Memo1.Lines do LoadFromFile(FileName);

Ich hoffe, das ist ein Scherz, wenn auch ein äußerst schlechter.

Luckie hat folgendes geschrieben :

with Memo1.Lines do LoadFromFile(FileName); Ich hoffe, das ist ein Scherz, wenn auch ein äußerst schlechter.

Genau, das geht natürlich so:

Delphi-Quelltext    ausgeblendet	markieren
1: with Memo1 do with Lines do LoadFromFile(FileName);

'Tschuldigung, musste sein


Sehr schön auch die komplett sinnfrei angelegte TempList. Also, Fazit: das machen was jaenicke schreibt oder alternativ die TNT Unicode Controls verwenden

Martok hat folgendes geschrieben :

Sehr schön auch die komplett sinnfrei angelegte TempList.

Aber man muss ihm zu gute halten, dass er sie auch wieder frei gibt.