Abfrage auf Generator

[Rippo]

Hallo

ich habe eine abfrage auf einen generatoren erstellt :

Delphi-Quellcode:

SDS_GenPTV.DataSet.CommandText := ' SELECT Gen_ID(Status,0) from rdb$database ' ;

klappt alles

meine frage also

wie schaffe ich es dass bei wenn bei der abfrage eine zahl die höher ist als 0 kommt, dass der button farblich markiert wird und wenn man denn zurücksetzt auf 0 dann wieder in eine andere farbe markiert wird??

danke im voraus

[mkinzler]

Wie kann einen Abfrage farbig sein?

Du musst das in Delphi anhand des zurückgegebenen Wertes entscheiden.

[OrNEC]

Delphi-Quellcode:

if StrToInt(SDS_GenPTV.DataSet.CommandText) = 0 then
  Button1.Color := clRed
else Button1.Color := clBlue;

[Rippo]

bekomme die fehlermeldung das es kein gültiger integerwert ist

[Klaus01]

.. was steht denn in "SDS_GenPTV.DataSet.CommandText" drin?

Grüße
Klaus

[OrNEC]

Dann muss wohl StrToInt weg.

[nahpets]

In CommandText steht das auszuführende Statement.
Man sollte dieses einfach mal ausführen und dann das Ergebnis abfragen. Ist das 0 dann diese Farben ansonsten jene.

Das Statement selbst läßt keinen Rückschluss auf das Ergebnis zu.

[Rippo]

Delphi-Quellcode:

if (SDS_GenPTV.DataSet.CommandText) = '0' then
  Button6.Font.Color := clGreen
  else
   Button6.Font.Color := clRed;

hab das jetzt so gemacht bekomme jedoch nicht den button auf grün oder rot

[OrNEC]

Es kann sein, dass man die Buttons irgendwie anders färbt. Stell diese Frage mal, oder google mal danach.

[Lemmy]

Zitat:

Zitat von Rippo (Beitrag 1329083)

Delphi-Quellcode:

if (SDS_GenPTV.DataSet.CommandText) = '0' then
  Button6.Font.Color := clGreen
  else
   Button6.Font.Color := clRed;

hab das jetzt so gemacht bekomme jedoch nicht den button auf grün oder rot

Punkt 1: Les doch bitte mal alle Posts hier und nicht nur die, die Code enthalten
Punkt 2: Bei einem TButton kann die Farbe nicht geändert werden, weil die darunterliegende WinAPI das nicht unterstützt - nimm statt dessen einen TBitBtn