|
Registriert seit: 19. Mär 2003
Ort: Wuppertal
835 Beiträge
Delphi 3 Standard
|
Re: Dateien erstellen
4. Sep 2003, 18:27
Hallo alle zusammen,
so gehts auch ...
Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
const
OpenFlags: array[Boolean] of Integer = (fmCreate or fmShareExclusive, fmOpenReadWrite or fmShareExclusive);
var
FileStream: TFileStream;
begin
FileStream := TFileStream.Create('C:\BigBigWorld.txt', OpenFlags[FileExists('C:\BigBigWorld.txt')]);
FileStream.Size := 1024*1024*1024;
FileStream.Free;
end;
byr
Künftige Generationen wollen ihre Fehler selber machen.
Jedes Programm wird nie das können, was Du wirklich brauchst.
Das Gegenteil von gut ist gut gemeint
-----
|