[Back to TEXTFILE SWAG index]  [Back to Main SWAG index]  [Original]

Function Measure(FileName : String) : LongInt;
 Var Counter   : LongInt;
     FileHandle: Text;
Begin
Assign(FileHandle,FileName);
Reset(FileHandle);
Counter:=0;
Repeat
Inc(Counter);
Until EOF(FileHandle);
Measure:=Counter;
End;

[Back to TEXTFILE SWAG index]  [Back to Main SWAG index]  [Original]