Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Замена if else

Автор: chip_and_dayl 3.8.2012, 12:51

Всем привет.

В коде есть следующее ветвление ifов

Код


if codeView='TfrmBasicCardSecond' then
       result:=TfrmBasicCardSecond.Create(aowner, order)
  else if codeView='TfrmBasicCardSecondAdd' then
       result:=TfrmBasicCardSecondAdd.Create(aowner, order)

  else if codeView='TfrmFrameFrontCard' then
       result:=TfrmFrameFrontCard.Create(aowner, order)

  else if codeView='TfrmFrameGroupSeqNum' then
       result:=TfrmFrameGroupSeqNum.Create(aowner, order)
  else if codeView='TfrmFrameGroupSeqNumAdd' then
       result:=TfrmFrameGroupSeqNumAdd.Create(aowner, order)

  else if codeView='TfrmFrameGroupSeqNumCell' then
       result:=TfrmFrameGroupSeqNumCell.Create(aowner, order)
  else if codeView='TfrmFrameGroupSeqNumCellAdd' then
       result:=TfrmFrameGroupSeqNumCellAdd.Create(aowner, order)

  else if codeView='TfrmBasicCardSecondEnd' then
       result:=TfrmBasicCardSecondEnd.Create(aowner, order)
  else if codeView='TfrmBasicCardSecondEndAdd' then
       result:=TfrmBasicCardSecondEndAdd.Create(aowner, order)
   ......  
   else result:=TfrmFrameBasicCard.create(aowner, order);

Так как этот код вызывается очень часто, то затормаживается работа программы. Как можно это ускорить/оптимизировать?

Автор: Akella 3.8.2012, 13:05

все должны угадать, что там живёт в Create?

Добавлено через 54 секунды
Если код вызывается очень часто, то создай всё один раз, но не показывай. В нужный момент просто показывай/прячь.

Автор: chip_and_dayl 3.8.2012, 13:16

Цитата(Akella @ 3.8.2012, 13:05

)

все должны угадать, что там живёт в Create?

Проблема именно в if, поэтому в креейт смотреть не нужно.

Вызывается очень часть, каждые 10 секунд и может вызваться от 1 до 200 за каждый вызов.

Создать один раз не могу

Добавлено через 8 минут и 54 секунды
result: TfrmAbstractFrameCard

Соответственно все объекты которые создаются, есть наследники TfrmAbstractFrameCard

Автор: XperT 3.8.2012, 13:30

Проблема не в if, он не может тормозить программу больше, чем создание формы, но если так сильно хочется его заменить на что-то более быстрое, то рекомендую посмотреть в сторону этой функции:

Код


uses
  StrUtils;
...

const
  cmdQuit     = 'QUIT';
  cmdLogin    = 'LOGIN';
  cmdPassword = 'PASSWORD';
  cmdArray : Array [ 0..2 ] of String = ( cmdQuit, cmdLogin, cmdPassword );

begin
  case AnsiIndexStr( 'medved', cmdArray ) of
    0 : Beep;
    1 : Beep;
    2 : Beep;
    else Beep;
  end
end;

Автор: Qu1nt 3.8.2012, 13:30

http://www.gunsmoker.ru/2008/10/x-y-z.html

Автор: XperT 3.8.2012, 13:31

Так же, если у вас все формы имею одного наследника, то можно посмотреть в сторону TDictionary

Автор: DarkProg 3.8.2012, 14:13

Пробежавшись по коду могу предложить такой вариант оптимизации:
1. Регистрируете классы при запуске программы(REgisterClass)
2. При вызове функции делаете всего лишь FindClass, далее приводите к требуемому базовому классу и выполняете Create

http://delphiworld.narod.ru/base/string_create_form.html

Автор: northener 3.8.2012, 14:34

Цитата(XperT @ 3.8.2012, 13:30

)

но если так сильно хочется его заменить на что-то более быстрое, то рекомендую посмотреть в сторону этой функции

А смысл? Там тот же банальный перебор:

Код


function AnsiIndexStr(const AText: string; const AValues: array of string): Integer;
var
  I: Integer;
begin
  Result := -1;
  for I := Low(AValues) to High(AValues) do
    if AnsiSameStr(AText, AValues[I]) then
    begin
      Result := I;
      Break;
    end;
end;

Автор: XperT 3.8.2012, 16:32

Цитата(northener @ 3.8.2012, 14:34)

Цитата(XperT @ 3.8.2012, 13:30

)

А смысл? Там тот же банальный перебор:

Код


function AnsiIndexStr(const AText: string; const AValues: array of string): Integer;
var
  I: Integer;
begin
  Result := -1;
  for I := Low(AValues) to High(AValues) do
    if AnsiSameStr(AText, AValues[I]) then
    begin
      Result := I;
      Break;
    end;
end;

