edit1的caption为18，怎么才能从这18中提取出1，提取出8呢？
edit1的caption为18，怎么才能从这18中提取出1，提取出8呢？ 问题点数：28、回复次数：10Top
1 楼shdshd（DELPHI是我老婆!）回复于 2001-04-24 20:03:00 得分 5
copy(edit1.caption,1,1);
copy(edit1.caption,2,1);
Top
2 楼sundayboys（sunboy）回复于 2001-04-24 20:07:00 得分 5
strpos、strtointTop
3 楼rdm（德曼）回复于 2001-04-24 20:10:00 得分 5
edit有caption??
你的贼奇怪！！Top
4 楼myy（）回复于 2001-04-24 20:11:00 得分 5
更简便的：
A:=(Edit1.Text)[1];Top
5 楼shdshd（DELPHI是我老婆!）回复于 2001-04-24 20:13:00 得分 5
哈哈哈！我也乱套了！edit1.caption--label1.text???Top
6 楼jinhui（金辉）回复于 2001-04-24 20:25:00 得分 0
贼奇怪
Top
7 楼WuHeHai（风之影）回复于 2001-04-24 20:45:00 得分 0
Edit.Caption为何物？
Top
8 楼Zhan9Min9（）回复于 2001-04-24 21:32:00 得分 0
消费时间！！Top
9 楼lt30（PASCAL）回复于 2001-04-24 22:50:00 得分 3
最快的方法:
type
Ta=shortstring;
...
var
b : integer or char;
begin
b:=(Ta)edit1.txt[1];------ 提取第一位
...
end.
顺便说一句 edit 有 text, 没有 captionTop
10 楼hp1200（我是菜鸟，请多指教。）回复于 2001-07-29 18:41:00 得分 0
upTop
