VPF::Как открыть большой файл txt в Memo

Serhik_z

Дата 22.6.2005, 12:42 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 108
Регистрация: 4.12.2004

Репутация: нет
Всего: нет

Как открыть файл txt в Memo больше положенного.
Скажем 100000 тыс. строк и более.
smile

Snowy

Дата 22.6.2005, 12:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

В Win2000, XP и т.п. Без проблем.
Просто грузишь Lines.LoadFromFile.
Там нет ограничения на кол-во строк.

Serhik_z

Дата 22.6.2005, 12:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 108
Регистрация: 4.12.2004

Репутация: нет
Всего: нет

Для Windows 95 - 98 можно сделать

Snowy

Дата 22.6.2005, 13:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Цитата(Serhik_z @ 22.6.2005, 12:59)

Для Windows 95 - 98 можно сделать

В 9х сам системный TMemo не держит больше 65 килострок.
Там нужно RichEdit юзать.
Правда я уже забыл как 98-е выглядят...

~FoX~

Дата 22.6.2005, 13:25 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Больше 64 кил в любой ОСи нельзя запихать в МЕМО.
RichEdit или строить динамическое подгружание блоков, во время скрола.
А зачем?

--------------------

…множественность никогда не следует полагать без необходимости…

Snowy

Дата 22.6.2005, 16:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Цитата

Больше 64 кил в любой ОСи нельзя запихать в МЕМО.

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  s: string;
  sl:TStringList;
  ms:TMemoryStream;
begin
  s:=''; for i:=1 to 1024 do s := s + chr(i mod 24 + 65);
  sl:=TStringList.Create;
  for i:=1 to 100000 do sl.Add(s);
  ms:=TMemoryStream.Create;
  sl.SaveToStream(ms);
  sl.Free;
  ms.Position:=0;
  Memo1.Lines.LoadFromStream(ms);
  ms.Free;
end;

Всего 5 минут и 100 000 килобайтных строк запихано в наш Memo1.
Итого 100Mb в Memo.
Работает на Win2k и старше.

Vit

Дата 22.6.2005, 19:37 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Или RichEdit или SynEdit (http://forum.vingrad.ru/index.php?showforum=170)

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

~FoX~

Дата 23.6.2005, 09:15 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Snowy Хм....действительно.....погорячился (правда у меня своп сканчался smile

)
Попробывал ~50 метровый файл запихать, работает.
Но все равно это не есть гуд, ибо прога на 9х будет падать. smile

--------------------

…множественность никогда не следует полагать без необходимости…

Snowy

Дата 23.6.2005, 09:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Цитата

Попробывал ~50 метровый файл запихать, работает.

А то! Плавали, проверяли.
Максимально влезает строк MaxInt div 4;
Это ограничение TStringList.

Цитата

Но все равно это не есть гуд, ибо прога на 9х будет падать.

А в 3.11 вообще не заработает, не говоря уже 2.0, 1.0 и DOS с полуосью, *nix, *BSD, QNX, PPC, Symbian, Palm, MacOS, и куче других.
Либо забыть о существовании DOS и прочих до5.x систем, либо воспользоваться вариантами, предложенными выше.

s-mike

Дата 23.6.2005, 17:38 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 425
Регистрация: 16.1.2005
Где: Киев

Репутация: 9
Всего: 16

Цитата(Snowy @ 23.6.2005, 09:23)

*nix, *BSD

Разве Memo в QT имеет такие ограничения (в 64 кб)?

--------------------

Преферанс для Android на базе исходников Марьяжа

Snowy

Дата 23.6.2005, 17:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Цитата(s @ 23.6.2005, 17:38)

Разве Memo в QT имеет такие ограничения (в 64 кб)?

Если в эмуляторе запустить - не знаю.
А без эмулятора точно не заработает smile

s-mike

Дата 24.6.2005, 13:24 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 425
Регистрация: 16.1.2005
Где: Киев

Репутация: 9
Всего: 16

Цитата(Snowy @ 23.6.2005, 17:48)

smile Если в эмуляторе запустить - не знаю.
А без эмулятора точно не заработает smile

Стоп, о каком эмуляторе речь? Я имею в виду скомпилированный исполняемый файл, использующий библиотеку QT под Windows&Linux.

--------------------

Преферанс для Android на базе исходников Марьяжа

Snowy

Дата 24.6.2005, 14:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

А я имею ввиду ехешник.
Если скомпилено пол линуксы, то скорее всего такого ограничения там не будет.
Я даже почти уверен, что не будет, но попробовать негде.

s-mike

Дата 25.6.2005, 07:27 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 425
Регистрация: 16.1.2005
Где: Киев

Репутация: 9
Всего: 16

Цитата(Snowy @ 23.6.2005, 17:48)

А без эмулятора точно не заработает smile

А, так ты имел в виду, что ограничение не заработает smile

--------------------

Преферанс для Android на базе исходников Марьяжа

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »