текстовые файлы

[Marinka91]

пожалуйста помогите вывести строку по ее номеру не задавая массива строк!!!!

[Stepler]

Собственно на каком языке нужно?

[Terran]

Delphi.

Procedure TForm1.Button1Click(Sender: TObject);
Var
S: TStringList;
Begin
S:=TStringList.Create;
S.LoadFromFile('C:\1.txt');
ShowMessage(S.Strings[3]);
S.Free;
End;

[puporev]

Вот алгоритм действий с примером кода на Паскале.

reset(f); //открываем файл для чтения
i:=0;//обнуляем счетчик строк
repeat//повторяем
readln(f,s);//читаем строку
i:=i+1;//считаем
if i=n then write(s);//если это заданный номер, выводим
until (i=n) or (eof(f));//если нашли, или конец файла, заканчиваем
if (eof(f)) and(i<n) then write('В файле меньше ',n,' строк!);//если конец файла, а счетчик меньше заданного номера