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

[FaTaL]

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

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

Извиняюсь. Недоглядел.

[diomed16]

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

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

я сейчас создал проект.
кинул на форму 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;

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

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

Не так я делал то, что s:=s+.... делал, вместо s[i]. А что не договорил, так это то, что я гораздо больше 10000 ставил. Миллион, десять миллионов...

[Serge_Bliznykov]

Миллион, десять миллионов...

ну, во-первых, в цикле заполнения делайте периодически (ну, например, каждые 2000 символов) вызов Application.ProcessMessages();
Это позволит производить обработку оконных сообщений и программа перестанет "висеть".

во-вторых, нужно кинуть на форму прогресс-бар и показывать процесс выполнения.

в-третьих, нужно полностью исключить из процесса генерации визуальные компоненты.
Для чего Вам мусор в Memo? Тем более миллионы, десятки миллионов символов.
Это я уже молчу про абсолютно неясную (мне) конечную цель всех этих манипуляций...

успехов!