1 Topic by prahousefamily (edited by prahousefamily 2025-05-02 03:49:38)

  • Registered: 2014-02-17
  • Posts: 391

Topic: How To Change All Table By Procedure Or Function

How to Create procedure Or function
By Input Table name To Change Effect

-Form1
--TableGrid1
--TableGrid2
--TableGrid3



How To Edit Script ??????

procedure tb_red (nametable:TdbStringGridEx) ;
var
x,y : integer ;
t : String ;
Begin
t := nametable ;

     For  x := 0 To t.Columns.Count - 1 Do
     Begin
          For y := 0 To t.Rows.Count - 1 Do
          Begin
               t.Cells[x].Color := clRed ;
          End;     
     End;
End ;

I wil try code by
procedure Form1_TableGrid1_OnChange (Sender: TObject);
begin
tb_red (TableGrid1) ;
end;


Help Me Please

My Visual Database : I Love You
Easy For Beginner Student For Me
  • From: Рідна МАТИ, UKRAINE
  • Registered: 2018-06-02
  • Posts: 1,216

Re: How To Change All Table By Procedure Or Function

This link shows Dmitry's example.

https://myvisualdatabase.com/forum/view … 212#p17212