Форум: "Потрепаться";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];
ВнизЗагрузка файла! Найти похожие ветки
← →
Socol (2001-12-28 15:04) [0]Здраствуйте!
Почему данный код загружает только первую строчку и как этого избежать?
var f:textfile;
s:string;
begin
o1.Filter:="Файлы конфига(*.cfg)|*.cfg";
o1.Title:="Конфиг";
o1.FilterIndex:=1;
if o1.Execute then
AssignFile(f,o1.FileName);
reset(f);
read(f,s);
Memo1.text:=s;
end;
← →
panov (2001-12-28 15:07) [1]А сколько он должен загружать, если выдается только одна команда Read ?
← →
Turalyon (2001-12-28 15:09) [2]... скиип ...
if o1.Execute then Memo1.Lines.LoadFromFile(o1.FileName);
← →
Socol (2001-12-28 15:09) [3]И что ты предлогаешь сделать если он должен загружать весь файл зи 20 строк
← →
Вадим (2001-12-28 15:50) [4]while not Eof(f) do Read(f, s);
← →
Alex_Sudakov (2001-12-28 17:57) [5]Очень смешно - так он вообще только ПОСЛЕДНЮЮ строчку загрузит...
var a:string;
...
while not Eof(f) do
begin
Read(f, a);
S:=S+A;
end;
← →
knight (2001-12-28 18:27) [6]Лучше массивами!
2 Сокол
Небось раньше ТП маялся? :)))
Тут в натуре хэлп надо читать, по методам. А лучше Бобровского!
С Новым годом всех!
С уважением и радостью Knight.
← →
Lion (2002-01-05 09:41) [7]Командой Read (f,s) - ты читаешь только одну строку, попробуй так.
while not eof(f) do
begin
ReadLn (f,s);
Memo1.Lines.Add(s);
end;
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.004 c