社区
Delphi
帖子详情
有关edit上数据的问题?
jizai
2003-08-19 09:36:22
如何在edit上能输入如00000120的数据,
并能像00000120+00000140=00000260
因为edit3.text:=inttostr(strtoint(edit1.text)-strtoint(edit2.text));
我这样输的话,在edit1上输0002,edit2上输0005,edit3得到的并不是0007,而是7
我想请教该怎样做,
另外edit上的数可不可以都靠右边。
谢谢了
...全文
85
11
打赏
收藏
有关edit上数据的问题?
如何在edit上能输入如00000120的数据, 并能像00000120+00000140=00000260 因为edit3.text:=inttostr(strtoint(edit1.text)-strtoint(edit2.text)); 我这样输的话,在edit1上输0002,edit2上输0005,edit3得到的并不是0007,而是7 我想请教该怎样做, 另外edit上的数可不可以都靠右边。 谢谢了
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
11 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
dawnxiao
2003-08-19
打赏
举报
回复
edit3.text:=format('%.5d',[(strtoint(edit1.text)-strtoint(edit2.text))]);
5是长度,
例如:00001
换成6就是000001
foxstarx
2003-08-19
打赏
举报
回复
最好还是用format
lxpbuaa
2003-08-19
打赏
举报
回复
kaximoduo(卡西摩多) :
可以将SetWindowLong放在Form.OnCreate事件里
————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
kaximoduo
2003-08-19
打赏
举报
回复
SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE)+TA_RIGHT);
应放在哪呢?
kaximoduo
2003-08-19
打赏
举报
回复
那设置在最右边的属性是哪个呢
如何用format将edit输入的形式设置为0007呢?
lxpbuaa
2003-08-19
打赏
举报
回复
另外edit上的数可不可以都靠右边:
SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE)+TA_RIGHT);
————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
fansnaf
2003-08-19
打赏
举报
回复
procedure TForm1.Button2Click(Sender: TObject);
var
i: integer;
str: string;
begin
for i := 1000 to 1005 do
begin
showmessage(copy('0000000000',1,10-length(inttostr(i)))+inttostr(i));
end;
end;
lxpbuaa
2003-08-19
打赏
举报
回复
var
S: String;
begin
S := IntToStr(strtoint(edit1.text)-strtoint(edit2.text));
S := StringOfChar('0', 4-Length(S)) + S;
edit3.text:= S;
end;
————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
mingjunlee
2003-08-19
打赏
举报
回复
可以用以下方法:
var
Num1:Integer;
Num2:Integer;
Str:String;
Str1,Str2:String;
begin
Num1:=120;
Num2:=140;
Str:=IntToStr(Num1);
Str1:=Copy('000000',1,6-Lenth(Str))+Str;
Str:=IntToStr(Num2);
Str2:=Copy('000000',1,6-Lenth(Str))+Str;
end;
//以上方法可以得到你要的数字形式
在你的Edit的Change事件中写下以上的数字转换方法,就可以得到你要的结果了
gegangqiao
2003-08-19
打赏
举报
回复
都靠右边是可以的,不过我不记得是哪个属性了。
至于是7还是0007,你可以用FORMAT设置一下就可以了。
susanxjuan
2003-08-19
打赏
举报
回复
同意dawnxiao(曙光.net)
Android 根据
Edit
Text搜索框ListView动态显示
数据
Android 根据
Edit
Text搜索框ListView动态显示
数据
根据SimpleAdapter创建ListView。简单粗暴
cimco
edit
v5怎样模拟刀路_Cimco
Edit
5如何使用?Cimco
Edit
5使用方法
Cimco
Edit
5具有
数据
编辑、DNC传输、刀轨分析等功能,是一款数控编程软件。Cimco
Edit
5要如何使用呢,下面就给大家分享具体步骤。一:软件启动双击软件包内的图标即可启动该软件。二:软件设定:在菜单栏中找到菜单并...
ENVI 5.X 遥感影像处理入门实战教程(GIS思维)
《ENVI 5.X 遥感影像处理入门实战教程》以ENVI5.3版本进行实战教学(适用ENVI5.X各版本学习),从软件...提供课程内
问题
的学习的提问解答,更快更好的解决
问题
。课程提供课件与
数据
) ,
数据
及课件点击学习资料处下载。
MFC中怎么让一个函数中的
数据
在
Edit
Box中显示?
FILE *fPtr = fopen (fullFileName, "r" ); //fullFileName是文件全名(包括路径和后缀) ...GetDlgItem(ID_
EDIT
_BOX)->SetWindowText(
edit
boxText); //ID_
EDIT
_BOX为
edit
box的ID
fsimage与
edit
log详解
NameNode维护了文件与
数据
块的映射表以及
数据
块与
数据
节点的映射表,而真正的
数据
是存储在DataNode上。 对于NameNode如何存储这些信息,它维护两个文件,一个是fsimage,一个是
edit
log。 2 fsimage与
edit
log作用 ...
Delphi
5,392
社区成员
262,731
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章