Delphi字符第几次出现的位置.docxVIP

运行效果图 运行效果图： 代码如下： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,StrUtils; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var i,m,n,x:Integer; str,s:string; begin n:=0; m:=0; str:=trim(Edit1.Text); //i:=instr(Str,$,/1/,152)3;$45$67$89$abc$0$assdd while 1=1 do begin begin i:=P