Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.21;
Скачать: CL | DM;

Вниз

Помогите, pls, беда с закачкой :-(   Найти похожие ветки 

 
Маша   (2002-10-09 23:38) [0]

Помогите решить проблему, 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;


 
cypher ©   (2002-10-09 23:55) [1]

Ой, как умна...
а почему бы не написать так:

Memo1.Lines.LoadFromFile(s1);
Memo2.Lines.LoadFromFile(s2);


и потом, не уверен, но имхо в меме есть ограничение на размер файла и кажется это 32Кб - максимальный размер текста в TMemo. используй TRichEdit


 
alena.svt ©   (2002-10-09 23:58) [2]

cypher © (09.10.02 23:55)
64 для девяностых

Маша (09.10.02 23:38)
Выкините это все и послушайте cypher © (09.10.02 23:55)



 
cypher ©   (2002-10-10 00:01) [3]

спроить не буду.. 32, 64... адна мадна - ограничение =)


 
Маша   (2002-10-10 00:11) [4]

Спасибо за помощь!
Счас буду пробовать, и извините за глупый вопрос, я начинающая


 
cypher ©   (2002-10-10 00:11) [5]

Не страша! Все мы такие.... были =)



Страницы: 1 вся ветка

Текущий архив: 2002.10.21;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.014 c
3-68670
tolea
2002-09-27 11:11
2002.10.21
Проблемы с INSERT в DELPHI


1-68686
Aleksandr
2002-10-10 16:21
2002.10.21
Делфи 7 крышей едет или я? Модуль variants хочет перекомпиляться.


3-68667
b-Ars
2002-09-27 16:39
2002.10.21
Назначение обработчика в Run Time


1-68694
.
2002-10-10 20:09
2002.10.21
inttohex, floattohex


1-68766
Menel
2002-10-11 16:07
2002.10.21
Что за зверь variants.dcu и почему у меня его нет