1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
| unit Unit1;
interface
uses grids;
type
TMyClasse=class
_gr1,_gr2:TStringGrid;
public
procedure testCopier;
procedure methodeCopier(const grilleOrigine:TStringGrid;
const grilleCible:TStringGrid);
end;
implementation
procedure copieGrille(const grilleOrigine:TStringGrid;
const grilleCible:TStringGrid);overload;forward;
procedure TMyClasse.testCopier;
begin
copieGrille(_gr1,_gr2);
methodeCopier(_gr1,_gr2);
end;
procedure TMyClasse.methodeCopier(const grilleOrigine:TStringGrid;
const grilleCible:TStringGrid);
begin
end;
procedure copieGrille(const grilleOrigine:TStringGrid;
const grilleCible:TStringGrid);
begin
end;
end. |
Partager