Bytes einer Datei berechnen

[Nothine]

Zitat von HW764:

1.Den Pfad aus einer Datei aus Edit1 ausliest

Delphi-Quellcode:

var F: File;

...

begin
  AssignFile(F,Edit1.Text);
  Reset(F);
end;
{ Hinterher mit
  CloseFile(F);
  wieder freigeben}

Zitat von HW764:

2.Er sie Grösse der in edit1 stehenden Datei erkennt

  DeineVariable := FileSize(F); //in Byte

Zitat von HW764:

3.Er sie in bytes umrechnet und halbiert. (und auf die Grössere bytezahl rundet)

das wird durch FileSize bereits erledigt...