5,386
社区成员
发帖
与我相关
我的任务
分享在DELPHI中如何将EDIT.TEXT的内容付给字符数组请举例，返回PCHAR类型的函数如何写
在DELPHI中如何将EDIT.TEXT的内容付给字符数组请举例，返回PCHAR类型的函数如何写
...全文
请发表友善的回复…
发表回复
活力华华哥 2003-09-15
- 打赏
- 举报
在处理字赋串和字符数组时有什么区别？ Ｃ与ＰＡＳＣＡＬ 的区别是什么？
FrameSniper 2003-09-14
- 打赏
- 举报
var
ChrArray:Array of Char;
begin
SetLength(ChrArray,Length(Trim(Edit1.Text)));
for I:=Low(ChrArray) to High(ChrArray) do
ChrArray[I]:=Trim(Edit1.Text)[I];
end;
强制类型转换！
ChrArray:Array of Char;
begin
SetLength(ChrArray,Length(Trim(Edit1.Text)));
for I:=Low(ChrArray) to High(ChrArray) do
ChrArray[I]:=Trim(Edit1.Text)[I];
end;
强制类型转换！
立志做一个佳娃~ 2003-09-14
- 打赏
- 举报
第二个问题不用写函数
使用强制类型转换，，
如
pchar('abc');
使用强制类型转换，，
如
pchar('abc');
立志做一个佳娃~ 2003-09-14
- 打赏
- 举报
procedure TForm1.Button1Click(Sender: TObject);
var
aa:array [1..6] of char;
bb:string;
i:integer;
begin
edit1.text:='123456';
bb:=edit1.text;
for i:=1 to 6 do
begin
aa[i]:=bb[i];
showmessage('aa['+inttostr(i)+']='+bb[i]);
end;
end;
