Как привязать функцию к классу?

[minamoto]

Всем привет!

есть класс например

type
TSimple = class
name : String;
onPress : Function;
end;

function f1:String;

я хочу к этому классу подключить стороннюю функцию f1

если я делаю вот так:

var Simple : TSimple;
begin

  Simple := Tsimple.Create;
  Simple.name = 'simple';
  Simple.onPress = f1;

end;

function f1:String;
begin

Form1.Memo1.Lines.Add(name);

end;

то понятно, что в таком случае внутреннему методу onPress передается ссылка на внешний метод f1 и я не смогу увидеть свойство name класса Simple в этой функции.


Подскажите пожалуйста, как сделать, что бы можно было работать со свойствами в сторонней функции?

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

[Somebody]

Функции, которые в том же модуле, что и класс, могут обращаться к private и protected полям.

[mss]

на внешний метод f1

f1 у тебя - это не метод, регулярная функция. Впрочем это в дан случае не суть как важно.

А делается это так:

type
TSomeFunction = function(Sender: TObject): String;

TSimple = class
name : String;
onPress : TSomeFunction;
end;

function f1(Sender: TObject): String;

var Simple : TSimple;
begin

  Simple := Tsimple.Create;
  Simple.name = 'simple';
  Simple.onPress = @f1;

end;

function f1(Sender: TObject):String;
begin
  Form1.Memo1.Lines.Add(Tsimple(Sender).name);
end;

[Пепел Феникса]

Tsimple(Sender).name);

а почему бы Sender'ом не сделать сразу TSimple?

ТС, вообще помоему стоит перепроектировать подход.
может вам наследование применить?(как пример TStream=>TMemoryStream,TStringStrea m,TFileStream,TSocketStream, итог, тут и абстракция, и возможность изменять функционал(ибо есть еще ZlibCompressionStream,ZlibDecompres sionStream)без проблем(интерфейс к классу то тот же))

[mss]

почему бы Sender'ом не сделать сразу TSimple?

Потому что сегодня у ТС сендером выступает TSimple, а завтра ему приспичит из любого иного объекта любого иного класса вызывать эту самую f1)
А кода с TSimple-сендером он уже наплодил выше крыши).. И что, все теперь переделывать ?)
В Борланд, небось, тоже не дураки работали, коrда VCL и иже с ней писалась, а там на каждом шагу сендером выступает TObject)

[Пепел Феникса]

тоже не дураки работали

порою в этом сомневаюсь.

да и там у них универсальный тип функции, а свой то можно и так сделать.
хотя тут ТС решать, так как TObject дает чуть больше универсальности.

[mss]

Вот если вся иерархия пользовательских классов в приложени у ТС будет расти от TSimple-класса - вот тогда TSimple-сендер будет оправдан.

[Пепел Феникса]

да судя по

Просто планируется сделать универсальный класс, к которому будут подключаться различные функции с разными задачами.

то там и иерархии то не будет%).

[minamoto]

Спасибо вам за примеры и за направление куда копать, буду разбирваться.

Если быть точнее. То есть такой язык программирования как ActionScript2.
Там сделано так, что любой созданный мувиклип имеет встроенные обработчики событий. К этим обработчикам событий можно прикреплять любые функции на выполнение.

Простой пример из ActionScript:

function f1(){trace(this.name)}
function f2(){trace(this.name)}
function f3(){trace(this.name)}

var button1 = _root.attachMovie('button','button1',1);
     button1.name = 'Я кнопка 1';
     button1.onPress = f1

var button2 = _root.attachMovie('button','button2',2);
     button2.name = 'Я кнопка 2';
     button2.onPress = f2;

var button3 = _root.attachMovie('button','button3',3);
     button3.name = 'Я кнопка 3';
     button3.onPress = f3;

Подскажите, как сделать подобно этому ^
В данном случае movieClip-ам button1,button2,button3 определяется обработчик событий на нажатие мышки onPress, а функция на выполнение f1,f2,f3 соответственно.

Хоть эти функции в данном примере однообразны, на практике они могут выполнять разную функциональность.

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

Моя цель сделать отдельные компонент Unit, что бы подцеплять к своим работам как надстройку.

[GunSmoker]

Вы скриптовый язык с компилируемым не путайте. А то небо к земле притянете ещё чего доброго.