Paradox Tabellenstruktur auslesen?

[marabu]

Hallo Mitchl,

eine von vielen Möglichkeiten zeige ich dir hier, du kannst das sicher an deine Bedürfnisse anpassen.

Delphi-Quellcode:

function GetFieldInfo(const dbname, tblname, fldnames: String; s: TStrings): Boolean;
var
  q: TQuery;
  i: Integer;
begin
  Result := false;
  s.Clear;
  q := TQuery.Create(nil);
  with q do
  begin
    DatabaseName := dbname;
    SQL.Text := Format('select %s from %s where 1 = 0', [fldnames, tblname]);
    try
      Open;
    except
      Exit;
    end;
    try
      for i := 0 to Pred(Fields.Count) do
        s.Add(Format('%s,%s,%d', [
          Fields[i].FieldName,
          FieldTypeNames[Fields[i].DataType],
          Fields[i].DataSize
        ]));
    finally
      Close;
    end;
    Result := true;
  end;
end;

procedure TDemoForm.InfoButtonClick(Sender: TObject);
var
  i: Integer;
  s: TStrings;
begin
  s := TStringList.Create;
  if GetFieldInfo('DBDEMOS', 'country', '*', s) then
  begin
    StringGrid.RowCount := Succ(s.Count);
    StringGrid.Rows[0].CommaText := 'Name,Type,Size';
    for i := 0 to Pred(s.Count) do
      StringGrid.Rows[Succ(i)].CommaText := s[i];
  end;
  s.Free;
end;

Grüße vom marabu