Brauche Nachhilfe in Case

[Daniel B]

Hi,

ich habe 3-4 solcher abfragen/änderungen. Sowas lässt sich doch bestimmt mit case einfacher lösen. Ich verstehe es einfach nicht. Vielleicht kann mir jemand helfen.
Vielen Dank.

Code:

  if MainFormMC2004.ComPort.Port = 'COM1' then
  begin
    ComboBoxPort.ItemIndex:=0;
  end
  else if MainFormMC2004.ComPort.Port = 'COM2' then
  begin
    ComboBoxPort.ItemIndex:=1;
  end
  else if MainFormMC2004.ComPort.Port = 'COM3' then
  begin
    ComboBoxPort.ItemIndex:=2;
  end
  else if MainFormMC2004.ComPort.Port = 'COM4' then
  begin
    ComboBoxPort.ItemIndex:=3;
  end
  else if MainFormMC2004.ComPort.Port = 'COM5' then
  begin
    ComboBoxPort.ItemIndex:=4;
  end
  else if MainFormMC2004.ComPort.Port = 'COM6' then
  begin
    ComboBoxPort.ItemIndex:=5;
  end
  else if MainFormMC2004.ComPort.Port = 'COM7' then
  begin
    ComboBoxPort.ItemIndex:=6;
  end
  else if MainFormMC2004.ComPort.Port = 'COM8' then
  begin
    ComboBoxPort.ItemIndex:=7;
  end;

[MrSpock]

Hallo Daniel,

bad news :

case benötigt einen Selector, der ein ordinaler Typ sein muss, STRINGs werden nict unterstützt.

Hättest du einen eigenen Aufzählungstyp:

Code:

type
   tComPorts=(COM1, COM2, COM3);

könntest du case verwenden.

[Daniel B]

Ich hab keine Aufzählung. Naja, trotzdem Danke.

[MrSpock]

Hallo Daniel,

als Nachtrag:

du könntest entweder eine Funktion schreiben, die den Index zurückgibt und dann diese bei der Zuweisung aufrufen:

Code:

ComPortBox.ItemIndex := GetIndex(MainFormMC2004.ComPort.Port);

wobei GetIndex im OPrinzip wie in deinem Code definiert wird. Eventuell ließe sich auch die Tag Eigenschaft von ComPort benutzen. Wenn es dir gelänge das Tag immer mit dem Inhalt von "Port" zu synchronisieren. Dann wäre deine Zuweisung:

Code:

ComPortBox.ItemIndex := MainFormMC2004.ComPort.Tag

Leider kenne ich die ComPort Komponente nicht und kann deshalb keine tieferen Details zeigen.

[sakura]

Im diesem speziellen Fall könntest Du folgendes tun

Code:

case IntToStrDef(Copy(MainFormMC2004.ComPort.Port, 3, 2), -1) of
 -1:; //Fehler
  1: Port 1
  2: Port 2
  3: Port 3
  ...
end;

[Christian Seehase]

Moin Daniel B,

oder so:

Code:

ComboBoxPort.ItemIndex := StrToInt(AnsiLastChar(MainFormMC2004.ComPort.Port))-1;

[sakura]

Zitat von Christian Seehase:

Moin Daniel B,

oder so:

Code:

ComboBoxPort.ItemIndex := StrToInt(AnsiLastChar(MainFormMC2004.ComPort.Port))-1;

Hätte ich wirklich dahin geschaut, was Daniel erreichen wollte, hätte ich vielleicht auch Deine Idee gebracht - aber der Schrei nach case hat mich geblendet. ohohoh...

[Daniel B]

Zitat von Christian Seehase:

Code:

ComboBoxPort.ItemIndex := StrToInt(AnsiLastChar(MainFormMC2004.ComPort.Port))-1;

Hmm... es scheint zu gehen, aber verstehen tue ich es nicht wirklich.
Dieses AnsiLastChar macht mir zuschaffen.

Call AnsiLastChar to obtain locate the last character in a string. This function supports multi-byte character sets (MBCS).

[RomanK]

AnsiLastChar gibt die Letzte stelle deines Strings aus. Also hier: com1 also 1 und dann mit StrtoInt nach interger und noch -1 und schon kann man direkt zuweisen.

[sakura]

Zitat von FuckRacism:

AnsiLastChar gibt die Letzte stelle deines Strings aus. Also hier: com1 also 1 und dann mit StrtoInt nach interger und noch -1 und schon kann man direkt zuweisen.
Vergleichbar

Oops, das ist falsch. AnsiLastChar gibt das letzte Zeichen eines Strings als Char bzw. WideChar (MCBS) zurück. Erst die Funktion StrToInt erledigt die Umwandlung.