Delhp 7 HATA

11/Haz/09 11:37

Kısayol

Şikayet

Özel Mesaj

tahta

Kayıt Tarihi: 05/Mayıs/2008

Delphi 7 SE LİTE sürümünü kullanıyorum

Netteki derslerle öğrenmeye çalışıyorum.Bir sitede örnek bir program vermiş onu derliyordum

Herşey güzel ilerlerken derlediğim programı denerken bu hatayla karşılaştım

Not: derlediğim program öğrenci kayıt formu

Adı soyadı giriliyor bölümü ve kayıt tarihi giriliyor EKLE buyonuna basılınca aşşağıdaki litsview e ekliyor. İlk eklemede sorunsuz çalışıyor fakat 2. bir öğrenci eklemeye kalktığımda bu hatayı aldım nedir bunun sebebi

http://www.dosya.tc/Ads_z_2301.jpg.html

http://www.dosya.tc/Ads_z2.jpg.html

Edit Programın kodları

procedure TForm1.FormCreate(Sender:TObject);
begin
//ComboBox1 içinde Bilgisayar aktif olsun

ComboBox1.itemindex:=0

//Listview1 listesi için sütünları ayarlar
Listview1.Viewstyle:=vsReport;

//Sütun ekle
Listview1.Columns.Add;

//ilk sütun için başlık ayarla
Listview1.Columns.Items[0].Caption:='Adı Soyadı';

//ilk sütunun genişliğini ayarla
Listview1.Columns.Items[0].width:=100;

//sütun ekle
Listview1.Columns.add;

//ikinci sütun için başlık ayarla
Listview1.Columns.Items[1].Caption:='Bölümü';

//ikinci sütunun genişliğini ayarla
Listview1.Columns.Items[1].width:=100;

//sütun ekle
Listview1.Columns.add;

//Üçüncü sütun için başlık ayarla
Listview1.Columns.Items[2].Caption:='Kayıt Tarihi';

//Üçüncü sütunun genişliğini ayarla
Listview1.Columns.Items[2].width:=100;
end;
end.
--------------------------------------------------------------------------

Listeye Eleman Ekleme

Button1 Ekle düğmesi kullanıldığında Edit1ComboBox1DataTimePicker1 kutularının içeriğini ListView1 in sırasıyla " Adı Soyadı" "Bölümü" ve "Kayıt Tarihi" sütünları altına ekleyecektir.

Bunun için düğmeyi çift tıklayın ve kod pencersinde açılacak olan Button1Click prosedürüne aşağıdaki kodu yazın.

--------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender:TObject);

//Statik bir değişken tanımla
var s:integer;
begin

//Eğer listede eleman yoksa sayacı sıfırla
if Listview1.items.count=0 then s:=0;

//Yeni eleman ekle
Listview1.items.add;

//satır İçerikleri

//Birinci Sütun
Listview1.items.item[s].Caption:=edit1.text;

//İkinci Sütun
Listview1.items.item[s].Subitems.add(ComboBox1.text);

//Üçüncü Sütun
Listview1.items.item[s].Subitems.add(DateToStr(DateTimePicker1.Date));

//sayacı bitir
s:=s+1;
end;
end.

Alıntı yap

11/Haz/09 11:49

Kısayol

Şikayet

Özel Mesaj

unix
Andrei

Banlanmış Üye

Kayıt Tarihi: 11/Aralık/2008

hangi kodlarda hata verdigini yazar mısın ?

%40 indirimli olarak "Centos Sistem ve Sunucu Yönetimi" adlı kitabımızı satın alarak, Linux üzerine yapılacak olan devam projeleri icin destekte bulunabilirsiniz : http://www.hepsiburada.com/centos-sistem-ve-sunucu-yonetimi-oku-izle-dinle-ogren-p-KKODLAB01579

Alıntı yap

11/Haz/09 18:16

Kısayol

Şikayet

Özel Mesaj

tahta

Kayıt Tarihi: 05/Mayıs/2008

Eklediğim Resimde hata verdiği yer mevcut

End. kodunda hata veriyor ama sebebini anlayamıyorum

Edit: http://www.resimupload.com/ds669570647_Adsız.html

http://www.resimupload.com/ds354747292_Adsız2.html

Alıntı yap

11/Haz/09 18:35

Kısayol

Şikayet

Özel Mesaj

unix
Andrei

Banlanmış Üye

Kayıt Tarihi: 11/Aralık/2008

Satırların arasında bir şey olmalı.

Muhtemelen kod calıstıgı sırada formdaki nesnelerden biri create edilmiyor

%40 indirimli olarak "Centos Sistem ve Sunucu Yönetimi" adlı kitabımızı satın alarak, Linux üzerine yapılacak olan devam projeleri icin destekte bulunabilirsiniz : http://www.hepsiburada.com/centos-sistem-ve-sunucu-yonetimi-oku-izle-dinle-ogren-p-KKODLAB01579

Alıntı yap

11/Haz/09 18:36

Kısayol

Şikayet

Özel Mesaj

tahta

Kayıt Tarihi: 05/Mayıs/2008

Hocam kodlar yukarda

incele bi hatta siteyide vereyim orda da anlatmış

http://www.uslanmam.com/delphi/226585-delphi-7-dersleri-basladi.html

Alıntı yap

11/Haz/09 20:49

Kısayol

Şikayet

Özel Mesaj

tahta

Kayıt Tarihi: 05/Mayıs/2008

Konu Biraz daha yukarda kalsa sorun olmaz herhalde :)

Alıntı yap