Посыпаю голову пеплом, но я больше чем уверен, что заменив ифы на что-то более оптимальное автор не добьется увеличение скорости, потому что явно проблема в другом.

Автор: baldina 3.8.2012, 16:50

походу там просто очень много if и тормозит именно линейный просмотр
ТСу нужен выбор более эффективный, чем O(n)
альтернативы - дерево O(log(n)) и хеш-таблица O(1)
TDictionary<keyT,valueT>, как я понимаю, хэш и есть

Цитата(XperT @ 3.8.2012, 13:31

)

Так же, если у вас все формы имею одного наследника, то можно посмотреть в сторону TDictionary

наверно даже если не имеют: в качестве valueT можно взять структуру из указателя на член-функцию и самого объекта, TMethod
см. http://forum.vingrad.ru/topic-21991.html

Автор: Frees 3.8.2012, 17:46

codeView откуда?

Можно сдеалать одну процедуру которая принимает класс формы (а не имя класса) и создает ее как Application.CreateForm

Можно еще GoF Порождающие шаблоны проектирования полистать.

Автор: baldina 4.8.2012, 00:12

Цитата(Frees @ 3.8.2012, 17:46

)

Порождающие шаблоны проектирования

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

Автор: northener 4.8.2012, 00:33

Цитата(baldina @ 4.8.2012, 00:12

)

Хм. Представьте реальный проект с таким узким местом и я с вами соглашусь

Автор: baldina 4.8.2012, 01:07

Цитата(northener @ 4.8.2012, 00:33

)

Представьте реальный проект с таким узким местом

любой проект, где входные данные в виде строк должны отображаться на функции их обработки.
синтаксический анализатор, если угодно.

Автор: Frees 4.8.2012, 10:13

Цитата(baldina @ 4.8.2012, 04:07

)

любой проект, где входные данные в виде строк должны отображаться на функции их обработки.синтаксический анализатор, если угодно.

Неизвестно откуда приходит эта строка, и есть ли возможность заменить строку с именем класса заменить на класс.

Автор: Чучмек 4.8.2012, 12:35

Ну вот можно сделать по аналогии

Код


type
 tfunc=function(AOwner: TComponent;txt:string):tcontrol;
 tcall=record
  cond:string;
  func:tfunc;
 end;

var mcall:array of tcall;

function _label(AOwner: TComponent;txt:string):tcontrol;
 begin
 result:=tlabel.Create(AOwner);
 (result as tlabel).Caption:=txt;
 end;
function _button(AOwner: TComponent;txt:string):tcontrol;
 begin
 result:=tbutton.Create(AOwner);
 (result as tbutton).Caption:=txt;
 end;
function _edit(AOwner: TComponent;txt:string):tcontrol;
 begin
 result:=tedit.Create(AOwner);
 (result as tedit).Text:=txt;
 end;
function _panel(AOwner: TComponent;txt:string):tcontrol;
 begin
 result:=tpanel.Create(AOwner);
 (result as tpanel).Caption:=txt;
 end;
function _else(AOwner: TComponent;txt:string):tcontrol;
 begin
 result:=nil;
 end;

function call(v:string;AOwner: TComponent;txt:string):tcontrol;
var
 min,max,center,oldcenter,cr:integer;
begin
min:=0;
max:=length(mcall);
oldcenter:=0;
while true do
 begin
 center:=min +((max-min) shr 1);
 if center=oldcenter then
  begin
  result:=_else(AOwner,txt);
  break;
  end;
 oldcenter:=center;
 cr:=strcomp(pchar(mcall[center].cond),pchar(v));
 if cr=0 then
  begin
  result:=mcall[center].func(AOwner,txt);
  break;
  end else if cr<0 then min:=center else max:=center;
 end;
end;



procedure TForm1.FormCreate(Sender: TObject);
var i,j,min:integer;
    tmp:tcall;
begin
 setlength(mcall,4);
 mcall[0].cond:='label';
 mcall[0].func:=_label;
 mcall[1].cond:='button';
 mcall[1].func:=_button;
 mcall[2].cond:='edit';
 mcall[2].func:=_edit;
 mcall[3].cond:='panel';
 mcall[3].func:=_panel;

for i:=0 to length(mcall)-2  do
 begin
 min:=i;
 for j:=i+1 to length(mcall)-1  do
  if 0<StrComp(pchar(mcall[min].cond),pchar(mcall[j].cond)) then min:=j;
 if min<>i then
   begin
   tmp:=mcall[min];
   mcall[min]:=mcall[i];
   mcall[i]:=tmp;
   end;
 end;

end;

procedure TForm1.Button1Click(Sender: TObject);
var cmp:tcontrol;
begin
   cmp:=call(edit1.Text,form1,'Ïðóâåò');
   if cmp<>nil then
    begin
    cmp.Visible:=true;
    form1.InsertControl(cmp);
    end;
end;