Datei lesen schlägt fehl

skriiva · Beiträge: 17

Hallo zusammen !

Ich greife auf eine Datei des Typ File of char zu. Diese wird erkannt jedoch kommen beim Lesen die Probleme. Die ausgegeben Zeichen sind einfach nur Quadrate. Ich weiß leider nicht was das für Ursachen haben könnte. In der Datei stehen 3 Wörter.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

CharFile = File of char;

var data:CharFile;

procedure ReadData(var text:String; var source:CharFile);
var dummy:Char;   
  begin
    reset(source);
    text:='';

    while not EOF(source) do
     begin
      read(source, dummy);
      text:=text + dummy;
     end;
  end;

Gausi · Verfasst: Sa 17.04.10 19:57

Verwendest du Delphi 2009 oder 2010? Da ist ein Char nämlich zwei Byte groß. Wenn das eine "normale" Ansii-Textdatei ist, werden dadurch dann je zwei Zeichen zu einem (meist) ostasiatischen Zeichen verwurstet, das dann als Quadrat angezeigt wird, wenn die Schriften nicht installiert sind.

Arbeite lieber mit Streams. Die sind am Anfang zwar etwas komplizierter, aber weitaus flexibler. ;-)

Ob hier die Ersetzung Char durch Ansichar was bringt, weiß ich nicht. Kann aber auch gut sein.

_________________
We are, we were and will not be.

skriiva · Beiträge: 17

Wow Super ! Genau das war das Problem. Ich habe mich informiert und Char durch AnsiChar ersetzt und die Typcasting mit AnsiChar(). Danke nochmal !

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme