Einzelnen Beitrag anzeigen

Benutzerbild von Nothine
Nothine

Registriert seit: 3. Jul 2004
Ort: Mülheim an der Ruhr
198 Beiträge
 
Delphi 5 Enterprise
 
#3

Re: Bytes einer Datei berechnen

  Alt 7. Sep 2004, 20:28
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...
if ThisPost is senseless then
ThisPost.WasPostedBy := SomeoneElse();
  Mit Zitat antworten Zitat