var
s:string;
num:???
n:integer;
begin
s:='12345678901234567890987654321013';
n:=strto??(s) mod 24;
end;
num 如何定义?如何转换字符为数值型?
s:string;
num:???
n:integer;
begin
s:='12345678901234567890987654321013';
n:=strto??(s) mod 24;
end;
num 如何定义?如何转换字符为数值型?
解决方案 »
- 请问Delphi中Tedit控件能否识别区分 键盘输入 和 条码扫描器输入 ??
- 请问关于一个窗体嵌入到另一个窗体上的问题。
- getpicklist函數怎么用?
- 请高手指点一下,在delphi中调用API函数时OpenLogFile(LPSTR szFile, INT fAppend);需要uses哪个单元?
- 打过劳资官司的北京朋友请进来!
- 关于Edit的简单问题
- 煎熬中 急需帮助!高手请进!
- 怎样在dbgrid中只显示查询的内容?
- delphi6的ADO如何连接Excel2002?
- 保存图片?
- dbgrideh和内嵌的checkbox的问题
- 关于FindChildControl方法,马上揭帖!!!!
Single或Double类型
有这个方法试试
var
s : String;
i,n : integer;
begin
S := '12345678901234567890987654321013';
n := 0;
while Length(S)>7 do begin
i := Strtoint(Copy(S,1,7));
Delete(S,1,7);
n := n * 1000000 + i;
n := n MOD 24;
end;
if S<>'' then begin
n := n * 1000000 + Strtoint(S);
n := n MOD 24;
end;
//到这里时,n的值就是想要的结果
end;如果被除数过请减少上面的7为6,或者5.....直到1