Я скорее непрофессиональный программист, отстал от жизни, поэтому хочу спросить.
Меня в Delphi очень злит отсутствие статических классов. Т.е. часто нужна простая запись (record) с возможностью вызвать свою функцию: например у меня есть запись TVector, с тремя компонентами tvector.x, tvector.y, tvector.z, и нужна функция tvector.length. Я одно время пробовал создавать функции со сложными именами, например function tvector_length(var obj:tvector), но как-то это не пошло. Создавать класс tvector — не вариант, поскольку будет тормозить и придётся каждый раз инициализировать и уничтожать этот класс. У record-ов со встроенными функциями были бы две базовые характеристики классов – инкапсуляция и наследования, а уж полиморфизм нужен далеко не всегда.
Вот у меня вопрос, насколько всё это решено в более современных ЯП?

Здравствуйте, Khimik, Вы писали:

K>Я скорее непрофессиональный программист, отстал от жизни, поэтому хочу спросить.
K>Меня в Delphi очень злит отсутствие статических классов. Т.е. часто нужна простая запись (record) с возможностью вызвать свою функцию: например у меня есть запись TVector, с тремя компонентами tvector.x, tvector.y, tvector.z, и нужна функция tvector.length. Я одно время пробовал создавать функции со сложными именами, например function tvector_length(var obj:tvector), но как-то это не пошло. Создавать класс tvector — не вариант, поскольку будет тормозить и придётся каждый раз инициализировать и уничтожать этот класс. У record-ов со встроенными функциями были бы две базовые характеристики классов – инкапсуляция и наследования, а уж полиморфизм нужен далеко не всегда.
K>Вот у меня вопрос, насколько всё это решено в более современных ЯП?

не совсем понял суть проблемы
интересует добавление своих функций к уже имеющимся типам?
в с++, для этого есть ADL:

namespace test {
struct vector {
  float x,y,z;
};

float length ( vector const & );

}

int main () {
   test::vector v;
   float d = length( v );
   return 0;
}

оно?

Здравствуйте, night beast, Вы писали:


NB>не совсем понял суть проблемы
NB>интересует добавление своих функций к уже имеющимся типам?
NB>в с++, для этого есть ADL:
NB>

NB>namespace test {
NB>struct vector {
NB>  float x,y,z;
NB>};

NB>float length ( vector const & );

NB>}

NB>int main () {
NB>   test::vector v;
NB>   float d = length( v );
NB>   return 0;
NB>}
NB>

NB>оно?

Может быть я вас не понял, но по-моему не оно.

Фунцию vector(vect:tvector) написать можно, но удобнее было бы вызывать её через точку (d:=v.length), иначе можно запутаться если этих функций много.

K>Меня в Delphi очень злит отсутствие статических классов.
Статические классы — это костыль, появившийся из-за отсутствия нормальных модулей.
Вот в Компонентном паскале есть нормальные модули, поэтому и статические классы не нужны.

Здравствуйте, Khimik, Вы писали:

K>Вот у меня вопрос, насколько всё это решено в более современных ЯП?

Не совсем понятно, почему ты называешь искомое статическим классом.

Насколько я помню, в дельфях рекорды — это POD структуры, без методов, конструкторов/деструкторов и тп, что есть у объектов. Тут тебе не хватает методов. А у класса тебя раздражает необходимость вызывать конструктор/деструктор для такого record-style класса?

Мой тебе совет — отнеси дельфи на помоечку. В C++ конструктор/деструктор вызывается автоматом, не надо ручками вызывать (боже, кто вообще такое убожество придумал?), и в общем случае дефолтные даже не надо самому писать, компилятор генерит. И структура от класса отличается только режимом доступа к членам по умолчанию.

struct TVector{
int x, y, z;
int length() { int res; /* do something */ return res; }
};

struct TVector v;
v.length();

Если прирос к дельфевым компонентам, используй C++ Builder

Здравствуйте, Khimik, Вы писали:

K>Я скорее непрофессиональный программист, отстал от жизни, поэтому хочу спросить.
K>Меня в Delphi очень злит отсутствие статических классов. Т.е. часто нужна простая запись (record) с возможностью вызвать свою функцию: например у меня есть запись TVector, с тремя компонентами tvector.x, tvector.y, tvector.z, и нужна функция tvector.length. Я одно время пробовал создавать функции со сложными именами, например function tvector_length(var obj:tvector), но как-то это не пошло. Создавать класс tvector — не вариант, поскольку будет тормозить и придётся каждый раз инициализировать и уничтожать этот класс. У record-ов со встроенными функциями были бы две базовые характеристики классов – инкапсуляция и наследования, а уж полиморфизм нужен далеко не всегда.
K>Вот у меня вопрос, насколько всё это решено в более современных ЯП?

вообще то в дельфи уже лет 6 как есть методы для рекордов.

Здравствуйте, Jack128, Вы писали:

J>вообще то в дельфи уже лет 6 как есть методы для рекордов.

если изменять сам рекорд нельзя, то можно record helper'ами воспользоваться.

Здравствуйте, Jack128, Вы писали:

J>вообще то в дельфи уже лет 6 как есть методы для рекордов.

Поясните?

Здравствуйте, Khimik, Вы писали:

K>Здравствуйте, Jack128, Вы писали:

J>>вообще то в дельфи уже лет 6 как есть методы для рекордов.

K>Поясните?

http://docwiki.embarcadero.com/RADStudio/Seattle/en/Structured_Types#Records_.28advanced.29

