Лучший ответ
-
1 0
blblblbl 8 (115613)815116 15 лет
:)))))) лучше показать на примере
uses SysUtils;
var t:TextFile;
s:string;
begin
AssignFile(t,'1.txt'); Ассоциация файловой переменной t c 1.txt
Reset(t); Открываем для чтения
s:='';
while not eof(t) do
ReadLn(t,s); //чтение из файла t линии в переменную s, пока не наступит конец файла (eof = end of file). С каждым проходом цикла читается следующая строка. Потому что ReadLN :)
CloseFile(t); // закрытие файла
end.
Ещё посмотри help по Rewrite() по Seek
Ответы
-
-
0 0
B A C A R D I 7 (54702)685406 15 лет
http://msdn.microsoft.com/en-us/library/bb762153(VS.85).aspx
http://msdn.microsoft.com/en-us/library/ms687393(VS.85).aspx