case mit einem in einem String gespeicherten Variablennamen

[steenvoortl]

Hallo =)
Ich habe eine kleine Frage... kann man den Quelltext mit einer Prozedur vereinfachen, damit der case-Teil nicht 27-mal geschrieben werden muss?
Habe schon im Forum gesucht, aber nichts gefunden.

Delphi-Quellcode:

with ImCube.Canvas do begin
  case FUL of
    1: Brush.Color := clWhite;
    2: Brush.Color := clYellow;
    3: Brush.Color := clGreen;
    4: Brush.Color := clBlue;
    5: Brush.Color := clRed;
    6: Brush.Color := $000080FF;
  end;
  Rectangle(10, 64, 60, 114);
  //[...] und das jetzt bei 27 Variablen
  case RDR of
    1: Brush.Color := clWhite;
    2: Brush.Color := clYellow;
    3: Brush.Color := clGreen;
    4: Brush.Color := clBlue;
    5: Brush.Color := clRed;
    6: Brush.Color := $000080FF;
  end;
  Polygon([Point(196,128),Point(196,178),Point(214,160),Point(214,110)]);
end;

Ich dachte an so ein Konstrukt:

Delphi-Quellcode:

procedure TForm1.SetColor(Seite: string);
begin
  with ImCube.Canvas do begin
    case Seite of
      1: Brush.Color := clWhite;
      2: Brush.Color := clYellow;
      3: Brush.Color := clGreen;
      4: Brush.Color := clBlue;
      5: Brush.Color := clRed;
      6: Brush.Color := $000080FF;
    end;
  end;
end;

Delphi-Quellcode:

SetColor('FUL');
ImCube.Canvas.Rectangle(10, 64, 60, 114);
//[...]
SetColor('RDR');
ImCube.Canvas.Polygon([Point(196,128),Point(196,178),Point(214,160),Point(214,110)]);
end;

Aber das funktioniert so nicht, weil ich es nicht hinkriege, dass case die Variable ausliest, deren Name in dem String gespeichert ist und nicht versucht, den String selbst auszulesen.

Habt ihr irgendwelche Tipps?

Danke im Voraus
steenvoortl

[stho]

warum machst du keine Function draus?
Als eingabewert kannst du ja einen Integer nehmen und als ausgabe TColor hoffe ich hab dich richtig verstanden ^^

[alleinherrscher]

Dein Code funktioniert höchstwahrscheinlich nicht, weil deine Case Struktur (wahrscheinlich) einen String als Variable bekommt und dann auf Integers (1,2,3,4, usw) überprüfen soll...wenn du ein bisschen genauer beschreiben könntest, was du machen willst, gibts bestimmt eine bessere Lösung

[Uwe Raabe]

Manchmal sieht man den Wald vor lauter Bäumen nicht, oder?

Delphi-Quellcode:

procedure TForm1.SetColor(Seite: Integer);
begin
  with ImCube.Canvas do begin
    case Seite of
      1: Brush.Color := clWhite;
      2: Brush.Color := clYellow;
      3: Brush.Color := clGreen;
      4: Brush.Color := clBlue;
      5: Brush.Color := clRed;
      6: Brush.Color := $000080FF;
    end;
  end;
end;

Delphi-Quellcode:

SetColor(FUL);
ImCube.Canvas.Rectangle(10, 64, 60, 114);
//[...]
SetColor(RDR);
ImCube.Canvas.Polygon([Point(196,128),Point(196,178),Point(214,160),Point(214,110)]);

[steenvoortl]

Jo so gehts...

DANKE!

[Forlan]

Zitat von steenvoortl:

Jo so gehts...

DANKE!

Hast du auch verstanden warum es so geht? 1,2,3,4.. sind Zahlen, keine Zeichenketten... Und mit Strings + case funktioniert generell so nicht.. Da musst du schonmal einen Blick in die Codelibrary werfen, wenn das so gehen soll.

Gruß

[p80286]

aus der D7-Hilfe:

Zitat:

case SelektorAusdruck of
caseList1: Anweisung1;
...
caseListn: Anweisungn;
end

... CaseListe muss von einem ordinalen Typ sein, der zum Typ von Selektor kompatibel ist......

[patti]

Eine andere Möglichkeit wäre es, die Color-Werte als const-array zu hinterlegen und dann per Index darauf zuzugreifen. Beispiel:

const FarbenArray : array[1..6] of TColor = (clWhite, clYellow, clGreen, clBlue, clRed, $000080FF); Dann kannst du beispielweise so darauf zugreifen:

Delphi-Quellcode:

ImCube.Canvas.Brush.Color := FarbenArray[FUL]; 
ImCube.Canvas.Rectangle(10, 64, 60, 114); 
//[...] 
ImCube.Canvas.Brush.Color := FarbenArray[RDR]; 
ImCube.Canvas.Polygon([Point(196,128),Point(196,178),Point(214,160),Point(214,110)]);

So kannst du dir die zusätzliche Routine (und damit auch das case) sparen

MFG,
Patti

[steenvoortl]

Zitat von Forlan:

Hast du auch verstanden warum es so geht? 1,2,3,4.. sind Zahlen, keine Zeichenketten... Und mit Strings + case funktioniert generell so nicht.. Da musst du schonmal einen Blick in die Codelibrary werfen, wenn das so gehen soll.

Gruß

Jo hab ich... nur bin ich irgendwie nicht auf die Idee gekommen, direkt den Wert der Variable an den Parameter der Prozedur zu geben, sondern hab irgendwie versucht, den Variablennamen an die Prozedur zu geben und da dann den Wert auszulesen xD

Wie schon richtig gesagt wurde... da hab ich wohl den Wald vor lauter Bäumen nicht gesehen

[alzaimar]

Wenn Du 27 einzelne Variablen hast, die irgendwie das gleiche (oder etwas ähnliches) darstellen, solltest Du über die Verwendung eines Arrays nachdenken.