KHDM: Array of Char;
I: Integer;
...
SetLength(KHDM,12);
FDBFStream.ReadBuffer(KHDM,12);
FRec.KHDM := String(KHDM;//FRec.KHDM为一个STRING型
天啊,出错!!!
然后我又改成 For i:= High(KHDM) downto 0 do
Begin
FRec.KHDM := KHDM[i + 1] + FRec.KHDM;
End;
居然还是出错!!
我改怎么办???
I: Integer;
...
SetLength(KHDM,12);
FDBFStream.ReadBuffer(KHDM,12);
FRec.KHDM := String(KHDM;//FRec.KHDM为一个STRING型
天啊,出错!!!
然后我又改成 For i:= High(KHDM) downto 0 do
Begin
FRec.KHDM := KHDM[i + 1] + FRec.KHDM;
End;
居然还是出错!!
我改怎么办???
解决方案 »
- 关于delphi QGraphics的引用问题。
- 请教关于TClientDataSet过滤的问题
- 在阻塞模式下,怎么设置连接Socket服务器(connect)的超时时间?
- 在DELPHI中怎样实现通过域名得到IP地址?
- 请问,单元的Private、Public、Publiced的区别
- 问个关于DELPHI和SQL2000开发的问题,急!
- win2000怎么关机
- 带来一个mm,散分
- 在用showmodal打开的窗口里执行application.minimized为什么无效呢,大家说怎么该命令有效
- delphi的OCX能调用 asp.net的web服务吗?
- 打包问题,谢谢
- 能否在同一个表内使用外连接?在线等!
str : string;
c : array[0..10] of char;str := c;这样也ok
Type PRecordStruct = ^TRecordStruct;
TRecordStruct = record //记录结构
KHDLDM, KHXLDM, CQXH, FSJE, FSSL, ZQLBDM, CZLBDM, GYLBDM, WTJG, YJBL: Real;
CDBZ, WTLB, XJZP, HBDM, JYSDM, MMLXDM, BJZT, JKZT, CLBZ, LB: Char;
GYDM: string[12];
KHDM, KHXM, ZJZH, GDDM, GDXM, ZSGDDM, XDM, FSRQ, FSSJ, ZQDM,
ZJLBDM, XWDM, HTXH, CJHM, KHQC, SFZH, TXDZ, DHHM: String;
End;
TArrayRecord = Array of PRecordStruct; TMainTable = class(Tobject)
private
FArrayFieldElement: Array of TFieldElement;//字段结构
procedure FieldValue(var FFElement: TFieldElement;
var FRec: TRecordStruct; FieldNo: integer);... ...
implementation
... ...
SetLength(tempNewData,100);
GetMem(tempNewData,SizeOf(TArrayRecord)); FieldValue(FArrayFieldElement[j],temPNewData[i]^,j);
想哭呀!!!
TRecordStruct = record //记录结构
KHDLDM, KHXLDM, CQXH, FSJE, FSSL, ZQLBDM, CZLBDM, GYLBDM, WTJG, YJBL: Real;
CDBZ, WTLB, XJZP, HBDM, JYSDM, MMLXDM, BJZT, JKZT, CLBZ, LB: Char;
GYDM: string;//////////这里改了一下
KHDM, KHXM, ZJZH, GDDM, GDXM, ZSGDDM, XDM, FSRQ, FSSJ, ZQDM,
ZJLBDM, XWDM, HTXH, CJHM, KHQC, SFZH, TXDZ, DHHM: String;
End;
SetLength(tempNewData,100);
GetMem(tempNewData,SizeOf(TArrayRecord));
这里出错了,其中定义为:
tempNewData: TArrayRecord;
该怎么改一下呀?
这个不要
TArrayRecord = Array of TRecordStruct;
这个这样改
GetMem(tempNewData,SizeOf(TArrayRecord));
这个不要
呵呵,我试过了,不出错
I: Integer;
...
SetLength(KHDM,12);
FDBFStream.ReadBuffer(KHDM[0],12);
FRec.KHDM := String(KHDM)