SQL -> Ein Unterabfrage soll immer 1 und 2 liefern

[DeddyH]

Ich würde das etwas kürzen:

Delphi-Quellcode:

procedure BeforePrint()
const Farbe: array[Boolean] of TColor = (clGray,clWhite);
begin
  Zeile.Color := Farbe[Odd(RecNo)];
end;

[raiguen]

@DeddyH: klar, optimieren geht immer (und ist in diesem Falle auch eleganter )