Dat wat Paul-Jan opgaf heb ik uitgewerkt:
Code:
procedure TForm1.BitBtn1Click(Sender: TObject);
var target: TFileStream;
targetname: string;
MyZero: char;
begin
targetname := 'c:\filler.bin';
target := TFileStream.Create( targetname, fmCreate or fmOpenWrite);
try
target.Size := 300000000; //292.969 bytes
target.Position := target.Size - 1;
MyZero := '0'; //dummy;
target.Write(MyZero, sizeof(MyZero));
finally
target.Free;
end;
end;
Heb je in de eerste instantie verkeerd begrepen, Paul-Jan, sorry.
..,..het lijkt te werken, alleen is dit niet wat ik zoek.
Ik werk aan een database-file, waarbij table-files door de database-
engine wordt weggeschreven. Hiere kan ik dit niet gebruiken.
Prachtig als je met binair files werkt, natuurlijk...
Omer
Bookmarks