Текст

← →
Opera (2003-03-11 13:06) [0]

Здравствуйте
var
f: TextFile;
s: String;
begin
AssignFile(f, "Dsmbl.ini");
Reset(f);
ReadLn(f, s);
CloseFile(f);
edit2.Text := s;
помогите с кодом как чтобы в edit2 показывалась не 1 строчка файла, а 4. Помогите заранее благодарен.

← →
Sheriff (2003-03-11 13:11) [1]

как насчет цикла?

← →
Anatoly Podgoretsky (2003-03-11 13:11) [2]

Цикл нужен от 1 до 4

← →
Opera (2003-03-11 18:46) [3]

Помогите с кодом пожалуйста...

← →
Anatoly Podgoretsky (2003-03-11 18:50) [4]

Расмешил
for I := 1 to 4 do ReadLn(f, s);

← →
uu (2003-03-11 18:52) [5]

var
F: Text;
S: string;
i: Byte;
begin
AssignFile(F, "Dsmbl.ini");
Reset(F);
Edit2.Text := "";
for i := 1 to 4 do
if not EOF(F) then begin
ReadLn(F, S);
Edit2.Text := Edit2.Text+S;
end;
CloseFile(F);
end.

← →
Opera (2003-03-11 21:18) [6]

Мне нужно не все строки до 4 а только 4 строку! Помогите пожалуйста...

← →
Anatoly Podgoretsky (2003-03-11 21:33) [7]

Еще раз расмешил, вот эта строка
edit2.Text := s;
тебе и дает последнею строку.

Твоя задача заменить
ReadLn(f, s); на for I := 1 to 4 do ReadLn(f, s);

Вторая твоя задача не включать компьютер некоторое время, пока не прочитаешь несколько книг по Дельфи, он на тебя очень плохо влияет.

Текст Найти похожие ветки