Ok hab es jetzt so.
Jetzt sieht das alles so aus:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute = true then
begin
lStream := tFileStream.Create(OpenDialog1.FileName, fmOpenRead);
Edit1.Text := OpenDialog1.FileName;
try
SetLength(Buffer , lStream.Size);
lStream.Read(Buffer[1], lStream.Size);
finally
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
lStream.Size := lStream.Size + 1024*1024*3;
Edit3.Text := IntToStr(lstream.Size);
Jetzt habe ich aber noch 2 Sachen.
1. Wofür genau bzw was genau bewirkt
Delphi-Quellcode:
SetLength(Buffer , lStream.Size);
lStream.Read(Buffer[1], lStream.Size);
2. Wenn ich das so jetzt starte und mir die Größe ausgeben will bekomme ich nen fehler das der Zugriff verweigert wurde.
Wenn ich aber nur
Edit3.Text := IntToStr(lstream.Size);
[/delphi]
Habe also ohne noch ws zu multiplizieren, dann kann ich mir die Größe ausgeben lassen.