{------------------------------------------------------------------------------}
{Donne les numéros de colonne et de ligne d'un numéro d'ordre de cellule
d'une matrice de 256 x 256 Maximum.
Entrées : LN = Nb de lignes de la matrice
CN = Nb de colonnes de la matrice
N = Numéro d'ordre de la cellule
Sortie : L = Ligne de la cellule à rechercher
C = Colonne de la cellule à rechercher
Résultat: = False si erreur
Limite : Le produit L x C < 65 537, soit 256 x 256
{------------------------------------------------------------------------------}
Function TForm1.FLCNcelMat(N,LM,CM: Word;Var L,C : Byte) :Boolean;
Begin
Result := False;
if LM*CM < 65537 then
begin
Result := True;
L := N div CM +1;
C := N mod CM;
if C = 0 then C := CM;
if N mod LM = 0 then L := L -1;
end;
end;