Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
[Çözüldü] String Grid Sayı Algoritması
#11
Biraz daha uğraşarak text dosya kullanmaktan kurtuldum. TStringListlerle uğraşırken SimaWB arkadaşımızın bir paylaşımından Delimiter ve DelimitedText özelliğini  öğrendim.  Gerçekten de adı gibi Deli birşeymiş. Smile   Ufak bir sorun kaldı oda sayıları yerleştirip boş kutuları boyuyor fakat hücreye mouse ile click atarsanız boyadığınız hücre tekrar eski haline (beyaza dönüyor) geliyor. Onuda bulucam inşallah.

( Teşekkürler SimaWB )

Son hali :
Procedure Kart_Doldur(Grid: TStringGrid; Gelen_Ham_String: String; Kutu_Rengi: TColor);
const
secilmesin: TGridRect= (Left: 0; Top: -1; Right: 0; Bottom: -1);
var
 x,y,sayi_listesi_index : integer;
 sayi_listesi           : TStringList;
 Boyanacak_Hucre        : TRect;

begin
  Grid.Selection:= secilmesin;
  sayi_listesi := TStringList.Create;
  try
      sayi_listesi.Delimiter := '-';//Boşluk
      sayi_listesi.DelimitedText := Gelen_Ham_String;
      sayi_listesi_index:=-1;
      for x:=0 to Grid.ColCount-1 do
      for y:=0 to Grid.RowCount-1 do
      begin
          inc(sayi_listesi_index);
          if sayi_listesi.Strings[sayi_listesi_index]<>'' then
             begin
             Grid.Cells[x,y]:= sayi_listesi.Strings[sayi_listesi_index]
             end else begin
               Boyanacak_Hucre:=Grid.CellRect(x,y);
               with Grid.Canvas do begin
                   Brush.Color:=kutu_rengi;
                   FillRect(Boyanacak_Hucre);
               end;
             end;
       end;
  finally
     sayi_listesi.Free;
  end;
end;

//// Kullanışı :   Boş kalmasını istediğim hücreler için aşağıdaki gibi boşluk atıyorum. Dolu olmasını istediklerimede rakam.
Kart_Doldur(StringGrid1,'1- -3- -5-6-7-8-9-10-11-12-13-14-15-16-17-18-19-20-21-22-23-24-25- -27',clRed);
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  [Çözüldü] - Google Cloud Platformunda OAuth 2.0 ile Dinamik Token Nasıl Alınır? Fesih ARSLAN 14 557 Dün, Saat: 13:11
Son Yorum: Bay_Y
  Çözüldü Fastreport degisken alan yazdırma cinarbil 5 200 25-04-2019, Saat: 16:37
Son Yorum: cinarbil
  [ÇÖZÜLDÜ]Tarih ve Saat aralığı sorgulama wiseman 39 754 23-04-2019, Saat: 17:17
Son Yorum: wiseman
  [ÇÖZÜLDÜ] Grafik VCL önerisi wiseman 8 328 11-04-2019, Saat: 22:21
Son Yorum: wiseman
  F9 ile derleme sonrası ortaya çıkan hatalar (Çözüldü) cinarbil 4 239 27-03-2019, Saat: 08:45
Son Yorum: Tuğrul HELVACI



Konuyu Okuyanlar: 1 Ziyaretçi