关于PCHAR(10分)

procedure TForm1.Button1Click(Sender: TObject);
var
dataptrchar;
maxdatalength:word;
s:array [0..200000] of char;
begin
dataptr:=StrAlloc (2000*SizeOf(char));
s:='dfsdf';
dataptr:=@s;
Edit1 .text:=dataptr^;
// StrDispose(dataptr);
StrDispose(dataptr);
end;

你的写法有问题，我改了一下，你看看吧。
对了，你都不说说有什么问题或错误，乍一看不知云里雾里的。
var
dataptrchar;
maxdatalength:word;
s:array [0..200000] of char;
begin
dataptr:=StrAlloc (2000*SizeOf(char));
s:='dfsdf';
Move(s,dataptr^,8);//这里不能写Length(s)，它返回200001
//dataptr:=@s;
Edit1.text:=dataptr;
StrDispose(dataptr);
end;

string是delphi内定义类型,pchar则是一个指针字符串
用于底层一般用pchar，相互转换的话strpas(pchar);//pchar转成string
strpcopy(pchar,string); //string转成pchar

敬请笑纳吧，虽然很少