Sorry, waren Eigenschaften einer TOracleQuery.
Das hier müsste mit der
BDE-
Query funktionieren.
p.s.: Die ListBox war nur zur Demo...
Edit1 enthält den Tabellenname, Edit2 das zu suchende Feld.
Delphi-Quellcode:
Var
i : Integer;
Begin
With Query Do
Begin
SQL.Text := Format(
'
SELECT t.*' + #10 +
'
FROM %s t' + #10 +
'
WHERE RowNum <= 1'
, [Edit1.Text]);
Open;
For i := 0
To pred(FieldCount)
Do
If uppercase(Fields[i].FieldName) = uppercase(Edit2.Text)
then
Begin
ShowMessage('
"' + Edit2.Text + '
" gefunden...' );
Break;
End;
End;
End;