Ja anscheinend liegt es doch an den Umlauten.
Ich habe mal eine Testdatei hochgeladen.
Das geht nicht. TMemo hat keinen Inhalt:
Delphi-Quellcode:
if OpenDialog1.Execute then begin
memo1.Lines.LoadFromFile(Opendialog1.FileName);
end;
Das geht:
Delphi-Quellcode:
procedure TForm1.Button5Click(Sender: TObject);
var f:TFileStream;
Size:LongInt;
Buffer:Ansistring;
begin
if OpenDialog1.Execute then begin
try
F := TFileStream.Create(Opendialog1.FileName,fmOpenRead);
SetLength(Buffer,f.Size);
f.Read(Buffer[1],f.Size);
finally
F.Free;
end;
memo1.Lines.Text:=Buffer;
end;
end;
Auch die Umlaute sind korrekt Dargestellt
