Fatih Hocanın Kitabı'nda Takıldığım Bir Sorun. Konu Metotlar

[peynir]

Ben yeni yeni öğrenmeye çalışıyorum delphi'yi.
Kodlar ve sorunum aşağıda.


procedure TForm1.hesapla(yil:integer);
var
yas:integer;
const
suan:integer=2009;
procedure yasgoster(sonuc:integer);
begin
showmessage(inttostr(sonuc));
end;
begin
yas:=suan-yil;
yasgoster(yas);
end;



Şimdi burada iç içe metotlar nasıl oluyor onu gösterecek.

Takıldığım nokta, forma bir adet buton ekleyeceğim ve onclick olayına şu kodu yazacağım "hesapla(1981);"

Yalnız bu butonclick1 olayını bu kodların neresine koyacağımı bulamadım. Yani


"procedure tform1.hesapla" nın üstüne mi yazayım. Altına mı yazayım bilemiyorum. Bir de aldığım bir hata var.

"procedure tform1.hesapla" yazınca "tform1."dan sonra hesapla kelimesinin başında imleç yanıp sönüyor yani derledikten sonra. Yani program oradan sonra işlemiyor.Program devam etmiyor.


Kodları az buçuk anlamaya çalışıyorum. Yardımcı olursanız sevinirim. Teşekkürler.

[CiTiZEN]

anladığım kadarıyla şöyle düzelebilir;

aşağıdaki kodu gösterildiği üzere Implementation altında Res bilgisinin altına yaz

Kod: Tümünü seç

var
  StandartCustomers: TStandartCustomers;

implementation

{$R *.dfm}

Procedure hesapla(yil:integer);
var
yas:integer;
const
suan:integer=2009;
procedure yasgoster(sonuc:integer);
begin
showmessage(inttostr(sonuc));
end;
begin
yas:=suan-yil;
yasgoster(yas);
end;

Button OnClick olayı

Kod: Tümünü seç

Hesapla(1111)

Anladığım kadarıyla bu şekilde düzelmesi gerek olmazsa function kullanırsan daha kullanışlı olur.