{------------------------------------------------------------------------------}
{Donne le numéro d'ordre d'une cellule de matrice Lignes x Colonnes de 65536 max
{ Entrées : L = Nb de lignes
C = Nb de colonnes.
LM = nb de lignes maximum de la matrice.
CM = nb de colonnes max. "
Sortie : Numéro de cellule de la matrice en partant de gauche à droite
= 0 si dépassement limite
Limite : Le produit L x C < 65 537, soit 256 x 256
/I\ Si tableau indicé à partir de 0 => faire result -1
{------------------------------------------------------------------------------}
Function FNcelMat(L,C,LM,CM: integer) :word;
begin
Result := 0;
if LM*CM < 65537 then Result := ( L -1 ) * CM + C;
end;
{Exemple}
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
NumOrdreCell:=FNcelMat(ARow,ACol,16,16);
showmessage(inttostr(NumOrdreCell));
end;