Bir Kaç Sorum Var

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
titaninci
Üye
Mesajlar: 2
Kayıt: 31 Oca 2019 02:35

Bir Kaç Sorum Var

Mesaj gönderen titaninci »

Arkadaşlar ben delphi çalışıyorum konuyu bitirdim konu sonu sorularını çözüyorum fakat bazı soruları çözemedim cevaplarsanız sevinirim.

1-ad,soyad,maaş,tc bilgilerini BILGI.TXT dosyasına ekliycek kodları yazın.
2-Combobox1'de seçilen veriyi silip listbox.1'e ekliycek kodu yazıp çalıştırın
3-DateTimePicker'ın gün ay yıl kısmını edit1,2,3'e kaydedecek kod bloklarını yazın
4-RadioGroup ile aynı calısma dınamıgıne sahip form elemanı

Bilenler bildiklerini cevaplarlarsa sevinirim.
yusuf simsek
Üye
Mesajlar: 330
Kayıt: 09 Mar 2004 11:18
Konum: Konya
İletişim:

Re: Bir Kaç Sorum Var

Mesaj gönderen yusuf simsek »

1. Soru Text Dosyası Yazma için örnek : viewtopic.php?t=17373

2. Soru listbox veri ekleme için örnek : viewtopic.php?t=32221

3. Soru Tarih - Gğn - Ay - Yıl ayırma için örnek : viewtopic.php?t=8374,

4. soru RadioGroup ile benzer çalışma mantığında nesne kullanma için örnek : viewtopic.php?t=7952


@mrmarman üstadımın imzasında dediği gibi: Programcı olmak ne demektir? Birazcık Sİhir - Biraz İlüzyon...
memberlist.php?mode=viewprofile&u=783


İyi çalışmalar, iyi araştırmalar dilerim.
Bugün bir kez daha,
Hiç Birşey Bilmediğimi Öğrendim!!!

https://extrayazilim.com
titaninci
Üye
Mesajlar: 2
Kayıt: 31 Oca 2019 02:35

Re: Bir Kaç Sorum Var

Mesaj gönderen titaninci »

Bu örnekler benim sorumun cevapları değil 3. örnekde orda tek tek ayırıyor bende editlerin içine yazması lazım 4. hiç anlamadım zaten
yusuf simsek
Üye
Mesajlar: 330
Kayıt: 09 Mar 2004 11:18
Konum: Konya
İletişim:

Re: Bir Kaç Sorum Var

Mesaj gönderen yusuf simsek »

Onlar zaten cevap degil, yoluna ışık tutacak linkler...benzer sorulara verilmiş benzer cevaplar...

Gerisi senin araştırma ve hayalgucune kalıyor ;)
Bugün bir kez daha,
Hiç Birşey Bilmediğimi Öğrendim!!!

https://extrayazilim.com
yusuf simsek
Üye
Mesajlar: 330
Kayıt: 09 Mar 2004 11:18
Konum: Konya
İletişim:

Re: Bir Kaç Sorum Var

Mesaj gönderen yusuf simsek »

1. Soru

Kod: Tümünü seç

var 
   f:TextFile; 
   i,n: integer;
begin
  AssignFile(f,'c:\bilgi.txt');
  Rewrite(F); 
  Writeln(f,'Yusuf ŞİMŞEK');
  Writeln(f,'1000,00 TL');
  Writeln(f,'12345678901');
  CloseFile(f);
end;
2.Soru

Kod: Tümünü seç

	
	ListBox1.items.add( ComboBox1.items[ ComboBox1.itemindex] );
	ComboBox1.Items.Delete( ComboBox1.itemindex )
	
3.Soru

Kod: Tümünü seç


var
  Yil, Ay, Gun: Word;
Begin
DecodeDate(DateTimePicture1.Date, Yil, Ay, Gun);

Edit1.Text := IntToStr( Yil );
Edit1.Text := IntToStr( Ay );
Edit1.Text := IntToStr( Gun );
End;
4.Soru

Kod: Tümünü seç

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
	if CheckBox1.Checked then 
	    CheckBox2.Checked := False;
end;
Sen sanırım böyle birşey istiyordun...
Bugün bir kez daha,
Hiç Birşey Bilmediğimi Öğrendim!!!

https://extrayazilim.com
Cevapla