Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c