Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Разное > Флейм
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #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 года. Учусь в МИФИ по специальности Медицинская Физика. Программирование - хороший запасной вариант, если времена будут не лучшие
Ответить с цитированием
 


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 11:53.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter