我想把字符串相加，怎么做？在线等 待，立马结贴

Question

我有一个dbgrid控件，里面有一个字段'A',A字段里面有若干条记录。
同时我的form里面有一个edit控件，我现在想把光标定在edit中，然后我点击dbgrid的A字段就把所选 中的那条记录添加到edit中，光标停在哪 儿就在哪 儿插入相应的字段，请问怎么做？

Answer 1

var
 tempstr:string;
begin
  tempstr:=adoquery.fieldbyname('A').asstring;
  edit.text:=edit.text+tempstr;
end;不就ok了吗？

Answer 2

楼上那个只不过可以在edit里面的字符后面插入，我想随意在其中插入怎么做

Answer 3

allan2002(丸子) 的办法只是能在edit字符的最后面插入，我现在想随意插入，怎么做

Answer 4

就是说，我光标放在edit中的哪 个位置，就从这个位置后开始插入字符

Answer 5

不是开玩笑吧?光标在你去点击DBGrid的时候就已经不在Edit里了.除非是这样，你在Edit中单击鼠标或移动光标的时候，用一个变量记录下光标在edit字符串中的位置并在这一位置把edit中的字符串分为两个Str1和Str2，然后在单击Dbgrid时，取得其字符串为Str3。然后就
edit1.Text := Str1+Str3+str2;
OK?

Answer 6

用函数 StrCopy 
    StrCopy(串1,串2);

Answer 7

var
i:integer;
string1:string;
Value1:string;
begin
  string1:=edit1.text;
  Value1:=query1.FieldByName('id').AsString;
  i:=edit1.SelStart;
  insert(value1,string1,i+1);
  edit1.Text:=string1;
end;

Answer 8

用函数 StrCopy 
    StrCopy(串1,串2);
好象也不行啊,还有没有什么办法啊，急啊

Answer 9

这样简单一点：procedure TForm1.Button1Click(Sender: TObject);
var s1,s2:string;
    i:integer;
begin
    s1:=Edit1.text;
    s2:=Edit2.text;
    i:=length(s2)+1;
    Insert(s1,s2,i);
    Edit3.Text:=s2;
end;