Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Клуб программистов > Свободное общение
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.07.2015, 18:02   #41
JUDAS
фонатик DELPHI
Форумчанин
 
Аватар для JUDAS
 
Регистрация: 14.01.2008
Сообщений: 714
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
А что тут такого быдлокодного?

А тут что не так?
Код:
 with LitleDlg, Litle do
 if ShowModal = mrOk then
 begin
   SQL.Text := 'insert into litle (_TYPE, _REG, _BDATE, _EDATE,_USER,_INT) '+
      'Values(:TYPE, :REG, :BDATE, :EDATE, :USER, Litle.NextVal)';
   ParamByName('TYPE').AsString := Edit1.Text;
   ParamByName('REG').AsString := Edit2.Text;
   ParamByName('BDATE').AsDateTime := Edit3.Date;
   ParamByName('EDATE').AsDateTime := Edit4.Date;
   ParamByName('USER').AsString := Edit5.Text;
   ExecSQL;
   Session.Commit;  // это ODAC тут работает всё отлично
 end;
Виталий, в что будет если в тот быдлокод в Edit5.Text я вклиню текст
Litle.NextVal); delete from litle; ?
п.с. а автор так и не понял кто, и главное как ему почистили табличку
95% сбоев и ошибок приложений, находится в полу метрах от монитора
JUDAS вне форума Ответить с цитированием
Старый 19.07.2015, 19:45   #42
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
что будет если в тот быдлокод в Edit5.Text я вклиню текст
Ниче не будет, поскольку
Цитата:
#39+LitleDlg.Edit5.Text+#39
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 18.06.2018, 19:47   #43
JUDAS
фонатик DELPHI
Форумчанин
 
Аватар для JUDAS
 
Регистрация: 14.01.2008
Сообщений: 714
По умолчанию

Досталось от пенсионера

Код:
var ni : integer;
begin
  ni := 1;
  if ni = 1 then
  begin
    .... 1250 строк
  end;
end;
с этой же оперы

Код:
var proverka : boolean;
begin
   .....
   if Query.FieldByName('TOCHKA_1').AsInteger > 10000 then
     proverka  :=  true
  else
     proverka  :=  false;

  if proverka then
  else
  begin
     .... 210 строчек кода
  end;
end;
95% сбоев и ошибок приложений, находится в полу метрах от монитора
JUDAS вне форума Ответить с цитированием
Старый 18.06.2018, 20:06   #44
NetSpace
Участник клуба
 
Аватар для NetSpace
 
Регистрация: 03.06.2009
Сообщений: 1,792
По умолчанию

