Function EOLN returns TRUE if the file pointer of an open text file has reached a carriage return within the file. Parameter fileName specifies a text file which is open for reading or writing.
FUNCTION EOLN(fileName : STRING): BOOLEAN;def vs.EOLN(fileName):
return BOOLEAN| Name | Type | Description |
|---|---|---|
| fileName | STRING | Name of file. |
BEGIN
Open('MyData');
WHILE NOT EOLN('MyData') DO BEGIN
Read(a,b,c,d);
END;
Close('MyData');
END;BEGIN
For L1 := 1 to (NumRecFields) DO
IF NOT EOLN(LoadFile) THEN Read(gChosenFields[L1]);
NumSelected := 0;
{Now we need to load the linking into the dialog fields}
For L2 := 1 to (NumRecFields) DO {Load all but the unique ID Field into the dialog}
BEGIN
BEGIN
NumOfFields := 0;
Open(TheFile);
While Not EOLN(TheFile) DO
{Fix this procedure so that it works correctly and actually loads in empty fields correctly
Currently the read command does NOT treat consecutive delimeters correctly}
BEGIN
NumOfFields := NumOfFields + 1;
Read(TmpString);
IncomingFieldNames[NumOfFields] := TmpString;
END;result = vs.EOLN('file.txt')Availability: from All Versions