Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Языки программирования семейства Pascal [закрыт для гостей] / Как будет быстрее? / 14 сообщений из 14, страница 1 из 1
12.07.2023, 01:23:39
    #478613
Неуловимый Джо
Неуловимый ДжоПривилегированный пользователь
Участник
[игнорирует гостей]
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как будет быстрее?
В TStringList нужно добавить из датасета примерно 50 тысяч элементов.
Циклом по датасету долго.
Думаю, если в DelimitedText сунуть строку из пятидесяти тысяч элементов разделенных чем-нибудь, это будет быстрее?

Понятно, что надо проверять, но может кто-то уже пробовал?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать | Ответы  
12.07.2023, 10:26:52
    #478716
s62
s62Привилегированный пользователь
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как будет быстрее?
Неуловимый Джо [игнорируется] 

Что касается добавления в StringList, то похоже, что недолго. Хотя наверное зависит и от того, какие строки добавлять.

Вот тут примерно 3 мс на стареньком Core i5-4440:
Код: Delphi
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
procedure TForm1.Button2Click(Sender: TObject);
var SL: TStringList;
  SW: TStopWatch;
  i: integer;
begin
  SL := TStringList.Create;
  try
    SW := TStopwatch.StartNew;
    for i := 0 to 50000 do
      SL.Add(IntToStr(i + 150000000));
    SW.Stop;
    Caption := IntToStr(SW.ElapsedMilliseconds);
  finally
    SL.Free;
  end;
end;
Может проход по датасету тормозит? Ещё, если добавление в визуальный компонент, то там свои тормоза от отрисовки. Добавляется именно в StringList или в какое-то Memo или ListBox?
...
Изменено: 12.07.2023, 10:31:05 - s62
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать | Ответы  
12.07.2023, 10:44:04
    #478732
Неуловимый Джо
Неуловимый ДжоПривилегированный пользователь
Участник
[игнорирует гостей]
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как будет быстрее?
s62  12.07.2023, 10:26:52
[игнорируется]
478716
Может проход по датасету тормозит
скорее всего именно так.
там правда чуток сложнее, я добавлюя в стринглист самописного компонента, что как он там добавляет элементы я не знаю, это еще добавляет времени.

но я кстати проверил.
строка с разделителями точно быстрее, чем проход в цикле по датасету.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать | Ответы  
12.07.2023, 10:46:38
    #478737
Неуловимый Джо
Неуловимый ДжоПривилегированный пользователь
Участник
[игнорирует гостей]
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как будет быстрее?
s62  12.07.2023, 10:26:52
[игнорируется]
478716
Добавляется именно в StringList или в какое-то Memo или ListBox?
да там у компонента метод, который принимает параметро стринглист, что он там делает с ним внутри не уверен.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать | Ответы  
12.07.2023, 10:54:45
    #478745
s62
s62Привилегированный пользователь
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как будет быстрее?
Неуловимый Джо [игнорируется] 

вот если к моему коду добавить ещё
Код: Delphi
1.
      Memo.Lines.Assign(SL);
то вот это действие - сколько-то секунд. Я как-то писал, что обнаружил, что c ListBox-ом быстрее: 365471
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.07.2023, 11:07:07
    #478767
s62
s62Привилегированный пользователь
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как будет быстрее?
Неуловимый Джо  12.07.2023, 10:44:04
[игнорируется]
478732
но я кстати проверил.
строка с разделителями точно быстрее, чем проход в цикле по датасету.
Наверное ты и сам знаешь, на всякий случай напишу. Если визуальный компонент, то при добавлении по одной записи он будет перерисовываться после каждого добавления и это добавляет тормозов. Чтобы этого не было надо вначале вызвать StringList.BeginUpdate, а когда все изменения будут внесены, вызвать StringList.EndUpdate. Можно через try ... finally на случай исключения. Это реально ускоряет в случае добавления большого количества строк поочередно.
...
Рейтинг: 1 / 0
Нравится: Неуловимый Джо
| Ответить | Цитировать | Написать | Ответы  
12.07.2023, 11:28:39
    #478792
Неуловимый Джо
Неуловимый ДжоПривилегированный пользователь
Участник
[игнорирует гостей]
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как будет быстрее?
s62  12.07.2023, 11:07:07
[игнорируется]
478767
Неуловимый Джо  12.07.2023, 10:44:04
[игнорируется]
478732
но я кстати проверил.
строка с разделителями точно быстрее, чем проход в цикле по датасету.
Наверное ты и сам знаешь, на всякий случай напишу. Если визуальный компонент, то при добавлении по одной записи он будет перерисовываться после каждого добавления и это добавляет тормозов. Чтобы этого не было надо вначале вызвать StringList.BeginUpdate, а когда все изменения будут внесены, вызвать StringList.EndUpdate. Можно через try ... finally на случай исключения. Это реально ускоряет в случае добавления большого количества строк поочередно.
ну тут остается надеяться что в компоненте это учтено.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать | Ответы  
12.07.2023, 11:43:55
    #478809
