Entwickler-Ecke
Dateizugriff - Datei lässt sich nicht öffnen
Bronstein - Sa 28.01.12 14:10
Titel: Datei lässt sich nicht öffnen
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?
Delete - Sa 28.01.12 14:46
 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 ...
Delete - Sa 28.01.12 15:18
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.
jaenicke - Sa 28.01.12 15:27
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.
ThomasEi - Sa 28.01.12 16:55
könnte Dir dies weiter helfen
Delphi-Quelltext
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; |
jaenicke - Sa 28.01.12 17:01
Dass und warum das so nicht geht, haben wir doch schon geschrieben. :nixweiss: 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... :shock:
Delete - Sa 28.01.12 18:55
Delphi-Quelltext
1:
| with Memo1.Lines do LoadFromFile(FileName); |
Ich hoffe, das ist ein Scherz, wenn auch ein äußerst schlechter.
Martok - Sa 28.01.12 19:42
| Luckie hat folgendes geschrieben : |
Delphi-Quelltext 1:
| 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
1:
| with Memo1 do with Lines do LoadFromFile(FileName); |
'Tschuldigung, musste sein :mrgreen:
Sehr schön auch die komplett sinnfrei angelegte TempList. Also, Fazit: das machen was
jaenicke schreibt oder alternativ die TNT Unicode Controls verwenden ;)
Delete - Sa 28.01.12 22:53
| 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. :mrgreen:
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!