7 lines
90 B
ObjectPascal
7 lines
90 B
ObjectPascal
var
|
|
I: Integer;
|
|
|
|
begin
|
|
I := I + 1;
|
|
FileName := FileReadLine('C:\Names.txt', I);
|
|
end. |