Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Dateien erstellen

    Delphi
    by Duffy, 4. Sep 2003
  Hallo alle zusammen,
  so gehts auch ...
  procedure TForm1.BitBtn1Click(Sender: TObject);
  const
  OpenFlags: array of Integer = (fmCreate or fmShareExclusive, fmOpenReadWrite or fmShareExclusive);
  var
  FileStream: TFileStream;
  begin
  FileStream := TFileStream.Create('C:\BigBigWorld.txt', OpenFlags);
  FileStream.Size := 1024*1024*1024;