Чтение файла

[dron-s]

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

дык всё правильно, ему же надо вывести из всего файла только 4-ую строку

[FaTaL]

Сообщение от 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);

?

Этот пример при выполнении кидает ошибку:

[FaTaL]

Нашёл. Вот как надо было:

var 
  f:textfile;
  i,n:integer;
  p:string;
begin
assignfile(f,'C:\123.txt');
reset(f);
n:=2;
for i:=1 to n do
readln(f,p);
closefile(f);
Edit1.text:=p;

[dron-s]

ну и о чём это говорит?
о том что у тебя 4-ая строка была не числовая а строковая...
а из твоего первого поста

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

10
12
13
14
15
16

[Stilet]

Этот пример при выполнении кидает ошибку:

А текст ошибки привести религия не позволяет?

[FaTaL]

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

А текст ошибки привести религия не позволяет?

Да всё уже, разобрался что мне надо было.
Спасибо.
Теперь бы вот узнать как читать строку до определённого символа?

[dron-s]

pos+copy+f1

[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!)

А такое возможно?

10/11
12/13
14/15
16/17
18/19

Например 10 присвоем переменной N а то что после слэша 11 присваиваем переменой P чтоб получилось так:

N:=10
P:=11

Спасибо..

[Квэнди]

1. Один вопрос- одна тема
2. sandy27 бан
3. тема подчищена.
закрыто