社区
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上的数可不可以都靠右边。
谢谢了
...全文
79
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要如何使用呢,下面就给大家分享具体步骤。一:软件启动双击软件包内的图标即可启动该软件。二:软件设定:在菜单栏中找到菜单并...
MFC中怎么让一个函数中的
数据
在
Edit
Box中显示?
FILE *fPtr = fopen (fullFileName, "r" ); //fullFileName是文件全名(包括路径和后缀) ...GetDlgItem(ID_
EDIT
_BOX)->SetWindowText(
edit
boxText); //ID_
EDIT
_BOX为
edit
box的ID
EmWin中
Edit
工具实时更新
数据
方法
EmWin中
Edit
工具实时更新
数据
方法。使用DHT11传感器,在
Edit
中实时显示
数据
。
Layui
数据
表格 table 行
数据
修改
edit
:text/
edit
:true
Layui
数据
表格 table 行
数据
修改
edit
:text/
edit
:true
Delphi
5,379
社区成员
262,722
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章