memo -> richedit

kak moga ot
Memo1
item1
item2
.
moga da prehavarlq item1 i item2 v richedit v sledniqformat:
&name1=item1&name2=item2&name3=........

Ами нещо такова

procedure TForm1.Button2Click(Sender: TObject);

var

  i:Integer;

  Text:String;

begin

  Text := '';

  for i :=0 to Memo1.Lines.count-1 do

  begin

    Text := '&'+name+IntToStr(i+1)+'='+Memo1.Lines;

  end;

end;

AquilaX

____________
умният знае кога да говори, мъдрият знае кога да мълчи

tova mi e qsno ,no kak da nakaram v richedit sled &name0=item da se dolepi &name1=item1,a ne da e na vtoriq red t.e. &name0=item&name1=item1 i t.n.

procedure TForm1.Button2Click(Sender: TObject);
var
i:Integer;
Text:String;
begin
RichEdit1.Text := '';
for i :=0 to Memo1.Lines.count-1 do
begin
RichEdit1.Text := '&'+name+IntToStr(i+1)+'='+Memo1.Lines;
end;
end;

____________
умният знае кога да говори, мъдрият знае кога да мълчи