StringGrid Column Ayarları

[w32dasm]

Merhaba

Kod: Tümünü seç

var   i: integer;
begin
 StringGrid1.ColCount :=  strtoint(lbl_Fark.Caption)+1;
  for i := 0 to StringGrid1.Colcount - 1 do

   StringGrid1.Cells[i, 0] := datetostr(DateTimePicker1.date + i ) ;
   end;
  

Bu kod ile StringGrid kolonlarını 2 tarih aralığına göre ayarlıyorum, lakin 1nci kolonda Adı Soyadı, 2nci kolonda TC Kimlik devamında tarihleri getirmeye çalışıyorum bir türlü yapamadım. Pek çok kaynak inceledim ama bulamadım.

+
StringGrid'in kolonlarını nasıl dikey olarak ayarlayabilirim.

Yardımlarınız için teşekkürler.

[mrmarman]

ilk 2 sütun (kolon) adı ve TCNo ise sayacın 3'üncüden başlamalı.

(1) FixedColumn yani gri renkli sabit ilk sütun varsa sütun index 1'den başlarsın, yoksa 0'dan başlarsın.
(2) sutunIndex 0 veya 1 olarak değerlendirdiğinde sayacın da buna iki (2) ekleyerek başlayacaksınız ki, isim ve tckimlikno sütunlarının üzerine yazmasın.

Örnek :

Kod: Tümünü seç

var
  i: integer;
begin
  StringGrid1.ColCount :=  4 + StringGrid1.FixedCols;
  for i := StringGrid1.FixedCols + 2 to StringGrid1.Colcount - 1 do
   StringGrid1.Cells[i, 0] := datetostr(now() + i ) ;
end;

[w32dasm]

ilk 2 sütun (kolon) adı ve TCNo ise sayacın 3'üncüden başlamalı.

(1) FixedColumn yani gri renkli sabit ilk sütun varsa sütun index 1'den başlarsın, yoksa 0'dan başlarsın.
(2) sutunIndex 0 veya 1 olarak değerlendirdiğinde sayacın da buna iki (2) ekleyerek başlayacaksınız ki, isim ve tckimlikno sütunlarının üzerine yazmasın.

Örnek :

Kod: Tümünü seç

var
  i: integer;
begin
  StringGrid1.ColCount :=  4 + StringGrid1.FixedCols;
  for i := StringGrid1.FixedCols + 2 to StringGrid1.Colcount - 1 do
   StringGrid1.Cells[i, 0] := datetostr(now() + i ) ;
end;

Çok Teşekkürler Muharrem Bey,
Sizin uyguladığınız mükemmel oluyor, Bende gece farklı birşeyler denemek itedim. Yapmak istediğim Ayın 15i ile sonraki ayın 14ü arasını günleri listelemekti. Dönem tanımlarken ayın 13ünden başlatıp sonra ilk 2 sütunun başlığını değiştirerek hiç yakışmayan bir çözüme ulaştım.

Kod: Tümünü seç

    
ColIndex,
  ColValue : string;
  i: integer;
 begin
ColIndex := StringGrid1.Cells[2,0];

ColValue := '2';
    StringGrid1.ColCount :=  strtoint(lbl_Fark.Caption)+1;

 for i := 2 to StringGrid1.Colcount - 0 do

   StringGrid1.Cells[i,0] := datetostr(DateTimePicker1.date +1+i-2 ) ;
   StringGrid1.Cells[0, 0] := 'TC Kimlik No   ' ;
      StringGrid1.Cells[1, 0] := 'Adı Soyadı   ' ;   

Yardımlarınız için gerçekten çok teşekkürler.

[mrmarman]

Hocam yakışmayan yok, uygun olan var... Çok güzel olmuş elinize sağlık.

- Ayrıca şunu da belirtmekte fayda var, bir süre sonra kodlarınıza geri döndüğünüzde ve DateTimePicker1.date +1+i-2 kısmına baktığınızda neyi neden yaptığınızı net bir şekilde görerek pekiştirmiş olacaksınız. Bu da artı değerdir.

- Bir öneri, bu gibi satırların sonuna kendiniz için notlar ekleyin. Gülünecek şeyler dahi olabilir, çünkü olay hafızası kavramayı güçlendirir.

- Kendi kodlarıma öyle notlar düşüyorum ki görseniz gülmekten yerlere yatarsınız.

Başarılar dilerim.

[w32dasm]

Hocam yakışmayan yok, uygun olan var... Çok güzel olmuş elinize sağlık.

- Ayrıca şunu da belirtmekte fayda var, bir süre sonra kodlarınıza geri döndüğünüzde ve DateTimePicker1.date +1+i-2 kısmına baktığınızda neyi neden yaptığınızı net bir şekilde görerek pekiştirmiş olacaksınız. Bu da artı değerdir.

- Bir öneri, bu gibi satırların sonuna kendiniz için notlar ekleyin. Gülünecek şeyler dahi olabilir, çünkü olay hafızası kavramayı güçlendirir.

- Kendi kodlarıma öyle notlar düşüyorum ki görseniz gülmekten yerlere yatarsınız.

Başarılar dilerim.

Tekrar çok Teşekkürler Muharrem Bey,
Yukarıda dediğiniz + - olayını tarihleri ve sütunları dengelemek için kullandım ama dediğiniz gibi hiç bir not düşmediğimden tekrar değiştirip denemedikten sonra neden oraya onu yazdığımı bulmak zor. Bir küpe daha taktım açıklama satırlarını kullanmaya daha çok özen göstereceğim.

Saygılar.