Datei lässt sich nicht öffnen

Bronstein · Verfasst: Sa 28.01.12 13:10

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?

Einloggen, um Attachments anzusehen!

_________________
Es gibt keine dummen Fragen nur dumme Antworten!!!

Ehemaliges Mitglied Erhaltene Danke: 1

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 ...

Ehemaliges Mitglied Erhaltene Danke: 1

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 · Verfasst: Sa 28.01.12 14: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 · Verfasst: Sa 28.01.12 15:55

könnte Dir dies weiter helfen

markieren

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 · Verfasst: Sa 28.01.12 16: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:

Ehemaliges Mitglied Erhaltene Danke: 1

markieren

Delphi-Quelltext

1:	with Memo1.Lines do LoadFromFile(FileName);

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

Martok · Verfasst: Sa 28.01.12 18:42

Luckie hat folgendes geschrieben :

markieren

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:

markieren

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 user profile icon

jaenicke schreibt oder alternativ die TNT Unicode Controls verwenden

_________________
"The phoenix's price isn't inevitable. It's not part of some deep balance built into the universe. It's just the parts of the game where you haven't figured out yet how to cheat."

Martok · Ehemaliges Mitglied Erhaltene Danke: 1

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:

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme