Einzelnen Beitrag anzeigen

needatip

Registriert seit: 11. Jan 2004
246 Beiträge
 
Delphi 10.4 Sydney
 
#5

Re: Strings an eine Funktion übergeben

  Alt 6. Nov 2006, 14:18
Ja super, danke.
jetzt muss ich noch versuchen die SQL Prozedur zusammenzubauen; vielleicht kannst du mir da noch ein wenig behilflich sein.
Hab so angefangen:

Delphi-Quellcode:
procedure Calc;
var SQLTEXT: string;
begin
  With Query do
  begin
    SQL.Clear;
    SQLTEXT := 'SELECT AG,SUM(Preis) AS GPREIS ' +
      'FROM PListe ' +
      'WHERE AG IN :AGListe '+
      'GROUP BY AG';
    SQL.Add(SQLText);
    ParamByName('AGListe').AsString := GetSelectedStrings(lb);
    Close;
    Open;
  end
end;
Funktioniert nicht !
Der Parameter :AGListe wird nicht ausgewertet.
Woran liegts ?
  Mit Zitat antworten Zitat