比如我有10个edit 如果我只有其中的四个输入的值。其它都为空。 我有什么方法可得出输入数值的edit的caption 我现在只能用if 去判断。 但是如果我再增加edit。if 又得去改。我不知道有没有更加有效的办法。或者说只能像我这样写。请大家指教一下。
还有。像edit可以用case来实现吗? 比如。 case edit.text of
1....
2... 我试过不行。有没有相关的变通方法?
还有。像edit可以用case来实现吗? 比如。 case edit.text of
1....
2... 我试过不行。有没有相关的变通方法?
解决方案 »
- delphi 中用tcpServer和tcpclient传输stringStram的问题
- 为什么执行 ShellExecute(0, 'open', PChar('del c:\123.txt'), nil, nil, sw_show)之后,啥反应也没有
- 关于修改时增加日专的思路...
- 做过POS打印程序的高手快进来,高分求救
- 紧急求援:Delphi7.0的安装sn和key
- 安装DELPHI控件的问题,很急,请大虾们救救俺
- 用Query对数据库进行 Update操作 不知以下语句错在哪里请帮忙看
- 关于dll中的方法重复怎么办
- 小菜问题,怎样将字符串转换成常量名
- 有dynamic cube 的资料吗?大家都用什么控件做分析?
- dephin跟VS一样是工具吗
- [Delphi + MySQL] 通过参数Parameters将中文字写入MySQL时, 显示为乱码?
像edit可以用case来实现吗? 比如。 case edit.text of
1....
2...
//使用Edit的Tag属性
For i:=0 to ComponentCount-1 Do
begin
if Components[i] is TEdit then
(Components[i]as TEdit).Text='' then
//操作
end;
For i:=0 to ComponentCount-1 Do
begin
if Components[i] is TEdit then
(Components[i]as TEdit).Text='' then
//操作
end;
顶。
if (Components[i] as TEdit).Text<>'' then
memo1.lines.Add(Components[i].text);
这样写为什么编译不了?我怎么才能得到text里面的字符