Hallo,
ich habe nicht beachtet, dass es sich nicht um eine Klassenmethode handelt. Also müsstest Du das Formular, auf dem das
Query liegt, als Parameter mit übergeben.
Delphi-Quellcode:
procedure queryfuellen(aForm: TForm;queryname,dateiname,tabellenname:
string);
begin
// SQL Statement einlesen (SQL Strings)
if fileexists(prgpath+dateiname)
then
begin
TSQLQuery(aForm.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;
//Wobei Heiko natürlich Recht hat, das wär simpler und weniger fehleranfällig.