вот есть у меня кусок кода, писал уже лет 9 назад.
но с тех пор как его переделать покороче - так и не дошли руки
Код:
//----- оставляем нужное число кнопок ------------------------------------------
procedure TForm1.CBut(cn:Integer);
begin
   if(cn=0)then
   begin
      Button1.Enabled:=False;
      Button2.Enabled:=False;
      Button3.Enabled:=False;
      Button4.Enabled:=False;
      Button5.Enabled:=False;
      Button6.Enabled:=False;
      Button7.Enabled:=False;
      Button8.Enabled:=False;
      Button9.Enabled:=False;
      Button10.Enabled:=False;
   end;
   if(cn=1)then
   begin
      Button1.Enabled:=True;
      Button2.Enabled:=False;
      Button3.Enabled:=False;
      Button4.Enabled:=False;
      Button5.Enabled:=False;
      Button6.Enabled:=False;
      Button7.Enabled:=False;
      Button8.Enabled:=False;
      Button9.Enabled:=False;
      Button10.Enabled:=False;
   end;
   if(cn=2)then
   begin
      Button1.Enabled:=True;
      Button2.Enabled:=True;
      Button3.Enabled:=False;
      Button4.Enabled:=False;
      Button5.Enabled:=False;
      Button6.Enabled:=False;
      Button7.Enabled:=False;
      Button8.Enabled:=False;
      Button9.Enabled:=False;
      Button10.Enabled:=False;
   end;
   if(cn=3)then
   begin
      Button1.Enabled:=True;
      Button2.Enabled:=True;
      Button3.Enabled:=True;
      Button4.Enabled:=False;
      Button5.Enabled:=False;
      Button6.Enabled:=False;
      Button7.Enabled:=False;
      Button8.Enabled:=False;
      Button9.Enabled:=False;
      Button10.Enabled:=False;
   end;
   if(cn=4)then
   begin
      Button1.Enabled:=True;
      Button2.Enabled:=True;
      Button3.Enabled:=True;
      Button4.Enabled:=True;
      Button5.Enabled:=False;
      Button6.Enabled:=False;
      Button7.Enabled:=False;
      Button8.Enabled:=False;
      Button9.Enabled:=False;
      Button10.Enabled:=False;
   end;
   if(cn=5)then
   begin
      Button1.Enabled:=True;
      Button2.Enabled:=True;
      Button3.Enabled:=True;
      Button4.Enabled:=True;
      Button5.Enabled:=True;
      Button6.Enabled:=False;
      Button7.Enabled:=False;
      Button8.Enabled:=False;
      Button9.Enabled:=False;
      Button10.Enabled:=False;
   end;
   if(cn=6)then
   begin
      Button1.Enabled:=True;
      Button2.Enabled:=True;
      Button3.Enabled:=True;
      Button4.Enabled:=True;
      Button5.Enabled:=True;
      Button6.Enabled:=True;
      Button7.Enabled:=False;
      Button8.Enabled:=False;
      Button9.Enabled:=False;
      Button10.Enabled:=False;
   end;
   if(cn=7)then
   begin
      Button1.Enabled:=True;
      Button2.Enabled:=True;
      Button3.Enabled:=True;
      Button4.Enabled:=True;
      Button5.Enabled:=True;
      Button6.Enabled:=True;
      Button7.Enabled:=True;
      Button8.Enabled:=False;
      Button9.Enabled:=False;
      Button10.Enabled:=False;
   end;
   if(cn=8)then
   begin
      Button1.Enabled:=True;
      Button2.Enabled:=True;
      Button3.Enabled:=True;
      Button4.Enabled:=True;
      Button5.Enabled:=True;
      Button6.Enabled:=True;
      Button7.Enabled:=True;
      Button8.Enabled:=True;
      Button9.Enabled:=False;
      Button10.Enabled:=False;
   end;
   if(cn=9)then
   begin
      Button1.Enabled:=True;
      Button2.Enabled:=True;
      Button3.Enabled:=True;
      Button4.Enabled:=True;
      Button5.Enabled:=True;
      Button6.Enabled:=True;
      Button7.Enabled:=True;
      Button8.Enabled:=True;
      Button9.Enabled:=True;
      Button10.Enabled:=False;
   end;
   if(cn=10)then
   begin
      Button1.Enabled:=True;
      Button2.Enabled:=True;
      Button3.Enabled:=True;
      Button4.Enabled:=True;
      Button5.Enabled:=True;
      Button6.Enabled:=True;
      Button7.Enabled:=True;
      Button8.Enabled:=True;
      Button9.Enabled:=True;
      Button10.Enabled:=True;
   end;
end;
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
NetSpace вне форума Ответить с цитированием
Старый 18.06.2018, 20:58   #45
Ципихович Эндрю
Старожил
 
Регистрация: 24.01.2011
Сообщений: 3,034
По умолчанию

мама родная, так вот и нужны инструменты, то есть имеем 10 кнопок
говорим на русском языке - есть семейство - 10 кнопок
1 все фальш
2 все кроме 1 фальш
3 .....
я уж не знаю на каком это ЯП, неужели такой элементарщины нет?
Ципихович Эндрю вне форума Ответить с цитированием
Старый 18.06.2018, 21:02   #46
alexzk
Форумчанин
 
Регистрация: 12.04.2017
Сообщений: 889
По умолчанию

Хотел показать фрагментик....но чета архив не разжимается

