Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Web Tasarım - Programlama
  • Yazılım Geliştirme
  • Delphi / C++ /Vb
  • Bu Konuda
Şimdi Ara

TARİH DE İF ELSE KULLANIMI

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
2
Cevap
0
Favori
326
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • Arkadaşlar bilen birisi yardım edebilirmi
    else begin satırında büyük harfle yazdığım EDİT2 de kod çalışmıyor.

    procedure TForm1.Button1Click(Sender: TObject);
    var
    Tarih,Sayi1: Tdate;
    Sayi2:Integer;
    begin
    Sayi1:=StrToDate(Edit1.Text);
    Sayi2:=StrToInt(Edit3.Text);
    Tarih:=Sayi1+Sayi2;
    Edit2.Text:=DateToStr(Tarih);
    case DayofWeek(StrToDate(Edit2.Text)) of
    1:Edit4.Text:='Pazar';
    2:Edit4.Text:='Pazartesi';
    3:Edit4.Text:='Salı';
    4:Edit4.Text:='Çarşamba';
    5:Edit4.Text:='Perşembe';
    6:Edit4.Text:='Cuma';
    7:Edit4.Text:='Cumartesi';
    if Edit2.Text='Pazar' then
    begin
    Edit2.Text:=DateToStr(IncDay(Tarih));
    end
    else
    begin
    Edit2.Text<='Pazar'EDİT2.Text:=DateToStr(Tarih)
    end;
    end;

    end.



  • Case içinde case bloğunu kapatmadan if bloğu kuramazsınız.

    Onu case boğunun else kımına ekleyin.
    • 
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz. DH’ye girerek kullanım izni vermiş sayılırsınız.
Anladım Veri Politikamız