versuche ich mit
Delphi-Quellcode:
ADOQuery1.Close;
ADOQuery1.SQL.Text := 'select * from '+Konten.Text;
ADOQuery1.Open;
While Not ADOQuery1.Eof do
begin
Date20:= DateToStr(ADOQuery1.FieldValues['Datum']);
if Date20 <> '' then datum20.Text := Date20;
dabei freezt das programm allerdings