Tüm Platformlar için Hızlı Uygulama Geliştirme --->    Kitabımız...      Delphi

Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 4/5 - 2 oy
  • 1
  • 2
  • 3
  • 4
  • 5
İstenilen Aralıkta Yazı Girdisi
#1
Selamlar,

Biraz ilginç bir soru olacak ama bunu yaparsam işim kolaylaşacak olmaz ise farklı bir yöntem deneyeceğim Sad . Bir liste var saatlerin yazılı olduğu. Ben bu alt alta olan 6 saatin bir alt satırına sistemden tarih atamak istiyorum. For döngüsü vs. kafam allak bullak oldu.

Örneğin;



[Tarih gelecek]
05:59
07:25
12:34
15:08
17:31
18:51
[Tarih gelecek]
05:59
07:26
12:35
15:08
17:31
18:51


Her 6'da bir olması gerekiyor yani bir örüntüye sahip ama nasıl olacak, o konuda kafam almadı.


Teşekkürler,
İyi çalışmalar.
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Cevapla
#2
basitçe 
procedure TForm2.Button1Click(Sender: TObject);
var
x:integer;
begin
for x:=0 to ListBox1.Items.Count-1
   do begin
   if (x mod 6)=0 
      then begin
   ListBox2.Items.Add('tarih');
   ListBox2.Items.Add(ListBox1.Items.Strings[x]);
             end 
             else ListBox2.Items.Add(ListBox1.Items.Strings[x]);
      end;
end;
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
WWW
Cevapla
#3
(01-12-2017, Saat: 00:11)esistem Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Olbasitçe 
procedure TForm2.Button1Click(Sender: TObject);
var
x:integer;
begin
for x:=0 to ListBox1.Items.Count-1
   do begin
   if (x mod 6)=0 
      then begin
   ListBox2.Items.Add('tarih');
   ListBox2.Items.Add(ListBox1.Items.Strings[x]);
             end 
             else ListBox2.Items.Add(ListBox1.Items.Strings[x]);
      end;
end;

Teşekkürler hocam, mod kullanmak aklıma gelmedi gece. Okuldan sonra hemen deneyeceğim.
Linkleri Görebilmeniz İçin Giriş yap veya Üye Ol
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Fast report yazı boyutu çok küçük JavaCiva 3 114 05-02-2018, Saat: 09:29
Son Yorum: edo
  Kayan Yazı Tuğrul HELVACI 40 837 01-02-2018, Saat: 13:10
Son Yorum: Tuğrul HELVACI
  Resmin istenilen kısmının seçilmesi edo 10 3.683 19-09-2016, Saat: 16:17
Son Yorum: esistem



Konuyu Okuyanlar: 1 Ziyaretçi