Rio
Grünschnabel
Also ich möchte gerne in Delphi 4 TFilestream benutzen um eine Datei, deren Größe ich nicht kenne in einen string-Typ laden:
Mein Programm funktioniert aber so nicht:
procedure TMainForm.Button2Click(Sender: TObject);
var
fs: TFileStream;
s: string;
Len: longInt;
begin
s:='Hello';
fs:= TFileStream.Create('Temp.txt',fmOpenRead or fmShareDenyWrite);
try
fs.Read(Len,SizeOf(Len));
SetLength(s, Len);
fs.Read(PChar(s)^, length(s));
finally
fs.Free;
end;
Edit1.Text:=s;
end;
(Temp.txt ist als test total klein mit text)
Er sagt dann Fehlermeldung: zu wenig Arbeitspeicher
Kann mir jemand helfen
Mein Programm funktioniert aber so nicht:
procedure TMainForm.Button2Click(Sender: TObject);
var
fs: TFileStream;
s: string;
Len: longInt;
begin
s:='Hello';
fs:= TFileStream.Create('Temp.txt',fmOpenRead or fmShareDenyWrite);
try
fs.Read(Len,SizeOf(Len));
SetLength(s, Len);
fs.Read(PChar(s)^, length(s));
finally
fs.Free;
end;
Edit1.Text:=s;
end;
(Temp.txt ist als test total klein mit text)
Er sagt dann Fehlermeldung: zu wenig Arbeitspeicher
Kann mir jemand helfen
Zuletzt bearbeitet: