Numéro Ligne et Colonne d'une Matrice L x C à partir de son numéro d'ordre

Contenu du snippet

{------------------------------------------------------------------------------}
{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;


Compatibilité : Delphi 5

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.