23.01.2007, 17:12
общий
это ответ
Здравствуйте, Snik!
Нужно присвоить пременной типа TextFile адрес желаемого текстофого файла.
После этого, используя While not EOF()... и readln можно работать с каждой строкой файла.
Приложение:
Var F:Textfile;Begin ... while not EOF(F) do begin {далее обрабатываете каждую строку, как хотите, используя функцию readln()} end; ...end;