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

procedure TBuchMain.lade_Tabelle(DBTname: TTable; tabname, dbtreiber: String);
var komment : string;
begin
  if (uppercase(extractfileext(buchDM_dlg.OpenDialog1.FileName)) = '.DBF') or
     (uppercase(extractfileext(buchDM_dlg.OpenDialog1.FileName)) = '.CSV') or
     (uppercase(extractfileext(DBTname.TableName)) = '.DBF')               then
  begin
    if fileexists(tabname) then
    begin                                    //DBTname.TableType := ttdefault;   //ttdbase, ttFoxPro;
      komment := '';
      DBTname.active :=  false;
        DBTname.TableName := tabname;        komment := komment + tabname + #13; showmessage(komment);
        DBTname.DatabaseName := dbtreiber;   komment := komment + dbtreiber + #13; showmessage(komment);
        DBTname.TableType := ttFoxPro;
      DBTname.Active := true;
      CoBoxAdd(extractfilename(DBTname.TableName));   <--- hier steht der Cursor.
      if (DBTName.Name = 'TbSchueler') or (DBTName.Name = 'TbSynctab') then begin wechsel_S := true; qSchuelerSort(self); end;
      if  DBTName.Name = 'TbLK'                                        then begin wechsel_L := true; qLkSort(self); end;
      DBGrid1.Refresh;
    end
  end
end;