Список команд cm_...

Модератор: motyara

Ответить
Аватара пользователя
Alex
Сообщения: 649
Зарегистрирован: Чт окт 18, 2007 6:19 pm
Контактная информация:

Список команд cm_...

Сообщение Alex »

Вот небольшой юнит для списка команд.
Команды - строки с префиксом cm_, как в TC. главное- определение команды по данной строке, ф-ция CmdId.

Код: Выделить всё

unit Cmd;

interface

type
  TCmd = (cm_None, cm_List1, cm_List2, cm_List3);

const
  SCmd: array[TCmd] of string = ('', 'cm_List1', 'cm_List2', 'cm_List3');

function CmdId(const S: string): TCmd;


implementation

uses SysUtils;

function CmdId(const S: string): TCmd;
var
  i: TCmd;
begin
  Result := cm_None;
  for i := Low(TCmd) to High(TCmd) do
    if UpperCase(SCmd[i]) = UpperCase(S) then
    begin
      Result := i;
      Break
    end;
end;

end.

Аватара пользователя
Max Diesel
Автор программы
Сообщения: 3431
Зарегистрирован: Пт окт 12, 2007 3:26 pm
Контактная информация:

Сообщение Max Diesel »

Возможно позже я и прийду к необходимости такой системы, но пока что она мне кажется излишней...
Аватара пользователя
Alex
Сообщения: 649
Зарегистрирован: Чт окт 18, 2007 6:19 pm
Контактная информация:

Re: Список команд cm_...

Сообщение Alex »

могу взять на себя этот юнит, набить все команды.
PS. ФОрум тормозит..
Аватара пользователя
Max Diesel
Автор программы
Сообщения: 3431
Зарегистрирован: Пт окт 12, 2007 3:26 pm
Контактная информация:

Сообщение Max Diesel »

Да все дело-то даже не в том, что мне не хочется эти команды "набирать"... просто есть некоторая проблемность в плане перехода от имеющейся системы к новой при факте сохранения в рабочем состоянии и имеющейся тоже. А может быть действительно просто пока что нет желания все перестраивать по-новому... подождем немного - может оно появится.
Ответить