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Ü] Rapor Baskısında 0 değerleri yazılmasın wiseman 2 102 01-10-2019, Saat: 18:04
Son Yorum: wiseman
  cxgrid String alan sorunu HuseyinF 7 227 25-09-2019, Saat: 16:54
Son Yorum: HuseyinF
  [ÇÖZÜLDÜ] fast report dil hatası wiseman 6 231 25-09-2019, Saat: 14:29
Son Yorum: wiseman
  Edit Sayı Girme OZCANK 3 149 15-09-2019, Saat: 01:28
Son Yorum: Aktolgali
  ÇÖZÜLDÜ-timer kullanmadan saat kontrolü mümkünmü? sadikacar60 3 207 10-09-2019, Saat: 22:19
Son Yorum: sadettinpolat



Konuyu Okuyanlar: 1 Ziyaretçi