entsprechender Delphi Code zu VB6?

[jaegerschnitzel]

Ich suche einen Befehl in Delphi, nämlich:
Welcher Befehl entspricht dem "Select Case" Befehl in VB6?

Ich hoffe es kann mir jemand helfen!

[Snoop007]

wenn du die selektion meinst

Code:

case <value> of
  number : <anweisung>;
  .
  .
  .
  numbern : <anweisung>;
  else
    <anweisung>;
  end;

[jaegerschnitzel]

Ja sowas meinte ich.
Kann ich da auch mehrere Werte zusammenfassen, etwa so:

Code:

case <value> of
  number 1: <anweisung>;
  .
  .
  .
  numbern 3 to 10: <anweisung>;
  else
    <anweisung>;
  end;

[Gollum]

Hallo,

ja, kannst Du:

Delphi-Quellcode:

case <value> of 
  1: <anweisung>; 
  . 
  . 
  . 
  3..10,
  25..46,
  'A'..'Z': <anweisung>; 
  else 
    <anweisung>; 
  end;

[ibp]

ja

Delphi-Quellcode:

Die case-Anweisung

case I of
  1..5: Caption := 'Low';
  6..9: Caption := 'High';
  0, 10..99: Caption := 'Out of range';
else
  Caption := '';
end;

[jaegerschnitzel]

Kennt sich jemand mit VB besser aus?
Wenn ja wäre es nett, wenn mir jemand den folgenden VB-Code in Delphi "übersetzt", weil ich damit nicht klarkomme.

Code:

Option Explicit
Public Folgennummer As Byte


Private Sub mnu_01_Click()
Folgennummer = 1
PlayEpisodeNummer Folgennummer
End Sub

Private Sub mnu_02_Click()
Folgennummer = 2
PlayEpisodeNummer Folgennummer
End Sub


Private Sub PlayEpisodeNummer(index As Byte)
Select Case index
Case 1
Case 2
End Select
End Sub

Mit dem unteren Teil komm ich nicht klar. PlayEpisodeNummer ist eine Funktion die beim klicken auf ein Menü aufgerufen wird. Wie genau mache ich das in Delphi??

[Sprint]

Zitat:

Zitat von jaegerschnitzel

Mit dem unteren Teil komm ich nicht klar. PlayEpisodeNummer ist eine Funktion die beim klicken auf ein Menü aufgerufen wird. Wie genau mache ich das in Delphi??

In PlayEpisodeNummer wird ja nichts ausgeführt!!! Da Fehlen wohl einige Befehle. :)

Delphi-Quellcode:

var
  Folgennummer: Integer;

procedure PlayEpisodeNummer(Index: Integer);
begin

  case Index of
    1:;
    2:;
  end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin

  Folgennummer := 1;
  PlayEpisodeNummer(Folgennummer);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin

  Folgennummer := 2;
  PlayEpisodeNummer(Folgennummer);

end;

Statt Menü's habe ich zwei Buttons genommen. Wird wohl als Hilfestellung reichen. Oder?

[jaegerschnitzel]

Nochmal erklärt.
Wenn man im Menu wo rauf klickt wird zuerst die Folgennummer gesetzt. Danach soll der Befehl PlayEpisodeNummer ausgeführt werden, mit der vorher gesetzten Variabel (Folgennummer). Je nach der Folgennummer trifft dann der bestimmte Case zu.

Es kommt immer folgende Fehlermeldung:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin

  Folgennummer := 1;
  PlayEpisodeNummer(Folgennummer);

end;

Eigentlich sollte nun der Code PlayEpisodeNummer in Kraft treten, aber das tut er nicht: PlayEpisodeNummer Undefinierter Bezeichner.

[dizzy]

Keks... PlayEpisodeNummer muss natürlich auch vorher programmiert sein... Das ist ja keine Standard-Operation die mit Delphi mit kommt :roll:.
Wir nahmen jetzt mal alle an (nehme ich mal an ;)), dass die Funktion bereits existiert.
Es muss also irgendeine Funktion

Delphi-Quellcode:

procedure PlayEpisodeNumber(Nummer: Integer);
begin
  // Dein Code
end;

her, die das macht, was sie eben machen soll. :spin:

gruss,
dizzy

[jaegerschnitzel]

wie muss ich den Befehl PlayEpisodeNummer definieren, damit er global für den ganzen Code immer gilt?