Sponsored Link
■改造・ｿｰｽとかのスレ
21:｀）ノ:2003/07/04 15:32 ID:???
誰かこれ↓をもっと速くしてください。

文字列sの中に１〜４があったらTrueを返す関数。
１．＞数字（半角/全角の０〜９）
２．＞-
３．>数字（半角/全角の０〜９）
４．>-

function ResCheck1(const S :string):Boolean;
const
　ResS1='1234567890';
　ResS2='１２３４５６７８９０';
var
　i : Integer;
　sR : String;
begin
　for i:=1 to length(ResS1) do begin
　　sR := '>' +ResS1[i];
　　if AnsiPos(sR,S)>0 then begin Result:=True; Exit;end;
　　sR := '＞' +ResS2[i*2-1]+ResS2[i*2];
　　if AnsiPos(sR,S)>0 then begin Result:=True; Exit;end;
　end;
　if AnsiPos('>-',S)>0 then Result:=True
　else
　if AnsiPos('＞-',S)>0 then Result:=True
　else Result:=False;
end;
1:1- 2:▲ 3:新
4:前 5:書 6:次
7:写 8:▼ 9:板
Rainboard