Hallo,
du kannst nicht beliebig viel Speicher auf dem Stack anfordern. Wozu brauchst du denn überhaupt die Variable Buf, wenn du lediglich einen bestimmten Teil der Quelldatei in eine eigene Datei kopieren willst?
Delphi-Quellcode:
with SaveDialog1 do
if Execute then
begin
FS := TFileStream.Create(OpenDialog1.Filename, fmopenreadwrite);
FS2 := TFileStream.Create(SaveDialog1.FileName, fmCreate);
FS.Position := StartEelite;
fs2.CopyFrom(fs, SizeEelite);
FS.Free;
FS2.Free;
memo1.Lines.add('gespeichert als ' + ExtractFilename(SaveDialog1.FileName));
end;
end;
Grüße vom marabu