Соединить слова по их count

[Jleksern]

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

Как соединить слова по строчкам
в memo1 текст
123
в memo2
222
то в мемо3
получается так
123:222

Ну вот пример

или

[Пепел Феникса]

с проверкой на минимум строк(min помоему в модуле math):

for i:=0 to min(Memo1.Lines.Count,Memo2.Lines.Count) do Memo3.Lines.Add(Memo1.Lines[i]+':'+Memo2.Lines[i]);

[Jleksern]

скорость работы данного кода малая))

Как можно увеличить по максимуму?

[Stilet]

скорость работы данного кода малая))

А что данных так много?

[s-andriano]

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

скорость работы данного кода малая))

Как можно увеличить по максимуму?

Тогда надо все делать в памяти, а в memo выводить только результат. И то - последнее сомнительно, т.к. время вывода будет существенно превышать время обработки (выводить в файл?).

[artemavd]

Какие-то странные замуты у вас на элементарную задачу. Все ж просто:

procedure TForm30.sButton1Click(Sender: TObject);
var
 i: Integer;
begin
 sMemo3.Clear;
 for i := 0 to sMemo1.Lines.Count - 1 do
   begin
     sMemo3.Lines.Add(sMemo1.Lines.Strings[i] + ':' + sMemo2.Lines.Strings[i])
   end;
end;

[Jleksern]

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

Какие-то странные замуты у вас на элементарную задачу. Все ж просто:

procedure TForm30.sButton1Click(Sender: TObject);
var
 i: Integer;
begin
 sMemo3.Clear;
 for i := 0 to sMemo1.Lines.Count - 1 do
   begin
     sMemo3.Lines.Add(sMemo1.Lines.Strings[i] + ':' + sMemo2.Lines.Strings[i])
   end;
end;

Да товарищ модератор, я тоже подобный Вашему коду сопоставил, но мне не получилось превысить скорость загрузки в мемо больше чем 1 мб в секунду (по примерным подсчётам).

Просто такая программа было бы удобная для сортирования вырезки из БД, Дампов и т.д.
Это и БД различных форумов, сайтов, мыл, игровых серверов и т.д. и т.п.
Чтоб разделить быстро и по разному (к примеру нужно извлечь с текст файлла в котором храняться данные в виде nameass только пароли.
Вот приходиться вечно вертеться в поисках нового :-)
Спасибо всем за помощь

Stilet, да очень большие базы, которые собираются на протяжении большого количества времени и нужно всё уложить по полкам.


"Тогда надо все делать в памяти, а в memo выводить только результат. И то - последнее сомнительно, т.к. время вывода будет существенно превышать время обработки (выводить в файл?). "
s-andriano, тоесть Я Вас правильно понял, можно ещё больше разогнаться только к примеру если место того чтоб выводить в memo сразу чтоб сохраняло на диск ?...Кстати идея хорошая.


Пепел Феникса, Спасибо за помощь

[Пепел Феникса]

artemavd, а если разное количество строк?

ТС, вам так ли нужно МЕМО вообще?
можно все делать в TStringList.

[Jleksern]

Сообщение от Пепел Феникса

artemavd, а если разное количество строк?

ТС, вам так ли нужно МЕМО вообще?
можно все делать в TStringList.

Не столько обязательно. Но желательно и чтоб была возможность просмотреть само содержание текстового файла.

Да можно и хотелось бы сделать в StringList чтоб была возможность оперативно загрузить и рассортировать, но вот не всегда у меня получается.
Всё упирается в недостаточности знаний и в сторону малого опыта с данной средой.

[Пепел Феникса]

а в чем трабла?
TStringList просто надо создать.
а остальное оно как и TMemo.Lines(ибо наследник TStrings)