so ich glaub ich hab mal wieder ein bischen geshcummelt aberegal habe es so probiert
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
daten : WideString;
datei : TTntFileStream;
begin
openDialog1.Execute;
if fileexists(opendialog1.FileName) then begin
datei :=TTntFileStream.Create(opendialog1.FileName,fmOpenRead);
datei.ReadBuffer(daten,datei.Size);
Memo1.Lines.Add(daten);
TNTEdit1.Lines.Add(daten);
datei.free
end else ShowMessage('ERROR FILE NOT EXIST')
end;
aber das schint nicht so ganz zu klappen den er schreibt mir in die memos nix rein
aber imprinzip müsste es doch gehen wenn ich das ganze file einlesen will oder ?