Wie kann ich eine Datei erstellen ohne Savedialog?

[Nalincah]

Was mach ich denn, wenn ich eine Datei öffne die eine Länge von 0 Bytes hat. Wie kann ich das erkennen?

[s14]

Hallo, mit dieser Funktion kannst Du die Dateigröße ermitteln:

Delphi-Quellcode:

function GetFileSize(const filename: String): Integer;
var sr : TSearchRec;
begin
  Result := -1; // bedeutet, keine Datei gefunden !!
  if FindFirst(filename, faAnyFile, SR) = 0 then Result := sr.Size;
  SysUtils.FindClose(sr);
end;

[Christian Seehase]

Moin Sharky,

Zitat von Sharky:

Zitat von NikoMitDaMacht:

...TSaveDialog erstellt wirklich keine datei sondern das "AssignFile(f,'c:\text.dat');" oder?...

Jup.

Nein, auch AssignFile erstellt keine Datei.
Diese Prozedur sorgt nur für die interne Zuordnung der Dateivariablen f mit dem Pfad ('c:\text.dat').

Erst Rewrite tut wirklich etwas.

[EDIT]
Ich sollte besser aufpassen wieviele Seiten der Thread schon hat
[/EDIT]