还没听说过这样的函数,
for i =0 to 10 do
begin
a[i]:=i;
end;
for i =0 to 10 do
begin
a[i]:=i;
end;
解决方案 »
- 直角三角形顶点坐标问题
- 100分求救 Midas错误,急急急!!!
- NMSMTP控件在哪个标签下,我怎么找不到啊??
- 关于数据库恢复的问题!!请大家指教!
- 谁能告诉我TDWindow和TDButton是哪类控件中的类,100分相送
- 通过database连数据库,再加一个table和dbgrid组件,如何设置属性使dbgrid里面显示表的类容啊?
- 怎么把OleContainer1里的WORD文档第一行内容要出来?
- 请高手进来debug!
- 向真正的高手请教:如何限制上网(IE浏览、QQ、……),只有满足权限的用户才能?
- 我下载的(pdf类型的)delphi书籍为什么不能打开?
- 用ado,写的SQL语句执行有问题(日期/时间)类型(在线等待,对了立即给分,我的分太多了)
- 需要QQ号码,给分。
s: string;
i: integer;
ch: array[0..9] of char;
begin
for i:=0 to 10 do
begin
ch[i]:=s[i];
end;
end;
在DELPHI中,String即AnsiString,是字符串,也是数组,生存期自管理。
var str:String;
arr1:array of char;//动态数组
arr2:array[0..100]of char;//静态数组
i:integer;
begin
str:='abcdefgdllll12553';
setLength(arr1,Length(str));
for i:=0 to Length(str))-1 do
begin
arr1[i]:=str[i+1];//str下标从1开始
arr2[i]:=str[i+1];
end;
var
s:string;
chs:array[0..9] of char;
i:integer;
begin
for i:=0 to 9 do
chs[i]:=s[i];
end;
Dstr : array of char;
Sstr : array[1..MAX] of char;
...
//字符串2字符数组
CopyMemory(@SStr[1],@s,length(s);
//动态数组2静态数组
CopyMemory(@SStr[1],@Dstr[1],length(Dstr);
CopyMemory(@SStr[1],@s,length(s);
应为
//字符串2字符数组
CopyMemory(@SStr[1],@s[1],length(s);