Case из STRING. HELP!

[Altera]

Привет всем!
У меня вопрос.
Как мне из срок нужную выбрать?
Case.....of не помогает!

Подскажите пожалуйста!

[_SERGEYX_]

Вопрос непонятен.
Давай кусок кода...

[B_N]

Вопрос понятен. Через case нельзя в силу реализации. Через if.

if str = 'AAAAA' then begin (*......*) end
else if str = 'BBBBBB' then begin (*......*) end
else if str = 'CCCCC' then begin (*......*) end
else if str = 'DDDDD' then begin (*......*) end
else if str = 'EEEEEE' then begin (*......*) end
..........................

Разумеется, существуют варианты оптимизации, скажем через хэш-таблицы для серьёзных случаев.

[Altera]

Нука примерчик...
Ато с if...then неудобно как-то

[rpy3uH]

Сообщение от Altera

Ато с if...then неудобно как-то

а по-другому нельзя

[andrey4623]

написать маленькую функцию и в нее передавать строку

[Alter]

{Аналог case для строки 
--------------------------------------------------------------------------------}
{Вот способ, легко приспосабливаемый для загрузки списка из строки, файла или ресурса: }


const
  vlist = 'первый, второй, третий';

var
  Values: TStringList;

procedure SetValues(VL : TStringList; S: String);
var
  I : Integer;
begin
  VL.CommaText := S;
  for I := 0 to CL.Count-1 do
    VL.Objects[I] := Pointer(I);
  VL.Sorted := True;
end;

function GetValueIndex(VL : TStringList; Match: String): Integer;
begin
  Result := VL.IndexOf(Match);
  if Result >= 0 then
    Result := Integer(VL.Objects[Result]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  case GetValueIndex(Values, Edit1.Text) of
    -1: {не найден} ;
     0: Caption := '0';
     1: Caption := '1';
     2: Caption := '2';
  end;
end;

initialization
  VL := TStringList.Create;
  SetValues(VL, vlist);

finalization
  VL.Free;

_______________________________________________________________
Delphi World ...

[puporev]

У меня вопрос.
Как мне из срок нужную выбрать?

А что значит нужную?

[Altera]

А что значит нужную?

Как что значит?
Нужно ну! Ведь как вводятся коды в игре, нпр. в Каунтер страйке?
--------------------------------
Допустим у меня строка ввода text_input: tEdit.
При вводе строки и нажатии кнопки done_button: tSpeedButton прога должна найти оприделить что я ввёл, т.е. и выполнить действие.

Тут бы подошол

case text_input of
'exit': close;
'max': formState := fsMaxsimized'
//и т.д.
end;

Жалко, что так нельза... Но Alter хорошо придумал. Спасибо Alter-у

[B_N]

Не вижу, если честно, ничего хорошего в методе Alter'а. Вместо нескольких операторов if объявлять классовую переменную, несколько функций, удваивать, как минимум, объем памяти под строки и в конечном счёте получить те же if'ы внутри "VL.IndexOf(Match)". И какая разница между несколькими if-elseif-elseif-else и case, кроме "косметической"? А если строк очень много, я уже говорил, лучше смотреть в сторону хеш-таблиц и подбирать подходящую хэш-функцию.