| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите, pls, беда с закачкой :-(
Маша © (2002-10-09 23:38:00)Помогите решить проблему, pls!
Написала я такой вот код: см. ниже
И вот при открытии и закачке двух текстовых файлов при размере файлов ~ 12 Мб в поле Memo
(и в одно и во второе) файлы закачиваются не полностью а только порядка 600 строк.
Как выйти из этой ситуации, очень нужно !
Дело ли это размере буфера.
БУДУ ОЧЕНЬ БЛАГОДАРНА ЗА ПОМОЩЬ !
Memo1.Clear;
Memo2.Clear;
if OpenDialog1.Execute then //*открыть последний файл
begin
name1:= OpenDialog1.FileName;
Label1.Caption:=ExpandFileName(name1);
AssignFile(F1, name1);
Reset(F1);
end;
if OpenDialog2.Execute then //*открыть предыдущий файл
begin
name2:= OpenDialog2.FileName;
Label2.Caption:=ExpandFileName(name2);
AssignFile(F2, name2);
Reset(F2);
end;
while not Eof(F2)do //* прочитать f2
begin
Readln(F2,s2);
Memo2.Lines.Add(s2);
end;
CloseFile(F2);
while not Eof(F1)do //*прочитать f1
begin
Readln(F1,s1);
Memo1.Lines.Add(s1);
end;
CloseFile(F1);
end;
Маша (2002-10-10 00:11:00) [1]Спасибо за помощь!
Счас буду пробовать, и извините за глупый вопрос, я начинающая
cypher (2002-10-10 00:11:00) [2]Не страша! Все мы такие.... были =)
cypher (2002-10-10 00:01:00) [3]спроить не буду.. 32, 64... адна мадна - ограничение =)
alena.svt (2002-10-09 23:58:00) [4]cypher © (09.10.02 23:55)
64 для девяностых
Маша (09.10.02 23:38)
Выкините это все и послушайте cypher © (09.10.02 23:55)
cypher (2002-10-09 23:55:00) [5]Ой, как умна...
а почему бы не написать так:
Memo1.Lines.LoadFromFile(s1);
Memo2.Lines.LoadFromFile(s2);
и потом, не уверен, но имхо в меме есть ограничение на размер файла и кажется это 32Кб - максимальный размер текста в TMemo. используй TRichEdit
| |
