Dateien erstellen

[Matze]

http://www.coax.de/wissen/einheite.asp

[Meflin]

ok, thx damit wäre die frage beantwortet!

[Wormid]

Obwohl die Frage eigentlich beantwortet ist: Warum so umständlich mit Streams und Konsorten?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var F: TextFile;
    S: String;
    i: Integer;
begin
    AssignFile(F, 'C:\test.txt');
    Rewrite(F);
    // Man kann da auch mit andern Werten spielen... Aber
    // allzugroß sollte man das nicht machen, sonst fängt Windows
    // an das auszulagern... Und dann wird es langsam... ;-)
    SetLength(S, 1024 * 1024);
    for i := 1 to 1024 do Write(F, S);
    CloseFile(F);
end;

Und *zack*... in 45 Sekunden ist ein Gigabyte weniger frei auf Laufwerk C:!

Gruß

Wormid

[Chewie]

Deine und meine Methode sind sehr ähnnlich. Du benutzt Pascal-Files, ich einen TFilestream. Meine Variante kann aber ohne Modifikation (außer bei den Konstanten und bei Size) belieig großee Dateien schreiben, während du auf deine Array-Größe mal x beschränkt bist.

[Lillebrohr]

Guten Tag,

erm, steht die Größe der Datei nicht im Datei-Header drinn ?

Könnte man da nicht irgendwas regeln ? Sozusagen auslesen und umschreiben ?


Bis denne

MfG

LB

[Wormid]

@Chewie: Stimmt sogar... das mit der beliebigen Größe war mir nicht bewußt. Allergings könte man ja auch SetLength mit der endgültigen Größe des Strings füttern und den dann nur einmal wegschreiben. Ist aber nicht empfehlenswert bei einer gewünschten Länge von über 10 MB oder so.

[Chewie]

Zitat von Wormid:

Allergings könte man ja auch SetLength mit der endgültigen Größe des Strings füttern und den dann nur einmal wegschreiben. Ist aber nicht empfehlenswert bei einer gewünschten Länge von über 10 MB oder so.

Bingo Oder falls doch ... mach schon mal den Kaffee warm

[Chewie]

Ich hab gerade gemerkt, dass ich einen Denkfehler drin hatte. In der while-Schleife muss auf kleiner/gleich geprüft werden.

[Meflin]

ja das is mir auch schon aufgefallen, weil allle dateien im test (zb bei 10 kb nur 9kb)kleiner wurden als sie sein sollten! *G*

[kasi]

Das ist schneller

Code:

procedure DoCreateFile(Filename: string; Size: LongInt);
var
  FS: TFileStream;

begin
FS := TFileStream.Create(Filename, fmCreate);
try
  FS.Size := Size;
finally
  FS.Free;
end;
end;

kasi