掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
異なるTableへ共通な処理をするには？ (ID:14232)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
昔のソフトをメンテするのですが、不安です。 ｎ個のボタンでそれぞれ先頭にテーブル内容を クリア（データのみ）を既存部分に今回追加します。 たとえばボタンNは、DataModul1のTableNをクリアです。 掲示板を参考に作りましたが、一般的なコードになっていますか？ procedure ClearTable(DTTable: TTable) ; //追加した共通処理 begin with DTTable do begin //DataModule1.TableN DisableControls; try First; while not Eof do begin Delete ; First ; end; finally EnableControls; end; end ; end ; procedure TForm1.Button1Click(Sender: TObject); begin ClearTable(DataModule1.Table1) ; // それぞれのButtonXClickに // TableXの削除処理を追加 // 以下オリジナル処理 end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.