procedure string ve integer gönderme

[brs]

Selam;

Oluşturduğum procedure normalde mesaj gönderiyorum, icon için bir sayı göndermem gerek aynı anda hem mesajı ve sayıyı procedure nasıl gönderirim...

Kod: Tümünü seç

procedure TMainForm.Mesajgonder(Mesaj: String; var Icon: Integer); 
begin
    Caption:= Mesaj;  
    ImageIndex := Icon
  end;
end;

Kod: Tümünü seç

procedure TMainForm.Button1Click(Sender: TObject);
begin
Mesajgonder('Kayıt ve güncelleme işlemi başarıyla tamamlandı!');
end;

[mrmarman]

Aslında cevabı bildiğini ancak aşağıdaki gibi sayı koyduğunda aldığın hataya anlam veremediğinden bu soruyu sorduğunu anladım.

Kod: Tümünü seç

Mesajgonder('Kayıt ve güncelleme işlemi başarıyla tamamlandı!', 1);

Durum şöyle, sen parametre olarak VAR yani variable (değişken) olarak belirttiğin için oraya çift yönlü olması açısından bir değişken tanımlayıp şöyle koyman gerekiyor.

Kod: Tümünü seç

Var
  iSayi : Integer;
begin
  iSayi := 1;
  Mesajgonder('Kayıt ve güncelleme işlemi başarıyla tamamlandı!', iSayi);
end;

Ama sadece rakam göndermek istiyorsan procedure tanımındaki VAR yazan kısmı kaldır. Böylece değişken değil static olacak ve dilediğin gibi istersen değişken istersen sayı yazma özürlüğüne sahip olacaksın.

İkisi arasında ne fark diye bir soru aklında olacak. Örneğin procedure içerisinden geriye ters yönde bir değer döndürmek isteseydin VAR olanı kullanmak durumundaydın. Yani örneğinde procedure içerisinde ICON değişkenine herhangi bir değer yüklersen, bu procedure çağıdığın yere aynen değiştirdiğin şekilde geri iletilecek ve dönecektir.

[brs]

Teşekkür ederim hocam...