摘要:
function TRtcHugeString.Get: AnsiString; var a,b,loc:integer; FPack2:PRtcStrArr; begin if FCount>1 then begin SetLength(Result, FSize); loc:=1; for a: 阅读全文
摘要:
type TBytes = array of Byte; function Str2Bytes(const S: string): TBytes; var AnsiStr: AnsiString; begin if S = '' then begin Result := nil; // 或者设置为长 阅读全文
摘要:
if (AItem = cxGrid1DBTableView1cgsl) and (key in [106, 107, 109, 111]) then begin if AEdit <> nil then if AEdit.ClassType = TcxCalcEdit then //如果是计算器 阅读全文