1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

procedure TBuchMain.Erzeuge_Table(sender: Tobject);
begin
  with TbSynctab do
  begin
    Active := False;
      DatabaseName := TbSchueler.DatabaseName;  //listbox11.items[listbox11.ItemIndex];
      TableName := 'Ssynctab'+ inttostr(j)+ '.dbf';
      TableType := ttDefault;  //  FoxPro, ttDBase;
      FieldDefs.Clear;
      FieldDefs.Add('Ident_Nr',   ftInteger,   0, False);
      FieldDefs.Add('Name',       ftString,   25, False);
      FieldDefs.Add('Vorname',    ftString,   25, False);
      FieldDefs.Add('Klasse',     ftString,    5, False);
      FieldDefs.Add('Geschlecht', ftString,    1, False);
      FieldDefs.Add('Gebdat',     ftDate,      0, False);
      FieldDefs.Add('Telefon',    ftString,   30, False);
      FieldDefs.Add('Fsprache1',  ftString,   15, False);
      FieldDefs.Add('Fsprache2',  ftString,   15, False);
      FieldDefs.Add('Wpk1name',   ftString,   50, False);
      FieldDefs.Add('Wpk2name',   ftString,   50, False);
      FieldDefs.Add('Wpk3name',   ftString,   50, False);
      FieldDefs.Add('Wpk4name',   ftString,   50, False);
      // IndexDefs.Clear;  IndexDefs.Add('PrimaryIndex', 'Klasse', NewIndexOptions);
    CreateTable;
  end;
  showmessage('Tabelle '+ TbSynctab.tablename+ ' ist erstellt und besteht aus '+ inttostr(TbSynctab.FieldCount)+ ' Feldern');
end;