delphi 取出字符串中首两位的数字 如RB30 与 L15G3 与 LX20G3K0 取出 30 15 20
2条回答 默认 最新
- lyhoo163 2016-10-18 23:24关注
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Button2: TButton; procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} Function GetInt2(S:string):String; var S1,S2:String; i,j:integer; begin result:=''; j:=1; for i:=0 to length(S) do begin if (J=2) and ((Ord(S[i])>=48) and (Ord(S[i])<=57)) then begin S2:=S[i]; j:=0; end; if (J=1) and ((Ord(S[i])>=48) and (Ord(S[i])<=57)) then begin S1:=S[i]; j:=2; end; end; if J=0 then result:=S1+S2; end; procedure TForm1.Button2Click(Sender: TObject); begin edit2.Text:=GetInt2(Edit1.text); end; end.
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏 举报
悬赏问题
- ¥20 删除和修改功能无法调用
- ¥15 kafka topic 所有分副本数修改
- ¥15 小程序中fit格式等运动数据文件怎样实现可视化?(包含心率信息))
- ¥15 如何利用mmdetection3d中的get_flops.py文件计算fcos3d方法的flops?
- ¥40 串口调试助手打开串口后,keil5的代码就停止了
- ¥15 电脑最近经常蓝屏,求大家看看哪的问题
- ¥60 高价有偿求java辅导。工程量较大,价格你定,联系确定辅导后将采纳你的答案。希望能给出完整详细代码,并能解释回答我关于代码的疑问疑问,代码要求如下,联系我会发文档
- ¥50 C++五子棋AI程序编写
- ¥30 求安卓设备利用一个typeC接口,同时实现向pc一边投屏一边上传数据的解决方案。
- ¥15 SQL Server analysis services 服务安装失败