16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル
"アルファベットで構成された文字列"
この発言に対し以下のコメントが寄せられています
#00502 謎の全知師 さん RE:アルファベットで構成された文字列
文字列がアルファベットだけで構成されているかどうかを調べる関数です。
function IsStrAlpha(const S: string): Boolean;
var
i: Integer;
US: string;
begin
Result:= False;
US:= UpperCase(S);
for i:= 1 to Length(US) do
if not (US[i] in ['A'..'Z']) then Exit;
Result:= True;
end;
☆ H-Triton (^^) since 1996 ☆
Avalon's Friendly Club #80008
Original document by H-Triton 氏 ID:(QZV11422)
ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。
Copyright 1996-2002 Delphi Users' Forum
|