SQL Query Name über Prozedur Variable übergeben

[toyoman]

SQL Query Name über Prozedur Variable übergeben:

Hallo, weiss nicht wie ich nach einer Lösung für dieses Problem suchen soll.

Ich möchte gern bei der folgenden Prozedur den Query Namen dynamisch übergeben können:

Delphi-Quellcode:

procedure queryfuellen(queryname,dateiname,tabellenname:string);
begin
   // SQL Statement einlesen (SQL Strings)
   if fileexists(prgpath+dateiname) then
   begin
       queryname.SQL.LoadFromFile(prgpath+dateiname);
   end else
   begin
       showmessage(tabellenname+': SQL Datei '+queryname+', Datei: '+ prgpath+dateiname+' nicht gefunden!');
   end;
end;

Die Variable "queryname" soll dabei zum Beispiel die eigentliche SQLQuery "QRTest" sein. Somit bräuchte ich nur noch eine Prozedur um alle meine Querys darüber abfüllen zu können.

Nur, als String kann ich den Namen der Query ja nicht übergeben, wie kann ich das machen und geht das überhaupt?

Danke schon mal im voraus für Tips.

[DeddyH]

Delphi-Quellcode:

TQuery(FindComponent(queryname)).SQL.Text := 'SELECT * FROM Tabelle';

Sollte so funktionieren.

[toyoman]

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:

Zitat von DeddyH

Delphi-Quellcode:

TQuery(FindComponent(queryname)).SQL.Text := 'SELECT * FROM Tabelle';

Sollte so funktionieren.

[hoika]

Hallo,

FindComponent ist eine Methode von TForm.
Du musst also das Form, wo doe Query drauf ist, mit übergeben.

Aber warum machst du nivcjht folgendes

Delphi-Quellcode:

procedure queryfuellen(query: TQuery; dateiname, tabellenname:string);

übergibst also die zu "füllende" Query direkt


Heiko

[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.

[toyoman]

Du hast natürlich recht, das ist genau das was ich gesucht habe!!!!

Vielen Dank!

Thema erledigt, danke allen Lesern :-)

Zitat:

Zitat von hoika

Hallo,

FindComponent ist eine Methode von TForm.
Du musst also das Form, wo doe Query drauf ist, mit übergeben.

Aber warum machst du nivcjht folgendes

Delphi-Quellcode:

procedure queryfuellen(query: TQuery; dateiname, tabellenname:string);

übergibst also die zu "füllende" Query direkt


Heiko