DatabaseでのError

解決

---

いつも情けない質問ばかりですみません(^^;
Button1Clickで、Paradox型のデータベースを作成しようとしている
のですが、下記のコーディングにて実行してみると、１回目の
Button1Clickでは正常に動作し、データベースに名前も付いて
保存されているのですが、もう一度 Edit1.Text に別の値を入れて
Button1Clickすると、'コンポーネント名AAAはすでに使われています'
とエラーになってしまいます。
どのようにしたらよろしいでしょうか？宜しくご指導くださいm(__)m

procedure TForm1.Button1Click(Sender: TObject);
var
  kekka:Boolean;
  s:string;
begin
  with Form1.Table1 do
  begin
    s:= 'Abc' + '[' + Edit1.Text + ']';
    kekka:=FileExists('C:\Program Files\Common Files\Borland     
    Shared\Database Desktop\WorkDir\s');
    if kekka = False then
    begin
      DatabaseName := 'AbcDB';
      TableName := s;
      TableType := ttParadox;
      FieldDefs.Add('AAA', ftString, 16, False);
      FieldDefs.Add('BBB', ftString, 16, False);
      FieldDefs.Add('CCC', ftString, 16, False);
      CreateTable;
      end;
    end;

編集    削除

---

FieldDefsをAddする前に

  FieldDefs.Clear;

とすればいいです。

編集    削除

---

Basserさん、ご指導ありがとうございました。
お蔭様で、解決いたしましたm(__)m

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。