Чтение файла

[Stanislav]

Уважаемы форумчане подскажите как осуществить следующее:

Есть текстовый файл: содержание следующее

10
12
13
14
15
16

Как мне считать только 4 строку и присвоить ее значение (14) скажем переменной p?

Спасибо...

[zetrix]

var f:textfile;
    i,n,p:integer;
begin
assignfile(f,'C:\111.txt');
reset(f);
n:=4;
for i:=1 to n do readln(f,p);
closefile(f);

В итоге в переменной окажется 14. (Напоминаю: хоть файл и текстовый, но при помощи read/readln из него МОЖНО считывать числа напрямую, без strtoint!)

[Domovoy]

Есть такая процедурка seek

var 
    f:textfile;
    p:integer;
begin
   assignfile(f,'C:\111.txt');
   reset(f);
   seek(f,4)
   readln(f,p);
   closefile(f);

[Stanislav]

Сообщение от zetrix

var f:textfile;
    i,n,p:integer;
begin
assignfile(f,'C:\111.txt');
reset(f);
n:=4;
for i:=1 to n do readln(f,p);
closefile(f);

В итоге в переменной окажется 14. (Напоминаю: хоть файл и текстовый, но при помощи read/readln из него МОЖНО считывать числа напрямую, без strtoint!)

Я зделал так:

procedure TForm1.Button1Click(Sender: TObject);

begin

assignfile(f,'1.txt');
reset(f);
//n:=StrToInt(Edit1.Text);
n:=n+1;
for i:=1 to n do readln(f,p);
closefile(f);
label1.Caption:=''+(p);
end;

end.

т.е при нажатии на кнопку мы читаем следующею строку и ввыводим ее в label теперь такой глупый вопрос как узнать что стока пустая ...
может так if count = ' ' then showmessage('Достигнут конец строки'); ?

[mihali4]

Например, IF LABEL1.CAPTION='' THEN или IF Р='' THEN ... строка пуста.
Кстати, в строке
label1.Caption:=''+(p);
помеченное красным можно смело не писать.

[Stanislav]

Сообщение от mihali4

Например, IF LABEL1.CAPTION='' THEN... строка пуста.

А другого способа найти пустую строку нету?

[dron-s]

А другого способа найти пустую строку нету?

да их валом этих способов....
EmptyStr
Trim
можешь проверку сделать на количество символов в строке
if length(trim(label1.caption)) = 0 then

[FaTaL]

Сообщение от zetrix

var f:textfile;
    i,n,p:integer;
begin
assignfile(f,'C:\111.txt');
reset(f);
n:=4;
for i:=1 to n do readln(f,p);
closefile(f);

В итоге в переменной окажется 14. (Напоминаю: хоть файл и текстовый, но при помощи read/readln из него МОЖНО считывать числа напрямую, без strtoint!)

Как вывести текстовую строку в TEdit из файла? Пусть эта строка так же будет четвёртой.

[dron-s]

var 
  f:textfile;
  i,n,p:integer;
begin
assignfile(f,'C:\111.txt');
reset(f);
n:=4;
for i:=1 to n do 
  readln(f,p);
edit1.text := IntToStr(p);
closefile(f);

?

[Stilet]

Как вывести текстовую строку в TEdit из файла?

Там после Closefile Edit1.text:=s, где s - считанная строка.
Если по твоему коду то:

Edit1.text:=inttostr(p)

Пусть эта строка так же будет четвёртой.

Я может чет не допонял но в Эдит в принципе однострочный...

Есть такая процедурка seek

ойли с ней получится?
Она ж только в типированных и нетипированных работает.
А тут текстовый...