この発言は
#01260　ぺけでび        さんのRE^2:担当者メンテ開発記
に対するコメントです

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

#01262　ぺけでび        さん　RE^3:担当者メンテ開発記





#1260 ぺけでび さん。こんにちは。

> 　うへー、難しいことがならんでおりますね。　なんとか、考えて
> みます。

よろしくお願いします。

> 　かなり後になってから知ったのですが、右辺自体がTRIMされた値
> が返ってくるようです。

ぼくも昨日これを知った瞬間前途の多難さに身の毛がおだちました。
それで、

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if (key = #13) then begin  // Enterキーか？
     DataWrite;  // 入力データの登録
     // Edit1.Text := "";
     Edit1.Text := StringOfChar(' ',  Table1.FieldByName('TAN_CD').Size);
     Edit2.Text := ""； // ヌルをセット
     key:=#0;	// Beep 音を止めた
     Edit1.SetFocus;  // 最後に移動した
  end;
end;

こんな風に変えたら、INSERT キーを押さなくても入力できるように
なりましたので、後は TEdit.Text とフィールドデータで文字列比較
をする時に空白文字を付加するような処理を加えれば何とかなりそう
ですね。

GCH04447 よたろう
 


- FDELPHI  MES(16):玉石混淆みんなで作るSample蔵【見本蓄積】 01/02/01 -

Original document by よたろう        氏 ID:(GCH04447)

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