@richard Приветствую!
Открыть файл можно функцией Assign, она связывает файл с переменной, которая в последствии используется для чтения.
Пример:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Program GetFile; var f: text; s: string; begin //связываем файл с переменной Assign(f, 'C:\Temp\test.txt'); //читаем файл While not eof(f) do Begin //считываем очередную строку из файла Readln(f, s); //выводим строку на экран Writeln(s); End; end. |