Главная страницаОбратная связьКарта сайта

Case для строковых значений без учета регистра

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
  Funktioniert unabhangig 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;

Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Case для строковых значений без учета регистра", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info