この発言に対し以下のコメントが寄せられています

#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;

                ☆ Ｈ-Ｔriton (^^) since 1996 ☆
                  Avalon's Friendly Club #80008

Original document by H-Triton        氏 ID:(QZV11422)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。