Delphi Tour

[RomanRom2]

нет ни у кого желания посетить дельфи тур 16го сентября в москве?
http://delphitour.ru/

так то я понимаю, что большинству из вас это безтолково, дельфи какая то, блаблабла, но мы ж туда не за этим едем

я был в феврале в казани, вот намереваюсь и в этот раз.

[Konctantin]

У нас постоянно ездит сотрудник на эти дела, по идее должен поехать и 16.09.

ЗЫ: <отсебячина> ужасно не нравится продукция Embarcadero, постоянно лепят версии а как был функционал с 7 так и остался. Совершенно не думают о программистах которые на их продукции работают.

ЗЫЫ. так достала ложная подсветка ошибок и рассинхронизация подсветки с интелисайнсом

ЗЫЫЫ. Отладчик просто гов...о.

ЗЫЫЫЫ. А приходится работать, благо сейчас как-то больше на вебсервисы (C#) переехал и меньше стал кодить на Delphi.

[RomanRom2]

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

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

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

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

[Konctantin]

Возможно моя нелюбовь к Дельфи возникла из-за того проекта над которым пришлось работать.
Представьте себе коммерческое приложение которое состоит из кучи форм, в и в основном это какая-то отчетность + формы редактирования.
Так вот все эти формы вызываются из основной формы "MAIN.pas" и в этом же юните реализованы все методы выборки для каждой формы.

и эти 72к строк кода в "MAIN.pas" кажется и сделали свое дело.
+ секция var с около 1к переменных в 1 месте.

В итоге никакой масштабируемости, костыль на костыле, постоянно падающая студия (в день 2-3 раза именно на этом проэкте).

+ Дырявые компоненты, из-за которых куча утечек памяти.

И да, больше всего убивает 1 баг:
У нас есть "чувак" который работает с увеличеным шрифтом, так вот после него постоянно приходится править формы, так как после компиляции они выглядят ужасно.

Чет я завел холивар на форуме и параллельно в кабинете у нас

ЗЫ. Вот пример одного из вызова формы (ужаснитесь)
Я не могу понять, почему выборку нельзя впихнуть в код формы и не писать эти простыни постоянно.

procedure TMainForm.CreateFormPrognozPlanRemGod(nameForm: string);
var
  FormPrognozPlanRemGod: TFormPrognozPlanRemGod;
  przn,i: Integer;
  y:word;
  cSQL:string;
begin
przn:=0;
 for i:=0 to MainForm.MDIChildCount-1 do
 begin
  if  MainForm.MDIChildren[i].Caption=nameForm then
  begin
   przn:=1;
   MainForm.MDIChildren[i].BringToFront;
   break;
  end;
 end;
   if przn=0 then
   begin
     FormPrognozPlanRemGod := TFormPrognozPlanRemGod.Create(Application);
     FormPrognozPlanRemGod.Caption := nameForm;

      y:=currentYear;

     FormPrognozPlanRemGod.HTMLabel1.HTMLText.Clear;
     FormPrognozPlanRemGod.HTMLabel1.HTMLText.Add('<b>Прогноз увеличения нерабочего парка вагонов в плановых видах ремонта на '+inttostr(y)+' г.</b>');


     FormPrognozPlanRemGod.ComboBox1.Items.Clear;
     FormPrognozPlanRemGod.ComboBox1.Items.Add(inttostr(y));
     FormPrognozPlanRemGod.ComboBox1.Items.Add(inttostr(y+1));
     FormPrognozPlanRemGod.ComboBox1.Items.Add(inttostr(y+2));
     FormPrognozPlanRemGod.ComboBox1.Items.Add(inttostr(y+3));
     FormPrognozPlanRemGod.ComboBox1.ItemIndex:=0;

     try
       WaitForm.Label1.Caption := 'Идет выбор данных ...';
       WaitForm.Label2.Caption := ' ждите...' ;
       WaitForm.Show;
       WaitForm.Update;
       Screen.Cursor:=crHourGlass;
        cSQL:=' select case when exists (select KodPos from dbo.nvVagPrivatDob Dob where Dob.KodPos=7 and Dob.mnkd=''0'') then 0 else 1 end as CB1';
        QueryExec(DM.QueryTMP2,cSQL);

        if (DM.QueryTMP2.Active=true)and(DM.QueryTMP2.RecordCount>0) then
        begin
          DM.QueryTMP2.First;
          if DM.QueryTMP2.FieldByName('CB1').AsInteger=1 then
            FormPrognozPlanRemGod.CB1.Checked:=true
          else
            FormPrognozPlanRemGod.CB1.Checked:=false;
        end;

      finally
        WaitForm.Update;
        WaitForm.Hide;
        Screen.Cursor:=crDefault;
      end;
   end;
end;

[RomanRom2]

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

на моей практике в Ericsson подобного кода масса, только на C и Erlang. понятно же, что это говнокод производства "главный говнокодер & поцаны", а не язык С такой.

по работе в Nortel/Avaya мне приходилось работать с джавой в NetBeans. блин, клевый IDE, но он меня бесит своими "нестандартными" хоткеями и самодеятельностью в процессе редактирования. но видно же, что нетбинс правильный. просто не мое, я к другому привык.

поддержка проектов - худшая работа, что можно придумать. дизайн все таки по приятней. особенно если сразу делать все как следует.

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

[Konctantin]

Щас расскажу прикол:
В общем у нас очень много мест где идет выгрузка данных в List<T> где T это некий ДатаКонтракт для вебсервисов (Класс и куча свойств).

Я для этого накатал для себя вот такой вот хелпер (на идею натолкнул LordJZ в проекте https://github.com/LordJZ/DBFilesClient.NET), который формирует метод для заполнения свойств значениями из DBReader:

public static class DbDataReaderHelper<T>
{
    const BindingFlags BFlag = BindingFlags.Instance | BindingFlags.NonPublic | BindingFlags.Public;

    public delegate T Read(DbDataReader reader);
    public static Read readHandler { get; private set; }

    static MethodInfo get_Item_int = typeof(DbDataReader).GetMethod("get_Item", BFlag, null, new Type[] { typeof(int)    }, null);
    static MethodInfo get_Item_str = typeof(DbDataReader).GetMethod("get_Item", BFlag, null, new Type[] { typeof(string) }, null);
    static MethodInfo IsDBNull     = typeof(DbDataReader).GetMethod("IsDBNull", BFlag);

    static DbDataReaderHelper()
    {
        var type   = typeof(T);
        Console.WriteLine("Generate DB reader for type: " + type.Name);
        var method = new DynamicMethod("Read", type, new[] { typeof(DbDataReader) }, true);
        var il     = method.GetILGenerator();

        Func<FieldInfo, string> GetSqlFieldName = (fi) => {
            if (fi.Name[0] == '<')
            {
                var name     = fi.Name.Substring(1, fi.Name.IndexOf(">") - 1);
                var property = type.GetProperty(name, BFlag);
                var attrbsp  = property.GetCustomAttributes(typeof(SqlFieldNameAttribute), false);

                if (attrbsp.Length > 0)
                    return ((SqlFieldNameAttribute)attrbsp[0]).Name;
            }
            var attrbsf = fi.GetCustomAttributes(typeof(SqlFieldNameAttribute), false);
            if (attrbsf.Length > 0)
                return ((SqlFieldNameAttribute)attrbsf[0]).Name;
            return null;
        };

        il.DeclareLocal(type);
        il.DeclareLocal(type);
        il.DeclareLocal(typeof(bool));

        il.Emit(OpCodes.Nop);
        il.Emit(OpCodes.Newobj, type.GetConstructor(new Type[] { }));
        il.Emit(OpCodes.Stloc_0);

        int index = 0;
        foreach (var field in type.GetFields(BFlag))
        {
            var sqlField = GetSqlFieldName(field);
            EmitFieldHandler(il, field, index, sqlField);
            ++index;
        }

        il.Emit(OpCodes.Ldloc_0);
        il.Emit(OpCodes.Stloc_1);
        il.Emit(OpCodes.Ldloc_1);
        il.Emit(OpCodes.Ret);

        readHandler = method.CreateDelegate(typeof(Read)) as Read;
    }
        
    static void EmitFieldHandler(ILGenerator il, FieldInfo fieldInfo, int index, string fieldName = "")
    {
        var typeCode = Type.GetTypeCode(fieldInfo.FieldType);
        if (typeCode <= TypeCode.DBNull)
            return;

        var label = il.DefineLabel();

        il.Emit(OpCodes.Ldarg_0);

        if (string.IsNullOrWhiteSpace(fieldName))
        {
            il.Emit(OpCodes.Ldc_I4_S, index);
            il.Emit(OpCodes.Callvirt, IsDBNull);
        }
        else
        {
            il.Emit(OpCodes.Ldstr, fieldName);
            il.Emit(OpCodes.Callvirt, get_Item_str);
            il.Emit(OpCodes.Isinst, typeof(DBNull));
            il.Emit(OpCodes.Ldnull);
            il.Emit(OpCodes.Cgt_Un);
        }

        il.Emit(OpCodes.Stloc_2);
        il.Emit(OpCodes.Ldloc_2);
        il.Emit(OpCodes.Brtrue_S, label);

        if (typeCode == TypeCode.String)
        {   
            il.Emit(OpCodes.Ldloc_0);
            il.Emit(OpCodes.Ldarg_0);
            if (string.IsNullOrWhiteSpace(fieldName))
            {
                il.Emit(OpCodes.Ldc_I4, index);
                il.Emit(OpCodes.Callvirt, get_Item_int);
            }
            else
            {
                il.Emit(OpCodes.Ldstr, fieldName);
                il.Emit(OpCodes.Callvirt, get_Item_str);
            }
            il.Emit(OpCodes.Castclass, fieldInfo.FieldType);
            il.Emit(OpCodes.Stfld, fieldInfo);
        }
        else if (typeCode > TypeCode.DBNull && typeCode < TypeCode.String)
        {
            il.Emit(OpCodes.Ldloc_0);
            il.Emit(OpCodes.Ldarg_0);
            if (string.IsNullOrWhiteSpace(fieldName))
            {
                il.Emit(OpCodes.Ldc_I4, index);
                il.Emit(OpCodes.Callvirt, get_Item_int);
            }
            else
            {
                il.Emit(OpCodes.Ldstr, fieldName);
                il.Emit(OpCodes.Callvirt, get_Item_str);
            }
            il.Emit(OpCodes.Unbox_Any, fieldInfo.FieldType);
            il.Emit(OpCodes.Stfld, fieldInfo);
        }

        il.MarkLabel(label);
    }
}

Я его запостил только в своем проекте.
Через некоторое время ко мне приходит "насяйникЭ" и говорит что это сильно бьет по производительности, и надо просто написать код, который проверяет поле на IsNull и присваивает свойству. Я спросил покажите мне в каком месте оно бьет по производительности. На что тот просто показывает этот класс, говорит что слишком долго будет выполнятся этот код для каждой строчки.

Я начал объяснять что этот код будет выполнено всего 1 раз при первом обращении с указанным типом, но он не поверил потребовал доказательств и т. п.
Потом пошло куча обучений и поучений.
И было им принято решение исключить этот код из проекта.

Я сказал что ок, и ничего не исключал.

Прошло время и он опять пришел и спросил про тот класс хелпер, и говорит хочет попробовать сам им попользоваться. Ровно черз 2-3 месяца до него дошло что статический конструктор вызываться всего 1 раз при обращении к классу.


И вот скажите пожалуйста, как с такими бороться.

Хотя если бы посмотрел в лог, то увидел бы всего 1 вызов:

Console.WriteLine("Generate DB reader for type: " + type.Name);

для конкретного типа