Ich habe folgenden Code geschrieben, der auch problemlos jede Art von Datei einliest. Dabei gibt es bloß ein Problem: Wenn ich, anstatt buffer immer gleich an Memo1.Text anzuhängen, an eine String-Variable anhänge und diese später dem Memo zuweise, ergeben sich bei der Darstellung Unterschiede zur aktuellen Lösung. Kann mir das jemand erklären???
Code:
procedure TForm1.mnuOeffnenClick(Sender: TObject);
var
datei: file;
buffer: byte;
begin
if opendialog1.Execute then begin
memo1.Clear;
assignfile(datei,opendialog1.FileName);
reset(datei,1);
while not eof(datei) do begin
blockread(datei,buffer,1);
if buffer = 0 then buffer := 32;
memo1.Text := memo1.Text + chr(buffer);
end;
closefile(datei);
end;
end;