[Delphi] Grootte van een tekstbestand bepalen

[Spinal]

Dat is dus niet mogelijk met FileSize. Uit de help: "Note: FileSize can't be used on a text file"
Is er een methode om het toch te doen? Via een standaard routine, desnoods via een zelfgemaakte routine...

Waarschijnlijk wil het wel door het bestand te openen als bv. 'File of byte', en dan de functie aan te roepen, maar ik zoek eigenlijk een andere (betere) methode

[dusty]

Open de file als een file ipv een textfile. En tada je kan opeens wel filesize gebruiken

[ Voor 4% gewijzigd door dusty op 29-01-2003 18:03 ]

[Verwijderd]

Zal ongeveer zo moeten kunnen (ff uit het hoofd):

code:

function GetFileSize(FileName : string) : integer;
var
 MyStream : TFileStream;
begin
    try 
       MyStream := TFileStream.Create(FileName, fmReadOnly);
       Result := MyStream.Size;
       MyStream.Free;
   except 
      Result := -1;
   end;
end;

[ Voor 13% gewijzigd door Verwijderd op 29-01-2003 18:17 ]

[_Thanatos_]

je kan ook de API call OpenFile gebruiken... daarin zit een truuk om attributen van een file (of iets anders) op te vragen zonder em te openen.

[LordLarry]

Of de winapi functie GetFileSize