вставка в Word

[начинающий1]

Есть шаблон в котором есть строка ##К1...##К10
Как из компонента Edit вставить текст посимвольно в строку ##К1...##К10 ?

FindAndInsert('###К1',Edit1.Text);//вставляется вся строка в ##К1, а как посимвольно вставить в ##К1...##К10 ?

[bitSoft]

var
 i : integer;
begin
 for i := 0 to Length(Edit1.text) do
  K := K + Edit1.Text[i];   
end;

//Vrode tak

[начинающий1]

bitSoft
спасибо, есть еще один ньюанс, допустим если в Edit только три символа. Как тогда сделать, чтобы вместо ##К4...##К10 в шаблоне писались знаки пусто ' ' ?

[bitSoft]

Сообщение от начинающий1

bitSoft
спасибо, есть еще один ньюанс, допустим если в Edit только три символа. Как тогда сделать, чтобы вместо ##К4...##К10 в шаблоне писались знаки пусто ' ' ?

var
 i : integer;
begin
  for i := 0 to 10 do
  if i <= Length(Edit1.text) then
   K := K + Edit1.Text[i] else
   K := K + ' ';
end;

// Pahodu shto tak, prosta leni otkrivaty Delphi.

[начинающий1]

bitSoft
Спасибо еще раз!
Все хорошо, но если код использовать несколько раз для разных Edit, то медленно работает зараза.Может есть другое решение? Что скажете?

[начинающий1]

bitSoft
Все хорошо, но если код использовать несколько раз для разных Edit, то медленно работает зараза.Может есть другое решение? Что скажете?