sinif hakkında

[zambak]

İyi gunler.İki sinif arasındaki baglantıyı kuramadım.Yardımcı olabilirmisiniz.

sinif1=class
fno:integer;
end;
sinif2=class
function sonuc:integer;
end;

var
s2:sinif2;deger:integer;

function sinif2. sonuc
begin
result:=sinif1.fno; //sinif1in fno su alınacak
end;


procedure button1.click
begin
Sorum şu sinif1 fno'nun baslangıç degeri 5 olsun
s2:=sinif2.create;
deger:=s2.sonuc;
yani degerin 5 olamasını istiyorum
end;

Teşekkürler

[sabanakman]

Kod: Tümünü seç

sinif1=class
  fno:integer;
  constructor Create;
end;

constructor sinif1.Create;
begin
  fno:=5;
end;

şeklinde istediğin olacaktır.