Объединение строк в мемо :)

[Jleksern]

Здравствуй...Перейду сразу к делу.

Сделал такое приложение...

memo6.Lines.Add('INSERT INTO users (name, pass, e-mail, server, comment) VALUES ('+memo1.Text+','+ memo2.Text+', '+ memo3.Text+', '+ memo4.Text +', '+ memo5.text+');');

Работает нормально.
Но вот стоит вписать место одной строчки несколько.
И получилось так...


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

Примерно вот такая система должна быть в конечном этоге)


Спасибо большое))))
И ещё одно пожалуйста, закатайте в переменную чтоб быстрее оно думало
Ещё раз спасибо, у меня компилятор делфи 7....
Пожалуйста не критикуйте меня))

[Кольша]

var
s:string;
begin
s:='...';
s:stringreplace(s,#13#10,'',[rfreplaceall]);
end;

Не?

[Jleksern]

Простите пожалуйста, мои познания не дают мне возможность воспользоваться Вашим кодом.

[Кольша]

memo6.Lines.Add('INSERT INTO users (name, pass, e-mail, server, comment) VALUES ('+stringreplace(memo1.Text,#13#10,'',[rfreplaceall])+','+ stringreplace(memo2.Text,#13#10,'',[rfreplaceall])+', '+ stringreplace(memo3.Text,#13#10,'',[rfreplaceall])+', '+ stringreplace(memo4.Text,#13#10,'',[rfreplaceall]) +', '+ stringreplace(memo5.Text,#13#10,'',[rfreplaceall])+');');

[Jleksern]

Спасибо...
Но вышло не так, как я планировал...

а нужно так...

Чтоб если существует строчка с данными она получается в memo6 такая (см. выше)

[Скандербег]

А ежели так:

  Mrmo6.Lines.Clear;
  for I := 0 to Memo1.Lines.Count-1 do
    memo6.Lines.Add('INSERT INTO users (name, pass, e-mail, server, comment) VALUES ('+
      memo1.Lines[I]+','+ memo2.Lines[I]+', '+ memo3.Lines[I]+', '+ 
      memo4.Lines[I] +', '+ memo5.Lines[I]+')');

При условии, что во всех мемо (1..5) одинаковое количество строк.

[Jleksern]

Во)))))))))))))))))))))))))))))
То что доктор прописал получилось просто ШИКАРНО ))

Спасибо)) Конечно некоторые вопросы остались открытыми для меня, по усовершенствования кода...
Но сам уже что-то придумаю))) и так часто Ваш форум терроризирую вопросами )
Ещё раз всем Вам спасибо))

[Скандербег]

Что это вы дистанцируетесь от форума. Он такой же наш как и ваш.
И служит общему делу. Т.е. для того и предназначен, чтобы кто-то вопросы задавал, а другие, если таковые найдутся, отвечали.
Так что смелее...

Только напомню из правил форума: разные вопросы в разных темах.