Abfrage als SQL-Statement

[HolgerCW]

Hallo zusammen,

kriegt es hier jemand hin sowas:

Delphi-Quellcode:

if Query['DRUCKLITERPRODUKT'] = 'PS x V' then
begin
 if (Query['PS_X'] >= Query['KATART1V']) AND (Query['PS_X'] <= Query['KATART2V']) then Query['KATEGORIE_X'] := 'Art.3, Abs.3';
 if (Query['PS_X'] >= Query['KAT11V']) AND (Query['PS_X'] <= Query['KAT12V']) then Query['KATEGORIE_X'] := 'I';
 if (Query['PS_X'] >= Query['KAT21V']) AND (Query['PS_X'] <= Query['KAT22V']) then Query['KATEGORIE_X'] := 'II';
 if (Query['PS_X'] >= Query['KAT31V']) AND (Query['PS_X'] <= Query['KAT32V']) then Query['KATEGORIE_X'] := 'III';
 if (Query['PS_X'] >= Query['KAT41V']) AND (Query['PS_X'] <= Query['KAT42V']) then Query['KATEGORIE_X'] := 'IV';
end
else
begin
 if (Query['PS_X'] >= Query['KATART1DN']) AND (Query['PS_X'] <= Query['KATART2DN']) then Query['KATEGORIE_X'] := 'Art.3, Abs.3';
 if (Query['PS_X'] >= Query['KAT11DN']) AND (Query['PS_X'] <= Query['KAT12DN']) then Query['KATEGORIE_X'] := 'I';
 if (Query['PS_X'] >= Query['KAT21DN']) AND (Query['PS_X'] <= Query['KAT22DN']) then Query['KATEGORIE_X'] := 'II';
 if (Query['PS_X'] >= Query['KAT31DN']) AND (Query['PS_X'] <= Query['KAT32DN']) then Query['KATEGORIE_X'] := 'III';
 if (Query['PS_X'] >= Query['KAT41DN']) AND (Query['PS_X'] <= Query['KAT42DN']) then Query['KATEGORIE_X'] := 'IV';
end;

in ein SELECT einer SQL-Abfrage einzubinden ?

Gruss

Holger