2个字符串相连如何弄?

Question

比如'工资'和'信息'相连,变成'工资信息'还有就是edit1.text和edit2.text相连

Answer 1

str1:='aaa'
str2:='bbb'
a:=str1+str2a就是aaabbb

Answer 2

function Concat(s1 [, s2,..., sn]: string): string;

Answer 3

那你们看看我写的代码有什么问题,谢谢了procedure TfrmEditGs.ListBoxGzDblClick(Sender: TObject);
begin
    if editleft.Focused=true then
        editleft.Text:=editleft.Text+listboxgz.Items[listboxgz.itemindex];
    if editright.Focused=true then
        editright.Text:=editright.Text+listboxgz.Items[listboxgz.itemindex];
    if editleft.Focused=false and editright.Focused=false then
        messagebox(handle,'请您填写字段名！','警告',mb_ok);end;我试过比如:edit1.text:=listboxgz.items[listboxgz.itemindex];这样可以实现.

Answer 4

呵呵，都对。
如果你是数据库中的字段，那么就是计算字段的问题
比如：
table1.fieldbyname('工资信息').value:=table1.fieldbyname('工资').value+table1.fieldbyname('信息').value;

Answer 5

是不是因为我用的那个edit1是dbedit的问题?

Answer 6

edit1.text+edit2.text
edit1.text+edit2.text
edit1.text+edit2.text
edit1.text+edit2.text
edit1.text+edit2.text
edit1.text+edit2.text
edit1.text+edit2.text

Answer 7

在Form中再加一个edit控件，一个command控件！试一下以下代码：
       
　　　　procedure TForm1.Button1Click(Sender: TObject);
　　　　begin
    　　　　edit3.text:=concat(edit1.text,edit2.text);
　　　　end;