Hey
habe ich so angepasst:
Delphi-Quellcode:
procedure queryfuellen(queryname,dateiname,tabellenname:
string);
begin
// SQL Statement einlesen (SQL Strings)
if fileexists(prgpath+dateiname)
then
begin
TSQLQuery(FindComponent(queryname).SQL.LoadFromFile(prgpath+dateiname);
//TQuery(FindComponent(queryname)).SQL.Text
end else
begin
showmessage(tabellenname+'
: SQL Datei '+queryname+'
, Datei: '+ prgpath+dateiname+'
nicht gefunden!');
end;
end;
Funktioniert aber leider nicht, Fehlermeldung: Error 616: Undeclared identifier: 'FindComponent'
Was fehlt mir noch?
Zitat von
DeddyH:
TQuery(FindComponent(queryname)).SQL.Text := 'SELECT * FROM Tabelle';
Sollte so funktionieren.