s62
s62Привилегированный пользователь
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как будет быстрее?
Неуловимый Джо  12.07.2023, 11:28:39
[игнорируется]
478792
ну тут остается надеяться что в компоненте это учтено.
Почему? Ты же передаешь в процедуре в какой-то StringList. Вот у него и можно вызвать в начале BeginUpdate, а в конце EndUpdate.
Типа
Код: Delphi
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
procedure SendArrayToStringList(Arr: array of integer; SL: TStringList);
begin
  SL.BeginUpdate;
  try
    SL.Clear;
    for i := 0 to High(Arr) do
      SL.Add(IntToStr(Arr[i]);
  finally
    SL.EndUpdate;
  end;
end;
...
Изменено: 12.07.2023, 11:45:43 - s62
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать | Ответы  
12.07.2023, 11:47:25
    #478810
Неуловимый Джо
Неуловимый ДжоПривилегированный пользователь
Участник
[игнорирует гостей]
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как будет быстрее?
s62  12.07.2023, 11:43:55
[игнорируется]
478809
Неуловимый Джо  12.07.2023, 11:28:39
[игнорируется]
478792
ну тут остается надеяться что в компоненте это учтено.
Почему? Ты же передаешь в процедуре в какой-то StringList. Вот у него и можно вызвать в начале BeginUpdate, а в конце EndUpdate.
Типа
Код: Delphi
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
procedure SendArrayToStringList(Arr: array of integer; SL: TStringList);
begin
  SL.BeginUpdate;
  try
    SL.Clear;
    for i := 0 to High(Arr) do
      SL.Add(IntToStr(Arr[i]);
  finally
    SL.EndUpdate;
  end;
end;
да его я тут же и создаю, на нем никаких отрисовок точно нет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.07.2023, 13:44:25
    #478968
Неуловимый Джо
Неуловимый ДжоПривилегированный пользователь
Участник
[игнорирует гостей]
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как будет быстрее?
s62 [игнорируется] 

С DelimitedText тоже проблемы.
там делиметр можно только один символ, и найти подходящий трудно.

Пока не нашел )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать | Ответы  
12.07.2023, 14:16:34
    #479003
s62
s62Привилегированный пользователь
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как будет быстрее?
Неуловимый Джо [игнорируется] 

Можно присвоить свойство Text и разделять строки символами CR LF.
Вроде так должно сработать:
Код: Delphi
1.
2.
3.
4.
s := '';
for i := 0 to High(StrArr) do
  s := s + StrArr[i] + #13#10;
StringList.Text := s;
...
Изменено: 12.07.2023, 14:26:43 - s62
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать | Ответы  
12.07.2023, 14:56:22
    #479103
Неуловимый Джо
Неуловимый ДжоПривилегированный пользователь
Участник
[игнорирует гостей]
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как будет быстрее?
s62  12.07.2023, 14:16:34
[игнорируется]
479003
Неуловимый Джо [игнорируется] 

Можно присвоить свойство Text и разделять строки символами CR LF.
Вроде так должно сработать:
Код: Delphi
1.
2.
3.
4.
s := '';
for i := 0 to High(StrArr) do
  s := s + StrArr[i] + #13#10;
StringList.Text := s;
ок, спасибо, проверю )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.07.2023, 15:02:58
    #479109
Неуловимый Джо
Неуловимый ДжоПривилегированный пользователь
Участник
[игнорирует гостей]
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как будет быстрее?
не, не подходит, эта последовательность встречается в строках )
ладно, в принципе и хрен с ним.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать | Ответы  
12.07.2023, 15:04:52
    #479111
s62
s62Привилегированный пользователь
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как будет быстрее?
Неуловимый Джо  12.07.2023, 15:02:58
[игнорируется]
479109
не, не подходит, эта последовательность встречается в строках )
ладно, в принципе и хрен с ним.
Ну кстати говоря, если в очередной строке есть символы перевода каретки и новой строки, то по идее в StringList при ее добавлении она добавится как две строки (два элемента StringList).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Языки программирования семейства Pascal [закрыт для гостей] / Как будет быстрее? / 14 сообщений из 14, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 180ms
Закрыть
start [/forum/topic.php?fid=16&mobile=1&tid=11007]:
 0ms
get settings:
 7ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 23ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 82ms
get tp. blocked users:
 1ms
others: 43ms
total:  180ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]