Label1.Caption := 'CPUID[1] = ' IntToHex(CPUID[1],8); Label2.Caption := 'CPUID[2] = ' IntToHex(CPUID[2],8); Label3.Caption := 'CPUID[3] = ' IntToHex(CPUID[3],8); Label4.Caption := 'CPUID[4] = ' IntToHex(CPUID[4],8); 我想改用一个EDIT控件，（注：上面的LABEL控件将删除掉）EDIT的文本内容等于上面四行IntToHex(CPUID[1],8)的内容合在一起。（注：不需要前面的'CPUID[1] = ）请问各位前辈，该代码如何写？谢谢！

------
我的编程起步于ktop，我将永远支持ktop

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  CPUID: array[1..4] of Integer;
begin
  for i:=1 to 4 do
    CPUID[i] := i 5000;
  Edit1.Text := '';
  for i:=1 to 4 do
    Edit1.Text := Edit1.Text IntToHex(CPUID[i],8);
end;

有點狐疑....

有没有更简单一点的，就是直接EDIT1.text= 就一行代码的？好象用什么const连接字符串操作？

------
我的编程起步于ktop，我将永远支持ktop

ntjrr您好： 写成如下，是不是您所要的： Edit1.Text:=IntToHex(CPUID[1],8)+' '+IntToHex(CPUID[2],8)+' '+IntToHex(CPUID[3],8)+' '+IntToHex(CPUID[4],8); 相互之间加上一个空格，不想的话，您可不加，即写成： Edit1.Text:=IntToHex(CPUID[1],8)+IntToHex(CPUID[2],8)+IntToHex(CPUID[3],8)+IntToHex(CPUID[4],8);     ============================ 为什么经过多年以后，得失的过程如此冷漠 ============================