Delphi vs C++ , Часть 1

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

Цитата Profi @ 13.04.07, 16:43

Кстати, что меня больше всего удивляет, это то, что Delphi’сты никогда не начинают кричать первыми: «C++ - отстой, Delphi – рулит!». Это всегда начинают C’шники. Вопрос: почему?

А меня удивляет, почему кричать начинают дельфисты, а приписывают это сишникам?

Цитата Smike @ 07.04.07, 06:48

Не читал предыдущих ораторов, но по долгу службы мне пришлось недавно разбираться с крупным сишным проектом. Это ядро для программы, визуальная часть которой пишется на Delphi. Так вот, в ходе своего знакомства я увидел, что для элементарных вещей в Delphi в C++ требуются большие усилия. Например, чтобы задать экспортирумым функциям нормальные имена (а не _Function@8) нужно вручную править DEF-файл. То же самое в Delphi делается без всякого вмешательства программиста: всем функциям изначально даются такие же имена, как в коде.

Цитата archimed7592 @ 13.04.07, 16:43

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

Ok. Перепиши на C++:

Function GetAllProp(const AObject:TObject; const Parent:String):TStringList;
var
  pl:PPropList;
  Count:integer;
  i,j:integer;
  sp:TStrings;
begin
  Result:=TStringList.Create;
  Count:=GetPropList(AObject,pl);
  for I := 0 to Count - 1 do
    if (pl^[i]^.PropType^^.Kind in [tkChar, tkString, tkClass, tkWChar, tkLString, tkWString]) then begin
      if (pl^[i]^.PropType^^.Kind=tkClass) then begin
        if pl^[i]^.PropType^^.Name='TCaption' then begin
          result.Add(Parent+pl^[i]^.Name+' = '+GetStrProp(AObject,pl^[i]^.Name));
        end else begin
          if pl^[i]^.PropType^^.Name='TStrings' then begin
            sp:=TStrings(GetObjectProp(AObject,pl^[i]^.Name));
            for j := 0 to Sp.Count - 1 do begin
              Result.Add(Parent+pl^[i]^.Name+'\'+IntToStr(j)+' = '+sp[j]);
            end;
          end else begin
            if (GetObjectProp(AObject,pl^[i]^.Name)<>nil) then
              Result.AddStrings(GetAllProp(GetObjectProp(AObject,pl^[i]^.Name),pl^[i]^.Name+'\'));
          end;
        end;
      end else begin
        result.Add(Parent+pl^[i]^.Name+' = '+GetStrProp(AObject,pl^[i]^.Name));
      end;
    end;
end;

Я без template смог обойтись. Обойдись без property.

Цитата Profi @ 13.04.07, 16:46

Ok. Перепиши на C++:

динасическое выяснение есть ли у объекта пропертся с определённым названием? ну и где здесь полезность? заменяется всё это парочкой паттернов, которые, замечу, намного более приятное проектное решение, чем такой вот поиск пропертей

Цитата archimed7592 @ 13.04.07, 16:50

динасическое выяснение есть ли у объекта пропертся с определённым названием?

Нет.

Profi, templates это не просто шаблоны - это STL, Boost, Итераторная модель, метапрограммирование шаблонов и прочие радости жизни

Цитата archimed7592 @ 13.04.07, 16:50

заменяется всё это парочкой паттернов, которые, замечу, намного более приятное проектное решение, чем такой вот поиск пропертей

А теперь представь что у тебя пару десятков сторонних компонентов.

Цитата Мяут @ 13.04.07, 16:51

Profi, templates это не просто шаблоны - это STL, Boost, Итераторная модель, метапрограммирование шаблонов и прочие радости жизни

А я и не говорю, что template фигня, я говорю, что property тоже очень облегчают жизнь, как и variant.

Цитата Profi @ 13.04.07, 16:51

Нет.

Цитата Profi @ 13.04.07, 16:52

А теперь представь что у тебя пару десятков сторонних компонентов.

что код делает (в двух словах)

Добавлено 13.04.07, 16:59
опять же, насчёт твоего неповторимого примера с делегатами, да ещё и без шаблонов: а если я хочу подсунуть любую ф-цию, а не только такую, которая берёт массив вариантов?

Цитата archimed7592 @ 13.04.07, 16:55

что код делает (в двух словах)

Проходиться по всем свойствам и сохраняет в TStringList те, что являются строковыми.

ну и в чем его полезность? зачем это нужно? не просто же так эту ф-цию написали... какой-то целью задавались...

Цитата archimed7592 @ 13.04.07, 16:55

опять же, насчёт твоего неповторимого примера с делегатами, да ещё и без шаблонов: а если я хочу подсунуть любую ф-цию, а не только такую, которая берёт массив вариантов?

А-а-а, где Астарот! Мы решаем конкретные задачи, а не гипотетические ситуации!

-Added 13.04.07, 17:02

Цитата archimed7592 @ 13.04.07, 17:01

ну и в чем его полезность? зачем это нужно? не просто же так эту ф-цию написали... какой-то целью задавались...

Создание многоязычного приложения.

Цитата Profi @ 13.04.07, 17:01

Создание многоязычного приложения.

Цитата Profi @ 13.04.07, 16:59

TStringList

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

Сообщение отредактировано: archimed7592 - 13.04.07, 17:05

Profi, variant это что-то типа неявной типизации?
По поводу property, так это просто способ быстрой и простой инкапсуляции данных без всяких заморочек

Цитата Profi @ 13.04.07, 16:46

Ok. Перепиши на C++:

Оно юзает какую-то чтуку типа PPropList? Ну что-то вроде list, да?

А еще говорят что код на Delphi крайне понятен Ничего не понял

Сообщение отредактировано: Мяут - 13.04.07, 17:13

Цитата archimed7592 @ 13.04.07, 17:04

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

Будешь каждое свойство ручками менять? Ну-ну..

Мяут, это у них такой "крутой" RTTI GetPropList

Добавлено 13.04.07, 17:12

Цитата Profi @ 13.04.07, 17:09

Будешь каждое свойство ручками менять? Ну-ну..

будешь в риалтайме переводить? lingvo automation ? ну-ну...
почему бы не сформулировать задачу полностью?

Добавлено 13.04.07, 17:13
я вот тебе сейчас покажу кусочек из недр STL или boost и скажу "перепиши"... мы ж здесь не переводом занимаемся...