char陣列 如何 轉成string呢 有函數可以轉嗎 怎麼用呢

Hi pricejit2,

procedure TForm1.Button1Click(Sender: TObject);
var
  A : Array[ 0..79] of Char;
  S : String;
begin
  S := 'Hello !! How Are You !?';
  StrCopy(A,PChar(S));
  Edit1.Text := String(A); // Or Edit1.Text = A;
end;

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

------
Fishman

好像可以直接指定給string 吧..

procedure TForm1.Button1Click(Sender: TObject);
var
   c : array[0..255] of char;
   s :string;
   i : integer;
   p :PChar;
begin
   for i:=0 to 25 do
      c[i]:=Chr(i 65);
   c[i]:=#0;
   s:=c;
   ShowMessage(s);
   P:=@c[0];
   ShowMessage(p);
   s:=p;
   ShowMessage(s);
end;

試試..我是用delphi6 你查查delphi 的help strpas strPCopy strPLCopy 發表人 - aip999 於 2005/09/13 19:35:03 發表人 - aip999 於 2005/09/13 19:37:47

String的記憶體架構  是 integer紀錄長度 + 資料 Pchar的記憶體架構  是一個指標 指到 資料 + 0x00    以下是我的  Code的    

var
   cc : array[0..10] of char;
   int1 : integer;
   str1 : string;
begin
   StrCopy(cc,'1234');
   for int1:=0 to 3 do
      showmessage(cc[int1]);       str1 := string(cc);
       或
   str1 := cc;
   showmessage(str1);

發表人 - acqua 於 2005/09/14 17:24:44