我的编译器是 delphi2010首先我声明了一个 ansichar 静态数组s:array[0..30] of ansichar;s:='aaaaaa';这样编译器是正常通过的。然后,我试着用动态数组解决 静态不能释放的问题。s1:array of ansichar;
setlength(s1,30);
s1:='aaaaa';这样是不能通过的有什么办法可以达到上面通过语句的效果。。要求不用:string 和cstring类型。.... 求解答。。
setlength(s1,30);
s1:='aaaaa';这样是不能通过的有什么办法可以达到上面通过语句的效果。。要求不用:string 和cstring类型。.... 求解答。。
解决方案 »
- 如何在一个矩形内输出一个汉字,使这个汉字的大小刚好容纳这个矩形区域?
- 高手进来帮忙:在DELPHI下如何实现报警功能(即调用一个自已的特制音乐)
- 如何返回接口?
- FORM上放个Button或ListBox或DBGrid,FormKeyDown就不起作用了。
- 如果程序运行时出现错误提示如下,会是哪儿的原因
- 写了一个组件,其中的方法耗时大,且方法中有不能使用Application.ProcessMessages语句,有何解?如果我要加入进度条,如何加?
- 请问怎么把数据显示在一个ComboBox控件中
- 关于WIN7临时文件夹的问题
- 关于linux的问题
- 100求程序员考试怎么考?在那里报名?(20分没人理?)
- dxPack2控件包在Win7下不能安装?
- 关于realmagic,求帮助
procedure TForm1.Button1Click(Sender: TObject);
var
s1: array of AnsiChar;
begin
SetLength(s1, 100);
s1[0] := 'a';
s1[1] := 'a';
Caption := PAnsiChar(s1);
end;
s1: array of AnsiChar;
begin
SetLength(s1, 100);
Fillchar(s1[0], 5, ord('a'));
Caption := pansichar(s1);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
ac: Array of AnsiChar;
// s: AnsiString;
p: PAnsiChar;
begin
SetLength(ac, 10);
// s := 'abc';
// Move(Pointer(s)^, Pointer(ac)^, Length(s));
// Caption := ac[0] + ac[1];
p := 'abc';
StrCopy(PAnsiChar(ac), p);
Caption := PAnsiChar(ac);
end;这个没问题了,呵呵。