Ja ok es war ja auch nur ne Idee, "wirkliche Sicherheit" ist das längst nicht, das weis ich auch. Wie gesagt eswear nur so ein Versuch.
Ich hab da nochmal ne Frage: ich kann nun eine Datei mit bestimmter Größe erstellen, wie wäre der Code wenn ich z.B. 10 mit der selben Größe erstellen wollte. Immoment kirege ich's i-wie nicht hin, bis jetzt habe ich folgendes :
Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
fs: TFileStream;
i : Integer;
begin
for i := 1 to 10 do
begin
fs := TFileStream.Create('d:\test%d.dat',[i] fmCreate);
try
fs.Size := 1024;
finally
fs.Free;
end;
end;
end.