Case AnsiIndexText -> Ergebnis verändern

[HolgerCW]

Hallo zusammen,

kann ich das Ergebnis manipulieren, so das wo anders hingesprungen wird ?

Siehe unten. Bei dem Ergebnis 0, soll er bei einem bestimmten Ereignis doch nach 1 springen.

Delphi-Quellcode:

Case AnsiIndexText(Wert, ['A', 'B','C']) of

   0: begin
   
   If Z = 1 then
    
    //Springe zu 1
   
   end;

   1:begin
   ...
   end;
    
   2:begin
   ...
   end;
  end;

Gruss

Holger

[baumina]

Delphi bietet zwar ein Goto (da heißt das Label), ist aber eine grauenvolle Art zu programmieren und kann eigentlich immer umgangen werden. Trotzdem ein Beispiel mit Label:

Delphi-Quellcode:

 var
   i : Integer;

 label
   GotoLabel;

 begin
   for i := 1 to 10 do
   begin
     ShowMessage('i = '+IntToStr(i));

    if i = 4 then Goto GotoLabel;   // Conditionally exit the loop
   end;

   ShowMessage('The loop finished OK');
 GotoLabel:
   ShowMessage('Loop finished with i = '+IntToStr(i));
 end;

EDIT : Eine Art ein GoTo zu vermeiden ist, dass Du einfach eine Procedure an beiden Stellen aufrufst.

[himitsu]

Oder vor dem CASE prüfen und da noch den Index ändern.

Delphi-Quellcode:

I := AnsiIndexText(Wert, ['A', 'B','C']);
if (I = 0) and (Z = 1) then I := 1;
case I of
  0: begin
  ...

Delphi-Quellcode:

if IfThen((UpperCase(Wert) = 'A') and (Z = 1), 1, AnsiIndexText(Wert, ['A', 'B','C'])) of
case I of
  0: begin
  ...

[Sir Rufo]

Das sieht ja grausam aus ...

Warum nicht so

Delphi-Quellcode:

procedure foo;
begin
  ...
end;

procedure bar;
begin
  ...
end;

case AnsiIndexText( Wert, ['A', 'B', 'C'] ) of
  0 : 
    foo;
  1 : 
    if Z=1 then
      foo
    else
      bar;
  2 :
    begin
      foo;
      bar;
    end;
end;

Und wenn gar nichts mehr geht, dann gibt es noch das State-Pattern

[himitsu]

Mein zweites Beispiel sollte man wohl nicht ganz Ernst. (aber wenn es ihm zuviele Zeilen sind, dann halt so )

Wenn in dem CASE jeweils nur 1-3 Zeilen stehen, dann würde ich eher Variante bevorzugen, oder das CASE gegen ELSE-IFs austauschen.

Es gibt tausende Wege es zu lösen, also wie wäre es beispielsweise mal mit etwas Mathematik?

Delphi-Quellcode:

// angenommen Z kennt nur 0 und 1
case AnsiIndexText(Wert, ['A', 'B','C']) + (Z * 10) of
  00:
    ...
  01, 11, 10:
    ...
  02, 12:
    ...
end;

[Sir Rufo]

@himitsu

Das ist wohl der KISS of death

[HolgerCW]

Danke für die info.

Habe es jetzt ausgelagert in eine Funktion und rufe die auf. Goto gefällt mir nämlich auch nicht ...

Gruss

Holger

[sx2008]

Zitat von himitsu:

Mein zweites Beispiel sollte man wohl nicht ganz Ernst. (aber wenn es ihm zuviele Zeilen sind, dann halt so )

Also ich find's gut.
Die Programmierer wollen es ja heutzutage immer so einfach haben und hängen im Dämmerschlaf vor ihrem PC rum und trinken Kaffee.
Da tut es richtig gut wenn's mal nicht so einfach ist und die grauen Zellen auf Trab kommen