Здравствуйте, Khimik, Вы писали:

K>Может быть я вас не понял, но по-моему не оно.

K>Фунцию vector(vect:tvector) написать можно, но удобнее было бы вызывать её через точку (d:=v.length), иначе можно запутаться если этих функций много.

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

struct vector {
   float x,y,z;
};

struct vector_view {
   vector const & m_ref;
   vector_view ( vector const & src ) : m_ref( src ) { }
   operator vector const & ( ) const { return m_ref; }
   float length ( ) const;
};

void test ( vector const & );

int main () {
   vector v;
   vector_view vv( vv );
   test( vv );
}

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

а насчет много -- это для разных метрик что-ли?

Здравствуйте, Khimik, Вы писали:

K>Я скорее непрофессиональный программист, отстал от жизни, поэтому хочу спросить.
K>Меня в Delphi очень злит отсутствие статических классов.
K>Т.е. часто нужна простая запись (record) с возможностью вызвать свою функцию: например у меня есть запись TVector, с тремя компонентами tvector.x, tvector.y, tvector.z, и нужна функция tvector.length. Я одно время пробовал создавать функции со сложными именами, например function tvector_length(var obj:tvector), но как-то это не пошло. Создавать класс tvector — не вариант, поскольку будет тормозить и придётся каждый раз инициализировать и уничтожать этот класс. У record-ов со встроенными функциями были бы две базовые характеристики классов – инкапсуляция и наследования, а уж полиморфизм нужен далеко не всегда.

Тип Object запретили?

type
  TMyClass = class
  public
    procedure StoreName(name : string);
  end;

  TProc = procedure(name : string) of object;
var
  proc    : TProc;
  myClass : TMyClass;
begin
  myClass := TMyClass.Create;
  proc    := myClass.StoreName;
  proc('My name');  // Вызывает myClass.StoreName
end;

Здравствуйте, Khimik, Вы писали:

Все это в Delphi есть, но устарело. Это можель, оставшаяся в наследство от Turbo Pascal

https://ru.wikipedia.org/wiki/Object_Pascal

См. там

Изменения синтаксиса, из-за изменения размещения объектов — Объектная модель в Turbo Pascal:

Здравствуйте, Khimik, Вы писали:

K>Я скорее непрофессиональный программист, отстал от жизни, поэтому хочу спросить.
K>Меня в Delphi очень злит отсутствие статических классов. Т.е. часто нужна простая запись (record) с возможностью вызвать свою функцию:

[code=pas]
type vector = object
...
[/code]
Это прикол, оставшийся со времён Борланд Паскаля, но он вроде делает то, что тебе надо.

Здравствуйте, T4r4sB, Вы писали:

TB>Здравствуйте, Khimik, Вы писали:

K>>Я скорее непрофессиональный программист, отстал от жизни, поэтому хочу спросить.
K>>Меня в Delphi очень злит отсутствие статических классов. Т.е. часто нужна простая запись (record) с возможностью вызвать свою функцию:

TB>[code=pas]
TB>type vector = object
TB>...
TB>[/code]
TB>Это прикол, оставшийся со времён Борланд Паскаля, но он вроде делает то, что тебе надо.

Что-то не то вы пишете, в этом

Автор: Jack128
Дата: 20.11.15

посте было что надо.

Здравствуйте, Khimik, Вы писали:

K>Здравствуйте, T4r4sB, Вы писали:

TB>>Здравствуйте, Khimik, Вы писали:

K>>>Я скорее непрофессиональный программист, отстал от жизни, поэтому хочу спросить.
K>>>Меня в Delphi очень злит отсутствие статических классов. Т.е. часто нужна простая запись (record) с возможностью вызвать свою функцию:

TB>>[code=pas]
TB>>type vector = object
TB>>...
TB>>[/code]
TB>>Это прикол, оставшийся со времён Борланд Паскаля, но он вроде делает то, что тебе надо.

K>Что-то не то вы пишете, в этом

Автор: Jack128
Дата: 20.11.15

посте было что надо.

То, что я пишу, тоже работает, причём и во всяком старье типа Дельфи-7.

Здравствуйте, Khimik, Вы писали:

K>Фунцию vector(vect:tvector) написать можно, но удобнее было бы вызывать её через точку (d:=v.length), иначе можно запутаться если этих функций много.

C#, extension methods, очень удобно с синтаксической точки зрения

Здравствуйте, Khimik, Вы писали:

K>Что-то не то вы пишете, в этом

Автор: Jack128
Дата: 20.11.15

посте было что надо.

Просто это не называется "статические классы". Это обычные (в терминах С++) классы без механизмов позднего связывания, всего-то навсего.

Здравствуйте, night beast, Вы писали:

NB>Здравствуйте, Khimik, Вы писали:

K>>Может быть я вас не понял, но по-моему не оно.

K>>Фунцию vector(vect:tvector) написать можно, но удобнее было бы вызывать её через точку (d:=v.length), иначе можно запутаться если этих функций много.

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

NB>struct vector {
NB>   float x,y,z;
NB>};

NB>struct vector_view {
NB>   vector const & m_ref;
NB>   vector_view ( vector const & src ) : m_ref( src ) { }
NB>   operator vector const & ( ) const { return m_ref; }
NB>   float length ( ) const;
NB>};

NB>void test ( vector const & );

NB>int main () {
NB>   vector v;
NB>   vector_view vv( vv );
NB>   test( vv );
NB>}
NB>

>>>operator vector const & ( ) const { return m_ref; } — пипец борщ. в топку.