改造・ｿｰｽとかのスレ

■改造・ｿｰｽとかのスレ

24:（´д｀）さん:2003/08/21 18:02 ID:???
速いかわからないけど(；´∀｀)
function TForm1.ResCheck3(const S :string):Boolean;
const
　ResS='1234567890１２３４５６７８９０-';
var
　pPos1,pPos2,pPos,pNextPos: PChar;
　f1,f2: boolean;
begin
　Result:=False;
　pPos := PChar(S);
　f1 := true;
　f2 := true;
　repeat begin
　　if f1 then pPos1 := AnsiStrScan(pPos, '>');
　　if f2 then pPos2 := AnsiStrPos(pPos, '＞');
　　if f1 and (pPos1 = nil) then f1 := false;
　　if f2 and (pPos2 = nil) then f2 := false;

　　if (pPos1 = nil) and (pPos2 = nil) then break;
　　if (pPos1 <> nil) and ((pPos2 = nil) or (pPos1 <= pPos2)) then
　　　pNextPos := StrNextChar(pPos1)
　　else
　　　pNextPos := StrNextChar(pPos2);
　　if (AnsiPos(pNextPos^,ResS ) <> 0) then begin
　　　Result := true;
　　　break;
　　end;
　　pPos := pNextPos;
　end;
　until false;
end;

1:1- 2:▲ 3:新
4:前 5:書 6:次
7:写 8:▼ 9:板

Rainboard