SQL Query Name über Prozedur Variable übergeben

[DeddyH]

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.