我定义一CHAR型数组，为起赋常量字符串能通过，为何赋变量却不行？ [code] var   str:array[0..5] of char   i:integer; begin   for i:=0 to 5 do str=inttostr(i);//这里编译无法通过 str='a';//这样能通过。 end; 还请各位大侠指教 努力，相信会做的更好！

Hi:    因為經過 IntToStr 後結果為 String，與 Char 型態不合 而 'a' 型態則為 Char -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

引言: Hi: 因為經過 IntToStr 後結果為 String，與 Char 型態不合 而 'a' 型態則為 Char -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 -------------------------------- < face="Verdana, Arial, Helvetica"> 哦！可是 str='aaaaa'; 也不会出错。 而且

Hi:    Sorry !! 看錯你的意思    IntToStr 回傳值為 String，所以與 Array 型態不相同而產生錯誤 而'aaaaa' 的型態則有些爭議，

procedure TForm1.Button5Click(Sender: TObject);
var
    Str : Array[0..5] of char;
    X : String;
begin
   X := 'abcde';
   Str := X;
   (Sender AS TButton).Caption := Str;
end;

會產生錯誤，且

procedure TForm1.Button5Click(Sender: TObject);
var
    Str : Array[0..5] of char;
begin
   Str := 'abcdefghijk';
   (Sender AS TButton).Caption := Str;
end;

只要長度超過 6(Str 長度為 6)一樣會產生相同錯誤，因此，建議最好確認型態會比較好

procedure TForm1.Button4Click(Sender: TObject);
var
    Str : Array[0..5] of char;
    I   : Integer;
begin
    FOR I := 0 TO 10 DO
        BEGIN
            StrPCopy(Str,Copy(Str   IntToStr(I),1,6));
        END;
    (Sender AS TButton).Caption := Str;
end;

-------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman

VAR str:array[0..5] of char; i:integer; begin for i:=0 to 5 do str[i]:=(AnsiLastChar(inttostr(i)))^; showmessage(str[2]); end;

VAR str:array[0..5] of char; i:integer; begin for i:=0 to 5 do str[i]:=(AnsiLastChar(inttostr(i)))^; showmessage(str[2]); end;