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ü] HTTP üzerinden RTSP ile IP kamera stream işlemek Abdullah ILGAZ 3 1.308 06-03-2019, Saat: 00:47
Son Yorum: Yeliz
  String Fonksiyonları [Çözüldü] Mericx 8 234 04-03-2019, Saat: 15:39
Son Yorum: Mericx
  cxgrid sutun toplamı hatası (Çözüldü) cinarbil 0 95 23-02-2019, Saat: 15:53
Son Yorum: cinarbil
  Çözüldü-istenen işlem yükseltme gerekiyor hatası delphi7 sadikacar60 7 267 19-02-2019, Saat: 10:34
Son Yorum: sadikacar60
  ÇÖZÜLDÜ --- RTTI Destroy Yardım 3ddark 0 107 11-02-2019, Saat: 14:35
Son Yorum: 3ddark



Konuyu Okuyanlar: 1 Ziyaretçi