1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

if Value=String1 then
begin
 //Bla1
end else if Value=String2 then
begin
 //Bla2
end else if Value=String3 then
begin
 //Bla3
end else
begin
 //BlaElse
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

//--- Global irgendwo ---
gCaseList:=THashedStringList.Create(); // Oder TStringList für alle <D6
gCaseList.Add(String1);
gCaseList.Add(String2);
gCaseList.Add(String3);

//--- Dann bei der Methode ---
case gCaseList.IndexOf(Value) of
 0: //BlaElse
 1: //BlaElse
 2: //BlaElse
 else //BlaElse
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

{ 
  Funktioniert unabhängig von der Klein-/Großscheibung in dem Input-String: 
  Versuchen Sie es z.B. mit "Mother" oder "mOTHER"... 

  Damit kann man seine eigene Makrosprache entwickeln oder bestimmte 
  Teile eines Strings aus einem SQL statement, aus einer wohlgeformten Datei 
  wie im XML-Format...interpretieren. 
} 

{ 
  It works fine and it's not case sensitive: 
  Try to give "Mother" or "mOTHER" in the Input-String... 

  For exemple, you may use this to programm your own macro command system. 
  You can also parse a well formed text file (XML...) 
  Or to interpret a Database Field name as a selector, or whatelse you want. 
} 


uses 
  TypInfo; 

type 
  TNumericChoiceParent = (ncp_Mother, ncp_Father, ncp_Child); 

procedure TForm1.btChooseClick(Sender: TObject); 
var 
  S: string; 
begin 
  S := InputEdit.Text; 
  case TNumericChoiceParent(GetEnumValue(TypeInfo(TNumericChoiceParent), 'ncp_' + S)) of 
    ncp_Mother: ShowMessage('Hello Mom :o)'); 
    ncp_Father: ShowMessage('Hi, Dad -]'); 
    ncp_Child: ShowMessage('Shut up and eat your soup !-('); 
  else 
    ShowMessage('Who do you think that you are?'); 
  end; 
end;                    

1:
2:
3:
4:

  if Value = String1 then Procedure1 else
  if Value = String2 then Procedure2 else
  if Value = String3 then Procedure3 else
                          Procedure4;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

  //--- Global irgendwo ---
  gCaseList:=THashedStringList.Create();
  gCaseList.CommaText:=AnsiUpperCase('String1,String2,String3');

  //--- Dann bei der Methode ---
  case gCaseList.IndexOf(AnsiUpperCase(Value)) of
    0: //BlaElse
    1: //BlaElse
    2: //BlaElse
  else //BlaElse
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

  //--- Global irgendwo ---
  with THashedStringList.Create do
  begin
    CommaText:=AnsiUpperCase('String1,String2,String3');

    //--- Dann bei der Methode ---
    case IndexOf(AnsiUpperCase(Value)) of
      0: //BlaElse
      1: //BlaElse
      2: //BlaElse
    else //BlaElse
    end;
  end;