Tüm Platformlar için Hızlı Uygulama Geliştirme Kitabı... Delphi
Ön Sipariş Talebinde Bulunan Üyelerimiz
Sipariş Talebinde Bulunan Üyelerimiz

Konuyu Paylaş : facebook gplus twitter

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

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  [Çözüldü] FMX VLC Player Desteği CesuR 6 142 18-01-2019, Saat: 09:18
Son Yorum: Tuğrul HELVACI
  DBGRID Indicator Sorunu [Çözüldü] SenayAkgun 10 179 16-01-2019, Saat: 18:10
Son Yorum: masteryoda
  [Çözüldü] Stringgrid özellik iptal etme CesuR 4 131 11-01-2019, Saat: 15:18
Son Yorum: CesuR
  FastReport - Runtime Band Gizleme - [ÇÖZÜLDÜ] hi_selamlar 5 116 10-01-2019, Saat: 23:02
Son Yorum: hi_selamlar
  is not a valid floating point value Hatası [ÇÖZÜLDÜ] SenayAkgun 16 378 23-12-2018, Saat: 22:07
Son Yorum: mustafaozpinar



Konuyu Okuyanlar: 1 Ziyaretçi