Форум: "Основная";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];
ВнизПомогите, 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c