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.
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏 举报
悬赏问题
- ¥15 关于#matlab#的问题:期望的系统闭环传递函数为G(s)=wn^2/s^2+2¢wn+wn^2阻尼系数¢=0.707,使系统具有较小的超调量
- ¥15 FLUENT如何实现在堆积颗粒的上表面加载高斯热源
- ¥30 截图中的mathematics程序转换成matlab
- ¥15 动力学代码报错,维度不匹配
- ¥15 Power query添加列问题
- ¥50 Kubernetes&Fission&Eleasticsearch
- ¥15 報錯:Person is not mapped,如何解決?
- ¥15 c++头文件不能识别CDialog
- ¥15 Excel发现不可读取的内容
- ¥15 关于#stm32#的问题:CANOpen的PDO同步传输问题