procedure TForm1.Button1Click(Sender: TObject); Var Fichero: File; Tamanyo: Integer; Begin Try AssignFile(Fichero,'c:\elfichero.txt'); Reset(Fichero,1); Tamanyo := FileSize(Fichero); CloseFile(Fichero); showmessage(FloattoStr(Tamanyo)); Except showmessage('Error'); End; End;
Ważne artykuły