Eine leere Datei mit benutzerdefinierter Größe anlegen. Wie?

Watsch · Beiträge: 97 Win98 SE D3 Prof, D4 C/S

Hallo.
Ich versuche gerade einen kleinen HEX-Editor mit Delphi 3 Pro, sowie der Hex-Editor-Komponente MPHexEdit zu programmieren. Nun meine Frage. Wie kann ich, wenn der Anwender eine neue Datei erstellen will (wobei er dabei dann die Anzahl der Bytes eingeben muss/soll), diese denn nun auch erstellen.

P.S.: Ich habe schon viel von TFileStream gelesen, nur verstanden hab ich's nicht. Also wenn mir jemand bei diesem Problem helfen könnte, wär' schon super...

Ehemaliges Mitglied Erhaltene Danke: 1

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure CreateEmtyFile(const Filename: String; Bytes: Cardinal);
var
  fs: TFileStream;
begin
  fs := TFileStream.Create(Filename, fmCreate);
  try
    fs.Size := Bytes;
  finally
    FreeAndNil(fs);
  end;
end;

Watsch · Beiträge: 97 Win98 SE D3 Prof, D4 C/S

1000 Dank!!! Genauso sollte es sein!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme