Hi NG.
Delphi 4 (update 3)
Ich habe mir als Test eine kurzes Programm geschrieben. Es wird eine Datei geöffnet, die im HEX-Editor nur 3 Zeichen 'abc' enthält. Mit Button1Click lasse ich mir schrittweise ein Zeichen anzeigen. Seltsamerweise zeigt es mir beim vierten Button1Click das Zeichen #16 an.
Warum?
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
s: String;
begin
SetLength(s, 1);
fs.Read(s[1], 1);
label1.Caption := s + ' ' + inttostr(ord(s[1]));
label2.caption := Inttostr(fs.Position);
label3.caption := inttostr(fs.size);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
fs := tFileStream.Create('d:\temp\zEnde.txt', fmOpenRead);
label2.caption := Inttostr(fs.Position);
label3.caption := inttostr(fs.size);
end;