DatabaseでのError

解決

tomo 2003-05-21 03:20:52 No: 3585

いつも情けない質問ばかりですみません(^^;
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;

Basser 2003-05-21 03:56:01 No: 3586

FieldDefsをAddする前に

FieldDefs.Clear;

とすればいいです。

tomo 2003-05-21 04:20:39 No: 3587

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