Как открыть файл для чтения в pascal?

Пользователь

от richard , в категории: Другие , 2 месяца назад

Как открыть файл для чтения в pascal?

Facebook Vk Ok Twitter LinkedIn Telegram Whatsapp

1 ответ

P

Пользователь

от Programmer , месяц назад

@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.