Kod hatası

   RUNTİME ERROR
File library uAnaSayfa: Unit uNotGiris: Not enough actual 
parameters for method ‘create’ , Expected 3 parameters.
Source position:23,39 when evaluating instruction CallProc
($FFFFFFFF,$1,$1D90930,$BD6F1A0,’RunUnit’).
Stack content is:
[Integer:351520912,ınteger:351519760,Integer:351518608,Inte
ger:346934656]
Source position:7,31

var
  notForm: TclStyleForm;
  edtOgrenci, edtDers, edtNot: TclEdit;
  btnKaydet: TclButton;
  ogrenciListesi: TStringList;  // Listeyi tanımlıyoruz
void BtnKaydetClick;
var
  satir: String;
{
  // Öğrenci, ders ve not bilgilerini alıp birleştiriyoruz
  satir = edtOgrenci.Text + ' ' + edtDers.Text + ' - ' + edtNot.Text;
  // Öğrencileri listeye ekliyoruz
  ogrenciListesi.Add(satir);
  // Kullanıcıya mesaj gösteriyoruz
  ShowMessage('Not kaydedildi: ' + satir);
}
{
  // Listeyi oluşturuyoruz
  ogrenciListesi = TStringList.Create;  
  // Formu ve diğer bileşenleri oluşturuyoruz
  notForm = TclStyleForm.Create(Self);
  edtOgrenci = TclEdit.Create(notForm);
  notForm.clGetChild(edtOgrenci);
  edtOgrenci.Text = 'Öğrenci Adı';
  edtOgrenci.Align = alTop;
  edtDers = TclEdit.Create(notForm);
  notForm.clGetChild(edtDers);
  edtDers.Text = 'Ders Adı';
  edtDers.Align = alTop;
  edtNot = TclEdit.Create(notForm);
  notForm.clGetChild(edtNot);
  edtNot.Text = 'Not';
  edtNot.Align = alTop;
  btnKaydet = notForm.AddNewButton(notForm, 'btnKaydet', 'Kaydet');
  btnKaydet.Align = alTop;
  notForm.AddNewEvent(btnKaydet, tbeOnClick, 'BtnKaydetClick');
  // Formu çalıştırıyoruz
  notForm.Run;
}

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
Nida Güvercin Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 12 Mayıs 2025 Durum: Aktif Değil Puanlar: 11	Mesaj Seçenekleri Yanıt Yaz Alıntı Nida Güvercin Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Kod hatası Gönderim Zamanı: 22 Saat 7 Dakika Önce Saat 20:48
	RUNTİME ERROR File library uAnaSayfa: Unit uNotGiris: Not enough actual parameters for method ‘create’ , Expected 3 parameters. Source position:23,39 when evaluating instruction CallProc ($FFFFFFFF,$1,$1D90930,$BD6F1A0,’RunUnit’). Stack content is: [Integer:351520912,ınteger:351519760,Integer:351518608,Inte ger:346934656] Source position:7,31 var notForm: TclStyleForm; edtOgrenci, edtDers, edtNot: TclEdit; btnKaydet: TclButton; ogrenciListesi: TStringList; // Listeyi tanımlıyoruz void BtnKaydetClick; var satir: String; { // Öğrenci, ders ve not bilgilerini alıp birleştiriyoruz satir = edtOgrenci.Text + ' ' + edtDers.Text + ' - ' + edtNot.Text; // Öğrencileri listeye ekliyoruz ogrenciListesi.Add(satir); // Kullanıcıya mesaj gösteriyoruz ShowMessage('Not kaydedildi: ' + satir); } { // Listeyi oluşturuyoruz ogrenciListesi = TStringList.Create; // Formu ve diğer bileşenleri oluşturuyoruz notForm = TclStyleForm.Create(Self); edtOgrenci = TclEdit.Create(notForm); notForm.clGetChild(edtOgrenci); edtOgrenci.Text = 'Öğrenci Adı'; edtOgrenci.Align = alTop; edtDers = TclEdit.Create(notForm); notForm.clGetChild(edtDers); edtDers.Text = 'Ders Adı'; edtDers.Align = alTop; edtNot = TclEdit.Create(notForm); notForm.clGetChild(edtNot); edtNot.Text = 'Not'; edtNot.Align = alTop; btnKaydet = notForm.AddNewButton(notForm, 'btnKaydet', 'Kaydet'); btnKaydet.Align = alTop; notForm.AddNewEvent(btnKaydet, tbeOnClick, 'BtnKaydetClick'); // Formu çalıştırıyoruz notForm.Run; }

berkay.aydemir Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 04 Mart 2025 Durum: Aktif Değil Puanlar: 46	Mesaj Seçenekleri Yanıt Yaz Alıntı berkay.aydemir Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(1) Alıntı Cevapla Gönderim Zamanı: 18 Saat 5 Dakika Önce Saat 00:50
	Merhaba Nida, uNotGiris biriminin iç yapısında 23. satırda yazdığın kodda eksik parametre girdiğinden dolayı bu hata ile karşılaşıyorsun. Gerekli düzenlemeleri diğer birimlerdeki yönlendirme yapılarına uygun şekilde yaparsan sorun ortadan kalkacaktır. İyi çalışmalar diliyorum.