Überprüfen mehrerer Comboboxen

[snears]

Guten Abend, ich bin wieder auf ein Problem gestoßen und zwar wollte ich mehrere Comboxen mit einmal überprüfen und das ohne viel schreibkram. Ich hoffe sowas geht, ich hatte zwar eine Idee aber die wollte nicht funktionieren.

Delphi-Quellcode:

function changeColor :string;
var x,: integer;
    GkPunkte: string;
begin

 x:=1;

 
for x:= 1 to 10 do

if GkPunkte(x):= clred

then showmessage ('Alle Felder mit roter Farbe wurden mit 0 Punkten belegt.')

x:= GkPunkte(x)+x

;

hoffe das es so richtig ist, aber er sagt halt immer undefinierter bezeichner GkPunkte;


Schonmal jetzt Danke

[Wolfgang Mix]

Nimm 'mal das Komma nach dem x weg

[Helmi]

Hallo,

wie soll das funktionieren?

Delphi-Quellcode:

if GkPunkte(x):= clred

Da "GkPunkte" ein String ist, ergibt GKPunkte(x) ein Char.
Dann vergleichst du nicht, sondern willst GKPunkte(x) mit clRed beschreiben (:= <> =)
Und somit vergleichst du ein Char mit einer Farbe
...

[edit]
Und was hat der gezeigte Code mit ComboBoxen zu tun?

[edit2]
Wenn man den Code besser ausrichtet, dann sieht man dass die letzte Anweisung x := ... mit einem undefiniertem x arbeitet

Delphi-Quellcode:

for x:= 1 to 10 do 
  if GkPunkte(x)= clred then //????????
    showmessage ('Alle Felder mit roter Farbe wurden mit 0 Punkten belegt.');

x:= GkPunkte(x)+x; // x ist nach der Schleife undefiniert

[Wolfgang Mix]

Zitat:

Und was hat der gezeigte Code mit ComboBoxen zu tun?

Dafür brauchen wir wieder unsere Glaskugel :)