Вставка пробела

[Лёшка228]

Здраствуйте,помогите пожалуйста,делаю так:после символа ';' перевожу на новую строку,и надо поставить пробел с новой строки и текст потом,а у меня не получаеться!заранее спасибо!

[lexaltd]

Memo1.Lines.Add (Edit1.Text +#13#10+'  '+Edit2.Text);

А так например

[Лёшка228]

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

Memo1.Lines.Add (Edit1.Text +#13#10+'  '+Edit2.Text);

А так например

А зачем тут editы?

[lexaltd]

Сообщение от Лёшка228

А зачем тут editы?

замени editы на переменные
Если бы ты показал код который не получаетcя , было бы проще понять , что ты хочеш

[Квэнди]

Сообщение от Лёшка228

Здраствуйте,помогите пожалуйста,делаю так:после символа ';' перевожу на новую строку,и надо поставить пробел с новой строки и текст потом,а у меня не получаеться!заранее спасибо!

где вы это все делаете ? пока складывается впечатление что у вас в IDE не нажимается пробел.

[Лёшка228]

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

замени editы на переменные
Если бы ты показал код который не получаетcя , было бы проще понять , что ты хочеш

procedure TForm1.BitBtn1Click(Sender: TObject);
const
 ch:char=';';
var
  k:integer;
  s:string;
begin
  k:=1;
  s:=Memo1.Lines.Text;
  while k<length(s) do
  begin
    if s[k]=ch then                 //если очередной символ равен ch
      insert(#13,s,k+1);         //то вставляем после него символ переводим строку
    inc(k);
  end;
  Memo2.Lines.Text:=s;      //выводим результат в Memo2
end;

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

[DarkEvil]

insert(#13,s,k+1); //то вставляем после него символ переводим строку

Насколько я понял, нужно зделать так:
insert(#13#10 + ' ',s,k+1);

[Лёшка228]

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

Насколько я понял, нужно зделать так:
insert(#13#10 + ' ',s,k+1);

спасибо большое