Показать сообщение отдельно
  #1  
Старый 23.08.2013, 23:18
Аватар для Uniq!
Uniq! Uniq! вне форума
Местный
 
Регистрация: 29.09.2010
Сообщения: 539
Версия Delphi: Delphi XE3
Репутация: 374
По умолчанию Стойокое ощущение

того, что я делаю что-то не так. Я про код в программах.
Нет, у них (юзеров) всё работает, только у меня уверенности в том, что всё это работает как часы нет.

Держу небольшой проект: Ломбард + Магазин. Совершенствую его по мере потребностей начальства (раз в год, летом, взрываю весь код и переписываю всё с нуля, копируя часть наработок из старых версий)
Вся идея в том, что люди приходят, ломбардисты оценивают и заполняют поля в программе, вылазит залоговый билет на принтер. А инфа с него в MySQL БД. Далее за всем этим множеством билетов следит человек. Инвентаризации, еженедельные отчёты, подсчёт прибыли и т.д. Всё это реализовано на XE3 + DevExpress.

Весь код переполнен подобного рода фигнёй:
Код:
      tClients.Insert;
      tClients.FieldByName('Surname').AsString :=
      Trim(StringReplace(cSurname.Text, ' ', '', [RFReplaceall]));
    tClients.FieldByName('Name').AsString :=
      Trim(StringReplace(cName.Text, ' ', '', [RFReplaceall]));
    tClients.FieldByName('Patronymic').AsString :=
      Trim(StringReplace(cPatronymic.Text, ' ', '', [RFReplaceall]));
    tClients.FieldByName('Passport').AsString :=
      Trim(StringReplace(cPassport.Text, ' ', '', [RFReplaceall]));
    tClients.FieldByName('PWhom').AsString := cPWhom.Text;
    tClients.FieldByName('PWhen').AsString := cPWhen.Text;
    tClients.FieldByName('Address').AsString := cAddress.Text;
    tClients.FieldByName('IDCode').AsString :=
      Trim(StringReplace(cIDCode.Text, ' ', '', [RFReplaceall]));
    tClients.FieldByName('Phone').AsString :=
      Trim(StringReplace(cPhone.Text, ' ', '', [RFReplaceall]));
    tClients.Post;

Я уверен, что меня в адекватной фирме за этот код сожгли бы. Учился в своё время, читая книгу Delphi. Быстрый старт. и ещё парочку справочников.

С тех пор прошло 10 лет. Как-то не по себе. Возможности XE3 не использую. Devexpress изучается постепенно через форумы только, если возникнет реальная необходимость "раскрасить грид". Да что там говорить. Блоки try..except так и не прижились у меня.

Помогите справиться с этой проблемой.

P.s 23 года. Учусь в МИФИ по специальности Медицинская Физика. Программирование - хороший запасной вариант, если времена будут не лучшие
Ответить с цитированием