Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];

Вниз

Кто-нибудь занимался интерфейсами на Дельфи?   Найти похожие ветки 

← →
yaJohn   (2002-01-17 16:00) [8]

2 Digitman
Soglasen, soglasen...
Kstati, putanica chasto voznikaet mejdu COM poniatiem interfeysa i ObjectPascal. Oni hot i pohoji, no... O poslednem (Interface v "chistom" Pascal ponimanii) informacii voobshe prakticheski net. Esli ne prav - nastavte na put" istinniy. Naprimer, ya mogu obiavit v interface nekoe property i ego metodi read/write. V realizacii realizuem metodi read/write, a o samom property mojno i ne vspominat". No i obratitsia k nemu nelzia.
IInt = interface
procedure setx(xxx:integer);
function getx:integer;
property x: integer read getx write setx;
end;

TInt = class (TInterfacedObject,IInt)
private
fx:integer;
procedure setx(xxx:integer);
function getx:integer;
end;
.....
{ TInt }

function TInt.getx: integer;
begin
result:=fx;
end;

procedure TInt.setx(xxx: integer);
begin
fx:=xxx;
end;

......

procedure TForm1.Button1Click(Sender: TObject);
var i:TInt;
begin
i.x:=1; -- ERROR
end;
Pochemu????

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.004 c