Чтение строк из файла

← →
LDE © (2003-10-07 13:49) [0]

Нужно последовательно по нажатию на кнопку считывать строки из текстового файла и помещать их в поле Edit. Т.е. после нажатия считать первую строку, поместить в Edit, нажать на кнопу, считать следующую строку и т.д.

← →
Skier © (2003-10-07 13:50) [1]

TStringList ? (ежели файл небольшой...)

← →
MadGhost © (2003-10-07 13:54) [2]

по моему
procedure TForm1.Button1Click(Sender)
var
s:String;
bedin
ReadLn(FileHandle,s);
Edit1.Text:=s;
end;

← →
LDE © (2003-10-07 14:06) [3]

код типа

procedure TForm1.Button1Click(Sender: TObject);
var
Vf1: TextFile;
FileName1: string;
S: string;
begin
FileName1:="read.txt";
AssignFile(Vf1, FileName1);
Reset(Vf1);
ReadLn(Vf1,s);
Edit1.Text := S;
CloseFile(Vf1);
end;

будет считывать только первую строку!

Если использовать TStringList, то нужно записать туда значения всех строк (основываюсь на примере из Help"а). А если содержание и кол-во строк меняется?

← →
MadGhost © (2003-10-07 21:35) [4]

ну тык, эту часть
var Vf1: TextFile; FileName1: string; S: string; begin FileName1:="read.txt"; AssignFile(Vf1, FileName1); Reset(Vf1);
делай, в другой процедуре, например при открытии формы, а в Button1Click

ReadLn(Vf1,s); Edit1.Text := S; CloseFile(Vf1);

← →
Германн © (2003-10-08 03:36) [5]

2 MadGhost © (07.10.03 21:35) [4]
А зачем же тогда закрывать файл после чтения очередной строки?
Закрытие тогда тоже стоит вынести в другую процедуру.

← →
LDE © (2003-10-08 11:40) [6]

Большое спасибо MadGhost! Все работает.

← →
Германн © (2003-10-09 03:28) [7]

2LDE © (08.10.03 11:40) [6]
2Большое спасибо MadGhost! Все работает.

Интересно бы знать КАК? Как можно выйти на следущую строку, если файл был ранее закрыт?

← →
Anatoly Podgoretsky © (2003-10-09 08:59) [8]

Германн © (09.10.03 03:28) [7]
Можно, но для больших файлов будет долго.

2 Германн © (09.10.03 03:28) [7]

Интересно бы знать КАК? Как можно выйти на следущую строку, если файл был ранее закрыт?

Закрываем файл после того, как дошли до конца файла.

Есть другой вопрос.
Как при нажатии на кнопку узнать номер того RadioButton"а (RadioButton1 или RadioButton2), у которого свойство Checked = True?

← →
MoRo (2003-10-09 10:32) [10]

procedure TForm1.Button1Click(Sender: TObject);
var
F : TextFile;
FileName1: string;
S : string;
i : Integer;
begin
FileName1:="c:\demo.txt";
AssignFile(F, FileName1);
// Для определения открыт или закрыт файл (функцию проверку не помню)
// При запуске программы нужно i := 0;
if i = 0 then begin
Reset(F);
i := 1;
end;
ReadLn(F,S);
Edit1.Text := S;
if Eof(F) then begin
CloseFile(F);
i := 0;
end;
end;

Да... В огороде бузина, а в Киеве - дядька.
И что такое номер RadioButton"а?

2 Anatoly Podgoretsky © (09.10.03 08:59) [8]
Сей способ мне известен, по крайней мере в двух вариантах, но в ответах не было ничего напоминающего их.

Про RButton
if RB1.Checked then number:=1; if RB2.checked then number:=2;
Если много их (РадиоБуттонов) - объявить их массивом и перебрать его.

Чтение строк из файла Найти похожие ветки