Вверх ↑
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1239
#106: 2009-11-06 01:35:52 ЛС | профиль | цитата
nesco писал(а):
не кисло экономится память
Не проверял. Я тебе верю
Всё. Пошли спать. СН

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26153
Рейтинг: 2127
#107: 2009-11-06 01:44:37 ЛС | профиль | цитата
Tad писал(а):
Всё. Пошли спать

Гы. Последняя редакция. Еще ускорил


procedure THIListBox._work_doLoad;
var
s, fn: string;
F: TextFile;
fsz: cardinal;
hFile: THandle;
BufIn : Array[0..65535] of Char;
begin
fn := ReadString(_Data,_data_FileName,_prop_FileName);
if FileExists(fn) then
begin
Control.Perform(WM_SETREDRAW, 0, 0);
Control.Clear;
hFile := CreateFile(PChar(fn), GENERIC_READ OR GENERIC_WRITE,
FILE_SHARE_READ or FILE_SHARE_WRITE, nil,
OPEN_EXISTING, FILE_FLAG_SEQUENTIAL_SCAN, 0);
fsz := GetFileSize(hFile, nil);
CloseHandle(hFile);
if fsz <> 0 then
begin
AssignFile(F, fn);
Reset(F);
SetTextBuf (F, BufIn);
if fsz > MAX_PATH * 100 then Control.Perform(LB_INITSTORAGE, 0, fsz);
while not eof(F) do
begin
Readln(F, s);
Control.Perform(LB_ADDSTRING, 0, cardinal(PChar(s)));
end;
CloseFile(F);
end;
Control.Perform(WM_SETREDRAW, 1, 0);
_hi_CreateEvent(_Data,@_event_onChange);
end;
end;

карма: 22

0
Ответов: 16884
Рейтинг: 1239
#108: 2009-11-06 01:52:23 ЛС | профиль | цитата
~ 0.5 секунды.
Спать ложись.
Куда-то Dilma пропал.
На сайте только ты да я.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Гость
Ответов: 17029
Рейтинг: 0
#109: 2009-11-06 01:54:27 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2021-05-22 09:21:48
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#110: 2009-11-06 11:30:45 ЛС | профиль | цитата
nesco писал(а):
Добавлен новый компонент svn: [ SearchInFile.pas ] [ SearchInFile.ini ]
nesco, подкорректируй строку

#pas
while eof(F) <> true do
на более красивую

#pas
While not Eof(F) do
вина моя

Вроде Dilma появился
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26153
Рейтинг: 2127
#111: 2009-11-06 12:31:11 ЛС | профиль | цитата
Исправил
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#112: 2009-11-06 12:33:27 ЛС | профиль | цитата
И выше в "последней редакции" не вижу
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26153
Рейтинг: 2127
#113: 2009-11-06 12:35:48 ЛС | профиль | цитата
Tad, уже исправил
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#114: 2009-11-06 13:19:41 ЛС | профиль | цитата
Чё то Dilma ничего не сказал
или
Молчание - знак согласия
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26153
Рейтинг: 2127
#115: 2009-11-06 13:34:43 ЛС | профиль | цитата
Tad писал(а):
Молчание - знак согласия

Не, в пень, подождем еще
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#116: 2009-11-06 18:13:45 ЛС | профиль | цитата
nesco, может оформишь предложением в HiAsm Bug Tracker
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26153
Рейтинг: 2127
#117: 2009-11-06 18:19:44 ЛС | профиль | цитата
Tad, или я дурак, или тогда для кого это написано

Dilma писал(а):
поэтому перед внесением своего сообщения просьба предварительно выяснить его полезность на форуме


Что я по твоему сейчас делаю, разве я не выясняю полезность предложения
Или есть еще какая-то трактовка этого "Важно!", которая мне неизвестна, а известна только автору
карма: 22

1
Голосовали:MAV
Ответов: 16884
Рейтинг: 1239
#118: 2009-11-06 18:31:37 ЛС | профиль | цитата
nesco, ну мы ж с тобой выяснили ПОЛЕЗНОСТЬ ?
Вносишь предложение в HiAsm Bug Tracker и там Dilma определит ВАЖНОСТЬ.
(и пошлет куда подальше)

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
Голосовали:MAV
Ответов: 1304
Рейтинг: 405
#119: 2009-11-06 23:30:13 ЛС | профиль | цитата
nesco, Tad, спасибо что замутили такой бодрый элемент, давно пытался организовать поиск строк в файлах с приемлемой скоростью. nesco, чего сильно не хватает для полного счастья это возможности знать позицию вхождения найденной строки в байтах, возможно ли реализовать такую возможность в рамках данного элемента.
карма: 3

0
Разработчик
Ответов: 26153
Рейтинг: 2127
#120: 2009-11-06 23:34:45 ЛС | профиль | цитата
MAV писал(а):
чего сильно не хватает для полного счастья это возможности знать позицию вхождения найденной строки в байтах

А если их несколько
карма: 22

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)