source:string;
source:='药霜丸露回城';
定义一个str:array[0..4] of string =('药,'霜','丸','露','回城');
for i:=low(str) to high(str) do
begin
if pos(str[i],source) <> 0 then
执行下边代码就可以了
end;
随手打的,试下可以不吧!
不对的话,你稍微修改下
unit Unit1;intindows, Messages, SysUtils, Vasses, Graphics, Controls, Forms, Dialrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private function IsInclude(aSing): Boolean; { Pations } public { Public declarations } end;var Form1: TForm1;implementatio array[0..4] of string = ('药','霜','丸','露','回城');{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);略一大堆代码 if IsInclude(yourstring) then begin //do somethou want to do //做你想做的操作 end;end;function TForm1.IsInclude(aString: string): Boolean;vabegin Result := False; for i := 0 to 4 do begin if Pos(myArr[i], aString) > 0 then begin Result := True; Break; end; end;end;end.
三、关于 Delphi 问题~ pos问题source:string;
source:='药霜丸露回城';
定义一个str:array[0..4] of string =('药,'霜','丸','露','回城');
for i:=low(str) to high(str) do
begin
if pos(str[i],source) <> 0 then
执行下边代码就可以了
end;
随手打的,试下可以不吧!
不对的话,你稍微修改下
本文来自用户投稿,不代表POS机办理网立场,如若转载,请注明出处:https://tlx668.com/poszx/15306.html
发表回复
评论列表(0条)