Более быстрое заполнение строки

[diomed16]

Хотел набить Мемо рандомными символами. Но этот жудкий кодъ жутко тормозит. Если переменную pass задать больше пары тысяч, то это длится очень долго, так как же можно оптимизировать одну строчку кода? Неужели процессору так сложно перебрать несколько тысяч символов?


for i := 0 to pass do
begin
s:=s+chr(33+random(92));
end;
Memo1.Lines[0]:=s;

[Аватар]

Для s каждый раз память по новой в цикле выделяется. А так:

MaxLen:=10000;
SetLength(s,MaxLen);
for i := 1 to pass do
begin
  s[i]:=chr(33+random(92));
end;
Memo1.Lines[0]:=Copy(s,1,pass);

[Serge_Bliznykov]

MaxLen:=10000;
SetLength(s,MaxLen);

простите, не понял, а зачем выделять больше, чем нужно?!

разве так не будет работать?

SetLength(s,pass+1);
for i := 1 to pass do
  s[i]:=chr(33+random(92));
Memo1.Text:=Copy(s,1,pass);

[diomed16]

Спасибо, про память не подумал. Да в учебниках Дельфи про это особо не пишут. Это в с++ чуть ли не с первого урока)

[FaTaL]

И каждую итерацию цикла обращаться к VCL не айс. Лишние тормоза.
Лучше сделать перед циклом Memo1.BeginUpdate и в конце Memo1.EndUpdate;

[Аватар]

зачем выделять больше, чем нужно

Из предположения, что не одна строка в мемо пишется и длины разные. Один раз выделить и забыть

[diomed16]

Да вроде не обращаюсь, в цикле ведь только к строке s обращение идёт. А можно как-нибудь отдельный поток выделить? Или это сложная штука?

[evg_m]

А можно как-нибудь отдельный поток выделить? Или это сложная штука?

можно-то можно. НО!
для НЕПОСРЕДСТВЕННОГО заполнения memo (Memo1.Text и т.п.) ОБЯЗАТЕЛЬНО придется вернутся в основной поток. Ну не любит VCL (не предусмотрено/ не рекомендуется) работать с доп. потоками.
А время заполнения исходной строки если выполнить рекомендации про память и так сократится.

В тоже время в потоках никто не запрещает использовать сообщения Windows (PostMessage) и заполнять мемо на основе данного. Осталось разобраться (при желании) что это такое и с чем это едят.

[diomed16]

Сообщение от evg_m

можно-то можно. НО!
для НЕПОСРЕДСТВЕННОГО заполнения memo (Memo1.Text и т.п.) ОБЯЗАТЕЛЬНО придется вернутся в основной поток. Ну не любит VCL (не предусмотрено/ не рекомендуется) работать с доп. потоками.
А время заполнения исходной строки если выполнить рекомендации про память и так сократится.

В тоже время в потоках никто не запрещает использовать сообщения Windows (PostMessage) и заполнять мемо на основе данного. Осталось разобраться (при желании) что это такое и с чем это едят.

Спасибо, насчёт VCL в потоках я уже прочитал. Потому что поток выделил, а программа всё равно зависшая вся.

[Serge_Bliznykov]

Сообщение от diomed16

Спасибо, насчёт VCL в потоках я уже прочитал. Потому что поток выделил, а программа всё равно зависшая вся.

что-то Вы не договариваете или вводите нас в заблуждение...

я сейчас создал проект.
кинул на форму Memo и кнопку.
на кнопку назначил код:

procedure TForm1.Button1Click(Sender: TObject);
var s : string;
 i, pass, MaxLen : integer;
begin
pass:=10000;
SetLength(s,pass+1);
for i := 1 to pass do
  s[i]:=chr(33+random(92));
Memo1.Text:=Copy(s,1,pass);
end;

выполняется меньше секунды.

Что Вы делаете не так? Или у Вас компьютер старенький и дохленький?