Вопщем...код на С++, переведенный с Дельфи, который был переведен с турбо-паскаля. Итого 20 лет, 300+ файлов - карточная игра

Значит в С++ коде имеем
Код:
struct {
} someGlobalVar;
В этой структуре 300(!!) полей с названиями вроде i,j,k,n ...(да, прям эти буквы там были).
Далее, ни в 1 функции кода ниразу не использованы параметры или локальные переменные - все, все берутся из этой глобальной структуры (а i,j,k - как вы угадали - циклы и индексы обычно, но n - это глобальный индекс текущей карты...)

Вот на это все я навесил гуй на яве для дроида - это был самый кошмарный проект. Когда оно не совсем "так" работало - я брался "чинить" ... файл 45 Кб кода многоэтажного IF, в итоге ужимался до 1 экрана....но все я не чинил ессно, ток чтоб прошло тесты заказчика ))

С тех пор я не ведусь на "у нас все готово, остался сущий пустяк".

Последний раз редактировалось alexzk; 18.06.2018 в 21:05.
alexzk вне форума Ответить с цитированием
Старый 18.06.2018, 21:09   #47
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Цитата:
Сообщение от Ципихович Эндрю Посмотреть сообщение
я уж не знаю на каком это ЯП, неужели такой элементарщины нет?
есть конечно, массивы и т.п.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 18.06.2018, 21:18   #48
alexzk
Форумчанин
 
Регистрация: 12.04.2017
Сообщений: 889
По умолчанию

Забыл как на дельфи, на С++ я бы примерно так сделал (что-то похожее и на дельфи можно)

Код:

TButton* arr[] = {Button1, Button2, Button3, Button4, Button5, }; // итд

for (size_t i =0, sz = std::size(arr); i < sz; ++i)
   arr[i]->Enabled = (i < cn);
Удивляют меня копипастеры...и не лень же 10 раз повторят с 1 изменением каждый раз. Только из-за этой нудной тупой работы можно начинать думать, как ее не делать ))

Последний раз редактировалось alexzk; 18.06.2018 в 21:22.
alexzk вне форума Ответить с цитированием
Старый 18.06.2018, 22:41   #49
Ципихович Эндрю
Старожил
 
Регистрация: 24.01.2011
Сообщений: 3,034
По умолчанию

Цитата:
Сообщение от alexzk Посмотреть сообщение
Удивляют меня копипастеры...и не лень же 10 раз повторят с 1 изменением каждый раз
вопрос спорный-если это в отдельной процедуре - открыл глянул визуально! видно что и как...
Ципихович Эндрю вне форума Ответить с цитированием
Старый 18.06.2018, 22:43   #50
Вадим Мошев

Старожил
 
Аватар для Вадим Мошев
 
Регистрация: 12.11.2010
Сообщений: 8,570
По умолчанию

Цитата:
Сообщение от Alex11223 Посмотреть сообщение
есть конечно, массивы и т.п.
Тут даже массив не нужен. Сейчас Делфи не установлен, а работу с компонентами немного подзабыл. Сделал бы что-то такое:
Код:
for i:=1 to 10 do begin
	(findComponent('button' + intToStr(i)) as TButton).enabled := (i <= cn)
end;
Цитата:
Сообщение от Ципихович Эндрю Посмотреть сообщение
я уж не знаю на каком это ЯП
Это Delphi

Последний раз редактировалось Вадим Мошев; 18.06.2018 в 22:45.
Вадим Мошев вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Посоветуйте редактор текста или как его писать maloun Общие вопросы Delphi 7 17.09.2014 17:14
Написание парсера или грабера на php, как писать? timeStoper PHP 4 09.05.2013 16:21
Как писать программы на Лиспе? MrBrain Помощь студентам 0 16.10.2011 21:30
Какие программы нужно установить чтобы писать программы для телефонов nokia Кристинка89 Общие вопросы по Java, Java SE, Kotlin 2 17.02.2011 15:15
Метод Монте-Карло литература или примеры программ на С++ или С MIKI Помощь студентам 2 09.12.2008 13:33