Говнокод #1400 — Pascal — Говнокод.ру

Говнокод: по колено в коде.

Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!

Pascal / Говнокод #1400

+143.2

if o is TSpellChecker then
      begin
        TSpellChecker(o).FinishMessage := ml(TSpellChecker(o).FinishMessage, form.Name);
        TSpellChecker(o).caption := ml(TSpellChecker(o).caption, form.Name);
      end else
        if o is Tform then
        begin
          TMenuItem(o).Caption := ml(TMenuItem(o).Caption, form.Name);
          TMenuItem(o).Hint := ml(TMenuItem(o).Hint, form.Name);
        end else
          if o is TComboBox then
          begin
    //TComboBox(o).Caption:=ml(TMenuItem(o).Caption,form.Name);
            TComboBox(o).Hint := ml(TComboBox(o).Hint, form.Name);
          end else
            if o is TMenuItem then
            begin
              TMenuItem(o).Caption := ml(TMenuItem(o).Caption, form.Name);
              TMenuItem(o).Hint := ml(TMenuItem(o).Hint, form.Name);
            end else
              if (o is TTBXButton) then
              begin
                TTBXButton(o).Caption := ml(TTBXButton(o).Caption, form.Name);
                TTBXButton(o).Hint := ml(TTBXButton(o).Hint, form.Name);
              end else
                if (o is TTBXLink) then
                begin
                  TTBXLink(o).Caption := ml(TTBXLink(o).Caption, form.Name);
                  TTBXLink(o).Hint := ml(TTBXLink(o).Hint, form.Name);
                end else
                  if (o is TRzGroup) then
                  begin
                    TRzGroupBox(o).Caption := ml(TRzGroup(o).Caption, form.Name);
                    TRzGroupBox(o).Hint := ml(TRzGroup(o).Hint, form.Name);
                  end else
                    if (o is TRzPanel) then
                    begin
                      TRzGroupBox(o).Caption := ml(TRzPanel(o).Caption, form.Name);
                      TRzGroupBox(o).Hint := ml(TRzPanel(o).Hint, form.Name);
                    end else
                      if (o is TRzButton) then
                      begin
                        TRzButton(o).Caption := ml(TRzButton(o).Caption, form.Name);
                        TRzButton(o).Hint := ml(TRzButton(o).Hint, form.Name);
                      end else
                        if (o is TRzTabControl) then
                        begin
                          TRzTabControl(o).Hint := ml(TRzTabControl(o).Hint, form.Name);
                          for k := 0 to TRzTabControl(o).Tabs.Count - 1 do
                          begin
                            TRzTabControl(o).Tabs.Items[k].Caption := ml(TRzTabControl(o).Tabs.Items[k].Caption, form.Name);
                            TRzTabControl(o).Tabs.Items[k].Hint := ml(TRzTabControl(o).Tabs.Items[k].Hint, form.Name);
                          end;
                        end else
                          if (o is TRzTabSheet) then
                          begin
                            TRzTabSheet(o).Caption := ml(TRzTabSheet(o).Caption, form.Name);
                          end else
                            if (o is TRzGroupBox) then
                            begin
                              TRzGroupBox(o).Caption := ml(TRzGroupBox(o).Caption, form.Name);
                              TRzGroupBox(o).Hint := ml(TRzGroupBox(o).Hint, form.Name);
                            end else
                              if (o is TRzGroupItems) then
                              begin
                                TRzGroupBox(o).Caption := ml(TRzGroupBox(o).Caption, form.Name);
                                TRzGroupBox(o).Hint := ml(TRzGroupBox(o).Hint, form.Name);
                              end else
                                if (o is TToolButton) then
                                begin
                                  TToolButton(o).Caption := ml(TToolButton(o).Caption, form.Name);
                                  TToolButton(o).Hint := ml(TToolButton(o).Hint, form.Name);
                                end else
                                  if o is TButton then
                                  begin
                                    TButton(o).Caption := ml(TButton(o).Caption, form.Name);
                                    TButton(o).Hint := ml(TButton(o).Hint, form.Name);
                                  end else
                                    if o is TBitBtn then
                                    begin
                                      TBitBtn(o).Caption := ml(TBitBtn(o).Caption, form.Name);
                                      TBitBtn(o).Hint := ml(TBitBtn(o).Hint, form.Name);
                                    end else
                                      if o is TSpeedButton then
                                      begin
                                        TSpeedButton(o).Caption := ml(TSpeedButton(o).Caption, form.Name);
                                        TSpeedButton(o).Hint := ml(TSpeedButton(o).Hint, form.Name);
                                      end else

                                        if o is TRzToolButton then
                                        begin
                                          TRzToolButton(o).Caption := ml(TRzToolButton(o).Caption, form.Name);
                                          TRzToolButton(o).Hint := ml(TRzToolButton(o).Hint, form.Name);
                                        end else

                                          if o is TRadioButton then
                                          begin
                                            TRadioButton(o).Caption := ml(TRadioButton(o).Caption, form.Name);
                                            TRadioButton(o).Hint := ml(TRadioButton(o).Hint, form.Name);
                                          end else

это пестец

Запостил:

guest, 22 Июля 2009

Комментарии (12) RSS

guest 23.07.2009 04:01 # −1

daemon_master:
case o of не объясняли?) ctrl+v точнее работает?)
Ответить
- guest 10.08.2009 21:02 # +1
  
  да, отличное предложение: case для проверки объектов. Убейся, только сначала книги по рефакторингу почитай.
  Ответить
- labutinpa 14.08.2009 01:19 # +1
  
  Как минимум надо объяснять наследование, полиморфизм и VCL.
  Hint, навскидку, у TWinControl есть
  Ответить
guest 23.07.2009 09:34 # 0

Ебать XDDD Аффтара мне, дайте я пожму его мужественную шею =D
Ответить
guest 24.07.2009 09:17 # −1

Злобный Ыть:
Это SiteEdit
Ответить
guest 11.08.2009 11:43 # 0

xD
Валяюсь под столом. Когда я только учился дельфям, то писал длинные условия и еще баще :) Даже не припомню на сколько строк... 200 наверно :)
Ответить
guest 21.08.2009 12:56 # 0

На вскидку, если код можно выделить в отдельную процедуру, попробовать разбить его на такие блоки:

if o is TSpellChecker then
begin
TSpellChecker(o).FinishMessage := ml(TSpellChecker(o).FinishMessage, form.Name);
TSpellChecker(o).caption := ml(TSpellChecker(o).caption, form.Name);
Exit;
end;

И таких вот блоков сделать столько, сколько надо. Имхо намного читабельнее. Хотя наверняка есть куда более красивое решение:)
Ответить
guest 31.08.2009 22:54 # +1

true govnocoder =)
Ответить
guest 04.09.2009 21:09 # 0

ты не говнокодер, ты быдлокодер!
Ответить
guest 07.09.2009 15:57 # +1

1-ый пост - говнокодер
7-ой пост - говнокодер еще говонокодернее первого.
2 и 3 пост респект.
Ответить
guest 03.02.2010 20:14 # 0

ещё можно заюзать TypInfo, если общего предка нет а имена св-в одинаковые
Ответить
- guest 23.03.2012 12:57 # 0
  
  и токо так, +100500
  Ответить

Говнокод: по колено в коде.

Pascal / Говнокод #1400

Комментарии (12) RSS

Добавить комментарий