type TCardRecord = record
VerNo: array[0..1] of char;
CardID: array[0..17] of char;
EachRecord: array[0..336, 0..23] of char;
end;var
CardInfo: TCardRecord;请问改如何对CardInfo进行初始化?我现在的做法是:
With CardInfo do
begin
VerNo:='';
CardID:='';
for i:=0 to 336 do
EachRecord[i]:='';
end;
这样做老是提示内存某个地址访问冲突,请问应该如何初始化这个结构,特别是如何对这个结构中的二维字符数组进行初始化啊,急!
VerNo: array[0..1] of char;
CardID: array[0..17] of char;
EachRecord: array[0..336, 0..23] of char;
end;var
CardInfo: TCardRecord;请问改如何对CardInfo进行初始化?我现在的做法是:
With CardInfo do
begin
VerNo:='';
CardID:='';
for i:=0 to 336 do
EachRecord[i]:='';
end;
这样做老是提示内存某个地址访问冲突,请问应该如何初始化这个结构,特别是如何对这个结构中的二维字符数组进行初始化啊,急!
解决方案 »
- 关于财务接口的问题?
- *** 高分请问一个比较难的问题,关于Delphi6和nvarchar的 ***
- 三层结构中,在中间件的type library中声明函数,并在程序中写代码,后在客户端调用,出现‘服务器出现意外’,why?
- 怎么能让MP3文件按指定的速度播放?
- 请教如何改变ListBox当前记录颜色的问题!(在线等待)
- 滚动条
- TListView中行选择问题?
- Table的Active与close、open
- 请帮我看一下这个问题,谢谢大家了。(急的快哭了)
- help!!!!!!!!!!!!!1
- 救命,请问谁会调用动态dll,动态调用和静态调用有什么不同,dll可以是同一个吗?给分
- 各位大哥请帮帮忙呀,关于存入图片路径的两个问题。
begin
VerNo:='';
CardID:='';
for i:=0 to 336 do
for j:=0 to 23 do
EachRecord[i,j]:='';
end;
这样是不行的,类型不匹配!EachRecord[i,j]是字符型的,而后面的赋的值是字符串型的。
begin
VerNo:='';
CardID:='';
for i:=0 to 336 do
for j:=0 to 23 do
EachRecord[i,j]:=#0;//或者为#32,空串
end;
begin
VerNo:='';
CardID:='';
for i:=0 to 336 do
for j:=0 to 23 do
EachRecord[i,j]:='a';
end;
begin
VerNo:='';
CardID:='';
for i:=0 to 336 do
EachRecord[i]:='';
end;