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Ü] Windows Service içerisinden başka uygulama çalışmasını kontrol etme theSinan 2 150 08-06-2019, Saat: 12:17
Son Yorum: elixir84
  [ÇÖZÜLDÜ] Veritabanından hızlı veri çekmek için tavsiye wiseman 6 237 31-05-2019, Saat: 22:34
Son Yorum: frmman
  [Çözüldü] - Google Cloud Platformunda OAuth 2.0 ile Dinamik Token Nasıl Alınır? Fesih ARSLAN 14 718 21-05-2019, Saat: 13:11
Son Yorum: Bay_Y
  Çözüldü Fastreport degisken alan yazdırma cinarbil 5 276 25-04-2019, Saat: 16:37
Son Yorum: cinarbil
  [ÇÖZÜLDÜ]Tarih ve Saat aralığı sorgulama wiseman 39 960 23-04-2019, Saat: 17:17
Son Yorum: wiseman



Konuyu Okuyanlar: 1 Ziyaretçi