◆説明◆
　データベースソフトなどの入力フォームにおいて、氏名・・生年月日・・
性別・・と入力して行く際、Edit1 に入力された氏名のデータから、その人
が男性か女性かを判断し、次に設定すべき RadioGroup1.ItemIndex を自動的
に設定します。
　このサンプルでは、RadioGroup1 の ItemIndex 0 を男性、1 を女性として
います。

◆注意◆
　判定率１００％ではありません。 (  );; ｿﾉ ﾘﾕｳ ﾊ ﾐﾃ ｲﾀﾀﾞｹﾚﾊﾞ･･･

◆サンプルコード◆
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
   Len: Byte;
   data: String;
begin
   if Key = #13 then
   begin
      Key := #0;

      // Edit1 に入力された氏名データの最後の１文字を取得
      Len := Length(Edit1.Text);
      data := Copy(Edit1.Text, Len-1, 2);

      if (data='子') or (data='恵') or (data='美') or (data='み') or
         (data='こ') or (data='弓') or (data='里') or (data='紀') or
         (data='希') or (data='奈') or (data='菜') or (data='麗') or
         (data='り') or (data='え') or (data='代') or (data='織') or
         (data='紀') or (data='理') or (data='か') or (data='江') or
         (data='絵') or (data='枝') or (data='な') or (data='香') or
         (data='加') or (data='華') or (data='き') or (data='穂') or
         (data='帆') or (data='夜') or (data='耶') or (data='椰') or
         (data='や') or (data='花') or (data='歌') or (data='愛') then
         RadioGroup.ItemIndex := 1
      else
         RadioGroup.ItemIndex := 0;

      Edit2.SetFocus;
   end;
end;

                               　　　　　J-OH!(VEC05267)

Original document by J-OH!　　　　   氏 ID:(VEC05267)

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