请问如何初始化字符串数组
t:array[1..32] of char;
如果t已经有过值以后,怎么初始化。
我试过t:='';可是编译不通过然后,字符串数组同string怎么互相转换?
t:array[1..32] of char;
如果t已经有过值以后,怎么初始化。
我试过t:='';可是编译不通过然后,字符串数组同string怎么互相转换?
解决方案 »
- 调用OCX时,本应在OCX里面运行的程序,却与OCX分开显示了,请高手指教,谢谢!
- 注册表读取的问题
- 小问题
- 在ActiveX控件中如何打开一个新的页面?
- 两个关于DBGRID的问题,谢!
- 关于查找图片上某特征部分图像的的矩形区域。图像高手请进,谢谢。
- 请问一下有谁知道Delphi6的报表控件的帮助怎么才能找到吗?
- 请问,在Chart或DBChart中,能使背景色变为多种颜色吗,比如使背景色变成红黄绿3中颜色?
- 我买了一台SLE4442读写器, 为什么不能写
- 能否在MDI主窗口的状态栏放入 按钮、编辑框、标签 等控件?
- fastreport分组问题!急急!
- 在IIS下怎么配置WebServices服务,多谢
var
t:array [1..5] of char;
s:string;
i:integer;
begin
s:=edit1.Text;
for i:=0 to length(edit1.Text)-1 do
begin
t[i+1]:=char(s[i+1]);
end; for i:=low(t) to high(t) do
begin
edit2.Text :=edit2.Text+t[i];
end;
end;