Форум: "Потрепаться";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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;




Форум: "Потрепаться";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.03 c
3-79291           yaJohn                2002-01-31 14:26  2002.02.25  
ORDER BY - read only ??? 8-(


1-79385           IronHawk              2002-02-05 16:19  2002.02.25  
Как отловить САМЫЙ ПЕРВЫЙ запуск программы ?


3-79282           knyaz17               2002-01-31 12:23  2002.02.25  
Как сохранить DBF файл в кодировке CP 866?


1-79371           Aleksandr             2002-02-08 19:23  2002.02.25  
Как из программы узнать формат строки с датой/временем для SQL-сервера


1-79374           kingdom               2002-02-08 18:20  2002.02.25  
Где взять библиотеку чтобы SMSки посылать?