22-01-2019, Saat: 13:23
Girilen bir rakamı 135 adet string giridin hücrelerinde arayıp bulduğumu boyamak için aşağıdaki yapıyı oluşturdum. Acaba daha nasıl yapılabilir derken, örneğin string giride bir özellik eklesem ve bu özellik içindeki rakamları tutsa , aranan rakam sende varmı varsa kırmızı yap gibi.. Fakat bunun için nereden başlamalıyım bilemedim. Ortak bir olay mı yoksa özellik mi yapılmalı araştırıyorum. Fakat neye bakmak gerektiğini tam bilemedim. Konu hakkında fikir ve bilgilerinizi paylaşırsanız sevinirim.
procedure buls( sayi:string); var Grid:TStringGrid; x,y,gr:integer; cellText:string; a:TRect; begin for gr := 1 to 134 do begin Grid:=(FANA.FindComponent('k'+inttostr(gr)) As TStringGrid); y:=0; with Grid do begin for y := 0 to RowCount -1 do for x := 0 to ColCount -1 do begin a:=Grid.CellRect(x,y); cellText:=Grid.Cells[x,y]; if CellText=sayi then //KIRMIZI begin Grid.Canvas.Brush.Color := clRed; Grid.Canvas.Font.Color:=Grid.Canvas.Font.Color; Grid.Canvas.FillRect(a); Grid.Canvas.TextRect(a, a.Left+5, a.Top+8, cellText); end end; end; end; end;