ÿþ* -> Textdatei wird nicht vollständig geladen!

[viperen]

Hallo!

Ich versuche seit gestern abend ( :shock: ) eine Textdatei in ein Memofeld oder Stringlist zu laden... Leider ohne Erfolg!

Es wird immer nur "ÿþ" und dann das erste Zeichen aus der Datei angezeigt.

Könnt ihr mir bitte helfen?!

Danke!

PS: Datei hat *.txt Endung!

[Balu der Bär]

Es wäre sinnvoll wenn du uns einfach mal deinen Code wie du es bereits probiert hast zeigst.

Ansonsten ginge das doch einfach per Memo.Lines.LoadFromFile(Datei). :gruebel:

[DGL-luke]

Das ist ganz eindeutig das Symptom, wenn man Unicode-Text in ein ANSI-Format lädst.

Du brauchst also Unicdoe-fähige Komponenten.

[chaosben]

Zitat:

Zitat von viperen

PS: Datei hat *.txt Endung!

Das heißt nicht, das es auch ein Text-Datei ist. Das was du da schreibst, sieht mehr nach einer Datei aus, die Zeichen enthält, die man schlecht as Text darstellen kann. Wahrscheinlich ist in der Datei ein 0-Byte enthalten, was dazu führt, das deine Text-Komponente aufhört den Text darzustellen.

Öffne die Datei zu Spass doch mal mit einem Hexeditor. Wahrscheinlich wirst du dich wundern. :)

[viperen]

Also angefangen habe ich mit

Delphi-Quellcode:

Memo1.Lines.LoadFromFile('textdatei.txt');

dann kam

Delphi-Quellcode:

Stringlist.LoadFromFile('textdatei.txt');

anschließend

Delphi-Quellcode:

AssignFile(f,'textdatei.txt');
Reset(f);
repeat
  Readln(f,s);
  Memo1.Lines.Add(s)
until eof(f);
CloseFile(f);

und dann noch

Eine Stream erstellt mit der Textdatei.txt und dann

Delphi-Quellcode:

Memo1.Lines.LoadFromStream(Stream);

soo..

Gedacht habe ich mir vielleicht die Datei Zeichenweise auszulesen aber ich weiß nicht wie ich das machen soll.. :pale:

Zitat:

Zitat von chaosben

Zitat:

Zitat von viperen

PS: Datei hat *.txt Endung!

Das heißt nicht, das es auch ein Text-Datei ist. Das was du da schreibst, sieht mehr nach einer Datei aus, die Zeichen enthält, die man schlecht as Text darstellen kann. Wahrscheinlich ist in der Datei ein 0-Byte enthalten, was dazu führt, das deine Text-Komponente aufhört den Text darzustellen.

Öffne die Datei zu Spass doch mal mit einem Hexeditor. Wahrscheinlich wirst du dich wundern. :)

Ähmm.. es ist ein ganz normaler Text in der Datei...

Da ist am Anfang ein Datum, dann sind Dateinamen aufgelistet. Geöffnet habe ich Sie mit dem Windows Editor...

Zitat:

Zitat von DGL-luke

Das ist ganz eindeutig das Symptom, wenn man Unicode-Text in ein ANSI-Format lädst.

Du brauchst also Unicdoe-fähige Komponenten.

Und wie mach ich das?? Oder wo finde ich eine?

[DGL-luke]

Die Windows-API ist unicodefähig. Du müsstest dir also eine Textbox erstellen, in die kannst du dann unicode reinschreiben.

Ansonsten gibts noch die TNT-Controls. Ob die JVCL Unicode-fähig ist, weiß ich nicht.

[viperen]

Tatsächlich.. es sind 0 Bytes dazwischen..

Was soll ich nun tun?! Ist das wegen dem Unicode?

Rein aus Interesse: Wie kann ich denn überhaupt Dateien Zeichenweise auslesen?

[DGL-luke]

Zeichenweise?

Du kannst sie in einem Stream laden:

Delphi-Quellcode:

with TFileStream.Create('file.txt',fmOpenRead) do
while Position < Size do
  Read(c,sizeof(c));

Damit liest du jedes einzelne Zeichen der Datei file.txt nacheinander in die Char-Variable c ein.

[Klaus01]

Zitat:

Zitat von DGL-luke

Zeichenweise?

Du kannst sie in einem Stream laden:

Delphi-Quellcode:

with TFileStream.Create('file.txt',fmOpenRead) do
while Position < Size do
  Read(c,sizeof(c));

Damit liest du jedes einzelne Zeichen der Datei file.txt nacheinander in die Char-Variable c ein.

Vielleicht vorher noch die Position auf 0 setzen.

Grüße
Klaus

[r2c2]

Auf dem Weg wäre es auch möglich ohne TNT-Controls die Datei einzulesen. Einfach Byteweise vorgehen und #0, sowie die ersten 2 Bytes überlesen. Oder in n Widestring packen und den in ANSI-Konvertieren. Dabei gehen allerdings alle nicht-ANSI-Zeichen verloren. Besser also gleich Unicode-fähige Komponenten nehmen...

mfg

Christian