miha, f:textfile; s:string; ... AssignFile(f,"C:/t.txt"); readln(f,s); label1.Caption:=s;

Al.exeY, спасибо большое. Я так понял, что программа будет считывать первую строчку, а как так, чтобы вторую или н-ную?

miha,да,а read один символ. Eсть метод seek, он перемещает указатель в зависимости от переданных параметров.почитай в справке,я точно не помню.

miha, можно ведь for i:=1 to n do readln(f,s); и в s будет n строка

Можно зделать проще, если расположение строк не имеет значения добавить memo1 и memo1.Loadfromfile("c:/txt.txt") и затем label1.caption:=memo1.text да и свойство лейба поставить перенос по строчкам, вот и все в коде возможны арфографические ошибки, т.к с тела сижу!

pileve, нет, номер строки играет роль

Al.exeY, seclub.org/forum/goto/8445788/ - а зачем вообще цикл? f:file of string; s:string; ... AssignFile(f,"C:/t.txt"); seek(f,m) readln(f,s); label1.Caption:=s; где m номер нужной строки в файле

А вот ещё вопрос:
Как сделать, чтобы н-ная строка выводилась в listbox"e?

Даже несколько строк. Например даже каждая 5-я

miha, тогда memo1.Lines где i номер строки!

Так, в мемо я научился выводить строчку. Теперь вот: а как выводить в мемо каждую н-ную строку? Я попытался через цикл), но не получилось(

miha, попробуй for i:=1 to memo1.Lines.count-1 do begin label1.Caption:=label1.Caption+":"+memo1.Lines