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

#00283　J-OH!　　　　   さん　入力支援機能バグ (  );;






◆説明◆
　地域密着型の顧客管理データベースソフトなどで顧客データの入力を行う際、
郵便番号・〜〜市・市外局番など、ほとんど同じデータを繰り返し入力する必要
のある場合があります。
　このサンプルでは、Form2.StringGrid1 に

 0     1             2            3                4
　　検索コード　　郵便番号　　住　所　　　　　　市外局番
・　momoyama      590-01      堺市桃山台　　　　0722-
・  kamotani      590-01　　　堺市鴨谷台　　　　0722-
・  sakamoto      594　　　　 和泉市坂本町　　　0725-
・  kamisiro      594         和泉市上代町　　　0725-
　　　・　　　　　　・　　　　　　・　　　　　　　・
　　　・　　　　　　・　　　　　　・　　　　　　　・

　などといったデータが入力されているというコトを前提とし、Form1 の
　Edit1 には住所
　Edit2 には郵便番号
　Edit3 には電話番号
　が記入されるものであるとしています。

◆サンプルコード◆
procedure TForm1.Edit1Change(Sender: TObject);
var
   data: String;
   RC: String;
begin
   data := Edit1.Text;
   RC := 1;
   while (data <> Form2.StringGrid1.Cells[1,RC]) and
         (RC < Form2.StringGrid1.RowCount - 1) do
        inc(RC);

   if RC <= Form2.StringGrid1.RowCount - 1 then
   begin
      Edit1.Text := Form2.StringGrid1.Cells[1,RC];
      Edit2.Text := Form2.StringGrid1.Cells[2,RC];
      Edit3.Text := Form2.StringGrid1.Cells[3,RC];

      SetIMEStatus(Handle,ImOpen);
      // IME が起動し、"〜〜市〜〜町" に続いて「１丁目３−３−１０１」
      // などと入力を行います。
   end;
end;

                               　　　　　J-OH!(VEC05267)

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

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