Ускорение работы цикла

[Jleksern]

Каким образом можно повысить работу данного скрипта?

for i := 0 to Mmo1.Lines.Count-1 do
    mmo3.Lines.Add('INSERT INTO '+cbb1.Text+' (name, password) VALUES ('''+
      mmo1.Lines[I]+''','''+ mmo2.Lines[I]+''');');

Примерно предполагаю что нужно использовать TStringList, но как его адаптировать Я не знаю.

Дело в том что скрипт работает медленно, на то чтоб он объединил миллион строк с мемо1,мемо2 в мемо3 уйдет очень много время.

[Yurk@]

а в чем суть данного обьединения ?
создать INSERT - скрипт на миллион строк ? О_о

[Jleksern]

Суть в том что у меня есть 2 текстовика в которых простые слова.
В каждом документе по миллиону строк, в строке одно слово.
Мы объединяем строки, первую строку из первого мемо объединяем с первой строкой второго мемо.
Дальше добавляем операторы чтоб потом загнать в Базу Данных.

Примерно получается так.
Мемо1 Мемо2
Строка1 Строка11
Строка2 Строка22
Строка3 Строка33

Мемо3
INSERT INTO users (name, password) VALUES ('Строка1','Строка11');
INSERT INTO users (name, password) VALUES ('Строка2','Строка22');
INSERT INTO users (name, password) VALUES ('Строка3','Строка33');

Объединением строк занимается код с моего первого поста.

Вот только проблема чтоб усовершенствовать код ибо очень долго объединяет таким образом.

[BDA]

Попробуйте:

mmo3.Lines.BeginUpdate;
for i := 0 to Mmo1.Lines.Count-1 do
    mmo3.Lines.Add('INSERT INTO '+cbb1.Text+' (name, password) VALUES ('''+
      mmo1.Lines[I]+''','''+ mmo2.Lines[I]+''');');
mmo3.Lines.EndUpdate;

Это топорный вариант. Лучше придумать что-нибудь более красивое (не насчет объединения строк, а насчет вставки в базу - может есть возможность вставлять сразу несколько данных, а не одно).

[Slym]

псевдокод

Comand.CommandText:='INSERT INTO '+cbb1.Text+' (name, password) VALUES (:name , :password);';
Comand.Prepared:=true;
for i := 0 to Mmo1.Lines.Count-1 do
begin
Comand.parameters[0]:=mmo1.Lines[I];
Comand.parameters[1]:=mmo2.Lines[I];
Comand.Execute;
end;

[Jleksern]

Благодарю Вас за ответы.

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

Попробуйте:

mmo3.Lines.BeginUpdate;
for i := 0 to Mmo1.Lines.Count-1 do
    mmo3.Lines.Add('INSERT INTO '+cbb1.Text+' (name, password) VALUES ('''+
      mmo1.Lines[I]+''','''+ mmo2.Lines[I]+''');');
mmo3.Lines.EndUpdate;

Это топорный вариант. Лучше придумать что-нибудь более красивое (не насчет объединения строк, а насчет вставки в базу - может есть возможность вставлять сразу несколько данных, а не одно).

Дело в том что все данные сбегаются с разных источников, могут быть уже с готовым запросом либо ещё в другом формате к примеру в виде мыла.
И чтоб не было дубликатов нужно всё привести к одному целому по которому можно будет найти дубликаты строк.
Я решил именно таким способом.
Потому что чтоб провести проверку на дубликаты понадобиться ещё дампнуть БД, в базе данных оно будет именно в таком варианте.

[Serge_Bliznykov]

возьмите вместо TMemo (который визуальный) невизуальный TStringList
думаю, что Вы будете удивлены приростом скорости!

[Аватар]

StringList будет быстрей без вариантов. Но можно и другим путем пойти. Вот, например, провайдер JET OLEDB поддерживает запросы из текстовых файлов с разделителями. И если ваша СУБД может обращаться к другим источникам данных, то создать один текстовый файл с уже сформированными строками и одной командой INSERT загнать все в базу. Удивлению не будет границ