我怎么把一个string类型数据付给一个char数组(200分)

一个变量a:array [0..255] of char;
另外一个b:=edit1.text;

怎么赋值呀？

我不会写呀

帮帮忙呀，多谢

a[0]:='a';
edit1.Text :=String(a);

strcopy(a,PChar(b));//使用前先检测长度

a:=pchar(b)

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type ss=array of char;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
st:ss;
str:string;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
setlength(st,2);
st[0] := '1';
st[1] := '2';
for i:=0 to high(st) do
str := str+st;
showmessage(str);
end;

end.

strcopy正解

参与有奖

b:=PChar(edit1.text)
这一句绝对有用

[][]最好的，最稳当的做法是楼上的……

第一次给分
还不太会

呵呵