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

 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.

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13

var
myFile: TextFile;
myString: String;
begin
AssignFile(myFile, 'myFile.txt');
Reset(myFile);
while not Eof(myFile) do
begin
ReadLn(myFile, myString);
writeln(myString);
end;
CloseFile(myFile);
end;