class

Napisalem sobie klase:

..
klasa = class
i:integer;
function dodaji:integer;
end;
..
var a,b,c,d,f,g:klasa;
..

function klasa.dodaji:integer;
var
z:integer;
begin
z:i+i;
result:=z;

end;

jak przypisac wynik tej funkcji do klasa.i odwolujacej sie do tej funkci (a,b,c,d)

Pozdrawiam

Co za ***** do jasnej #$@%@#. 5 osób mu tłumaczy a ten jak jakiś młotek nie kapuje. Masz kod.

type
TDodaj = class
private
i: Integer;
public
procedure Init;
function Inc: Integer;
end;

procedure TDodaj.Init;
begin
i:=0;
end;

function TDodaj.Inc: Integer;
begin
Inc(i);
Result:=i
end;

Polecam http://vogel.iglu.cz - poczytaj sobie o obiektach i klasach...