InraPorc

unit UFindRec;

interface

function FindNumMatiere(Nom: string): integer;

function FindNomMatiere(Num: integer): string;

function FindIdxMatiere(Nom: string): integer;

function FindNumAliment(Nom: string): integer;

function FindNomAliment(Num: integer): string;

function FindIdxAliment(Nom: string): integer;

function FindNumSeqAliT(Nom: string): integer;

function FindNomSeqAliT(Num: integer): string;

function FindIdxSeqAliT(Nom: string): integer;

function FindNumRationT(Nom: string): integer;

function FindNomRationT(Num: integer): string;

function FindIdxRationT(Nom: string): integer;

function FindNumLogeT(Nom: string): integer;

function FindNomLogeT(Num: integer): string;

function FindIdxLogeT(Nom: string): integer;

function FindNumProfilT(Nom: string): integer;

function FindNomProfilT(Num: integer): string;

function FindIdxProfilT(Nom: string): integer;

function FindNumSimulT(Nom: string): integer;

function FindNomSimulT(Num: integer): string;

function FindIdxSimulT(Nom: string): integer;

function FindNumSeqAliP(Nom: string): integer;

function FindNomSeqAliP(Num: integer): string;

function FindIdxSeqAliP(Nom: string): integer;

function FindNumRationP(Nom: string): integer;

function FindNomRationP(Num: integer): string;

function FindIdxRationP(Nom: string): integer;

function FindNumProfilP(Nom: string): integer;

function FindNomProfilP(Num: integer): string;

function FindIdxProfilP(Nom: string): integer;

function FindNumSimulP(Nom: string): integer;

function FindNomSimulP(Num: integer): string;

function FindIdxSimulP(Nom: string): integer;

implementation

uses

  gnugettext, UVariables;

// Renvoie le num?ro de la mati?re premi?re ? partir de son nom

function FindNumMatiere(Nom: string): integer;

var

  i:  integer;

  ok: boolean;

begin

  i := -1;

  repeat

    Inc(i);

    PMatiere := ListMatiere[i];

    if PMatiere.Num > 0 then // Mati?re premi?re utilisateur

      ok := PMatiere.Nom = Nom

    else // Mati?re premi?re INRA-AFZ (traduction)

      ok := dgettext('InraAfz', PMatiere.Nom) = Nom;

  until ok;

  Result := PMatiere.Num;

end;

// Renvoie le nom de la mati?re premi?re ? partir de son num?ro

function FindNomMatiere(Num: integer): string;

var

  i: integer;

begin

  i := -1;

  repeat

    Inc(i);

    PMatiere := ListMatiere[i];

  until PMatiere.Num = Num;

  if Num > 0 then // Mati?re premi?re utilisateur

    Result := PMatiere.Nom

  else // Mati?re premi?re INRA-AFZ (traduction)

    Result := dgettext('InraAfz', PMatiere.Nom);

end;

// Renvoie l'index de la mati?re premi?re ? partir de son nom

function FindIdxMatiere(Nom: string): integer;

var

  i:  integer;

  ok: boolean;

begin

  ok := True;

  i  := 0;

  while ok and (i < ListMatiere.Count) do

  begin

    PMatiere := ListMatiere[i];

    if PMatiere.Num > 0 then // Mati?re premi?re utilisateur

      if PMatiere.Nom = Nom then

        ok := False

      else

        Inc(i)

    else // Mati?re premi?re INRA-AFZ (traduction)

    if dgettext('InraAfz', PMatiere.Nom) = Nom then

      ok := False

    else

      Inc(i);

  end;

  if ok then

    Result := -1

  else

    Result := i;

end;

// Renvoie le num?ro de l'aliment ? partir de son nom

function FindNumAliment(Nom: string): integer;

var

  i: integer;

begin

  i := -1;

  repeat

    Inc(i);

    PAliment := ListAliment[i];

  until PAliment.Nom = Nom;

  Result := PAliment.Num;

end;

// Renvoie le nom de l'aliment ? partir de son num?ro

function FindNomAliment(Num: integer): string;

var

  i: integer;

begin

  i := -1;

  repeat

    Inc(i);

    PAliment := ListAliment[i];

  until PAliment.Num = Num;

  Result := PAliment.Nom;

end;

// Renvoie l'index de l'aliment ? partir de son nom

function FindIdxAliment(Nom: string): integer;

var

  i:  integer;

  ok: boolean;

begin

  ok := True;

  i  := 0;

  while ok and (i < ListAliment.Count) do

  begin

    PAliment := ListAliment[i];

    if PAliment.Nom = Nom then

      ok := False

    else

      Inc(i);

  end;

  if ok then

    Result := -1

  else

    Result := i;

end;

// Renvoie le num?ro de la s?quence alimentaire truie ? partir de son nom

function FindNumSeqAliT(Nom: string): integer;

var

  i: integer;

begin

  i := -1;

  repeat

    Inc(i);

    PSeqAliT := ListSeqAliT[i];

  until PSeqAliT.Nom = Nom;

  Result := PSeqAliT.Num;

end;

// Renvoie le nom de la s?quence alimentaire truie ? partir de son num?ro

function FindNomSeqAliT(Num: integer): string;

var

  i: integer;

begin

  i := -1;

  repeat

    Inc(i);

    PSeqAliT := ListSeqAliT[i];

  until PSeqAliT.Num = Num;

  Result := PSeqAliT.Nom;

end;

// Renvoie l'index de la s?quence alimentaire truie ? partir de son nom

function FindIdxSeqAliT(Nom: string): integer;

var

  i:  integer;

  ok: boolean;

begin

  ok := True;

  i  := 0;

  while ok and (i < ListSeqAliT.Count) do

  begin

    PSeqAliT := ListSeqAliT[i];

    if PSeqAliT.Nom = Nom then

      ok := False

    else

      Inc(i);

  end;

  if ok then

    Result := -1

  else

    Result := i;

end;

// Renvoie le num?ro du plan de rationnement truie ? partir de son nom

function FindNumRationT(Nom: string): integer;

var

  i: integer;

begin

  i := -1;

  repeat

    Inc(i);

    PRationT := ListRationT[i];

  until PRationT.Nom = Nom;

  Result := PRationT.Num;

end;

// Renvoie le nom du plan de rationnement truie ? partir de son num?ro

function FindNomRationT(Num: integer): string;

var

  i: integer;

begin

  i := -1;

  repeat

    Inc(i);

    PRationT := ListRationT[i];

  until PRationT.Num = Num;

  Result := PRationT.Nom;

end;

// Renvoie l'index du plan de rationnement truie ? partir de son nom

function FindIdxRationT(Nom: string): integer;

var

  i:  integer;

  ok: boolean;

begin

  ok := True;

  i  := 0;

  while ok and (i < ListRationT.Count) do

  begin

    PRationT := ListRationT[i];

    if PRationT.Nom = Nom then

      ok := False

    else

      Inc(i);

  end;

  if ok then

    Result := -1

  else

    Result := i;

end;

// Renvoie le num?ro du logement truie ? partir de son nom

function FindNumLogeT(Nom: string): integer;

var

  i: integer;

begin

  i := -1;

  repeat

    Inc(i);

    PLogeT := ListLogeT[i];

  until PLogeT.Nom = Nom;

  Result := PLogeT.Num;

end;

// Renvoie le nom du logement truie ? partir de son num?ro

function FindNomLogeT(Num: integer): string;

var

  i: integer;

begin

  i := -1;

  repeat

    Inc(i);

    PLogeT := ListLogeT[i];

  until PLogeT.Num = Num;

  Result := PLogeT.Nom;

end;

// Renvoie l'index de lu logement truie ? partir de son nom

function FindIdxLogeT(Nom: string): integer;

var

  i:  integer;

  ok: boolean;

begin

  ok := True;

  i  := 0;

  while ok and (i < ListLogeT.Count) do

  begin

    PLogeT := ListLogeT[i];

    if PLogeT.Nom = Nom then

      ok := False

    else

      Inc(i);

  end;

  if ok then

    Result := -1

  else

    Result := i;

end;

// Renvoie le num?ro du profil truie ? partir de son nom

function FindNumProfilT(Nom: string): integer;

var

  i: integer;

begin

  i := -1;

  repeat

    Inc(i);

    PProfilT := ListProfilT[i];

  until PProfilT.Nom = Nom;

  Result := PProfilT.Num;

end;

// Renvoie le nom du profil truie ? partir de son num?ro

function FindNomProfilT(Num: integer): string;

var

  i: integer;

begin

  i := -1;

  repeat

    Inc(i);

    PProfilT := ListProfilT[i];

  until PProfilT.Num = Num;

  Result := PProfilT.Nom;

end;

// Renvoie l'index du profil truie ? partir de son nom

function FindIdxProfilT(Nom: string): integer;

var

  i:  integer;

  ok: boolean;

begin

  ok := True;

  i  := 0;

  while ok and (i < ListProfilT.Count) do

  begin

    PProfilT := ListProfilT[i];

    if PProfilT.Nom = Nom then

      ok := False

    else

      Inc(i);

  end;

  if ok then

    Result := -1

  else

    Result := i;

end;

// Renvoie le num?ro de la simulation truie ? partir de son nom

function FindNumSimulT(Nom: string): integer;

var

  i: integer;

begin

  i := -1;

  repeat

    Inc(i);

    PSimulT := ListSimulT[i];

  until PSimulT.Nom = Nom;

  Result := PSimulT.Num;

end;

// Renvoie le nom de la simulation truie ? partir de son num?ro

function FindNomSimulT(Num: integer): string;

var

  i: integer;

begin

  i := -1;

  repeat

    Inc(i);

    PSimulT := ListSimulT[i];

  until PSimulT.Num = Num;

  Result := PSimulT.Nom;

end;

// Renvoie l'index de la simulation truie ? partir de son nom

function FindIdxSimulT(Nom: string): integer;

var

  i:  integer;

  ok: boolean;

begin

  ok := True;

  i  := 0;

  while ok and (i < ListSimulT.Count) do

  begin

    PSimulT := ListSimulT[i];

    if PSimulT.Nom = Nom then

      ok := False

    else

      Inc(i);

  end;

  if ok then

    Result := -1

  else

    Result := i;

end;

// Renvoie le num?ro de la s?quence alimentaire porc ? partir de son nom

function FindNumSeqAliP(Nom: string): integer;

var

  i: integer;

begin

  i := -1;

  repeat

    Inc(i);

    PSeqAliP := ListSeqAliP[i];

  until PSeqAliP.Nom = Nom;

  Result := PSeqAliP.Num;

end;

// Renvoie le nom de la s?quence alimentaire porc ? partir de son num?ro

function FindNomSeqAliP(Num: integer): string;

var

  i: integer;

begin

  i := -1;

  repeat

    Inc(i);

    PSeqAliP := ListSeqAliP[i];

  until PSeqAliP.Num = Num;

  Result := PSeqAliP.Nom;

end;

// Renvoie l'index de la s?quence alimentaire porc ? partir de son nom

function FindIdxSeqAliP(Nom: string): integer;

var

  i:  integer;

  ok: boolean;

begin

  ok := True;

  i  := 0;

  while ok and (i < ListSeqAliP.Count) do

  begin

    PSeqAliP := ListSeqAliP[i];

    if PSeqAliP.Nom = Nom then

      ok := False

    else

      Inc(i);

  end;

  if ok then

    Result := -1

  else

    Result := i;

end;

// Renvoie le num?ro du plan de rationnement porc ? partir de son nom

function FindNumRationP(Nom: string): integer;

var

  i: integer;

begin

  i := -1;

  repeat

    Inc(i);

    PRationP := ListRationP[i];

  until PRationP.Nom = Nom;

  Result := PRationP.Num;

end;

// Renvoie le nom du plan de rationnement porc ? partir de son num?ro

function FindNomRationP(Num: integer): string;

var

  i: integer;

begin

  i := -1;

  repeat

    Inc(i);

    PRationP := ListRationP[i];

  until PRationP.Num = Num;

  Result := PRationP.Nom;

end;

// Renvoie l'index du plan de rationnement porc ? partir de son nom

function FindIdxRationP(Nom: string): integer;

var

  i:  integer;

  ok: boolean;

begin

  ok := True;

  i  := 0;

  while ok and (i < ListRationP.Count) do

  begin

    PRationP := ListRationP[i];

    if PRationP.Nom = Nom then

      ok := False

    else

      Inc(i);

  end;

  if ok then

    Result := -1

  else

    Result := i;

end;

// Renvoie le num?ro du profil porc ? partir de son nom

function FindNumProfilP(Nom: string): integer;

var

  i: integer;

begin

  i := -1;

  repeat

    Inc(i);

    PProfilP := ListProfilP[i];

  until PProfilP.Nom = Nom;

  Result := PProfilP.Num;

end;

// Renvoie le nom du profil porc ? partir de son num?ro

function FindNomProfilP(Num: integer): string;

var

  i: integer;

begin

  i := -1;

  repeat

    Inc(i);

    PProfilP := ListProfilP[i];

  until PProfilP.Num = Num;

  Result := PProfilP.Nom;

end;

// Renvoie l'index du profil porc ? partir de son nom

function FindIdxProfilP(Nom: string): integer;

var

  i:  integer;

  ok: boolean;

begin

  ok := True;

  i  := 0;

  while ok and (i < ListProfilP.Count) do

  begin

    PProfilP := ListProfilP[i];

    if PProfilP.Nom = Nom then

      ok := False

    else

      Inc(i);

  end;

  if ok then

    Result := -1

  else

    Result := i;

end;

// Renvoie le num?ro de la simulation porc ? partir de son nom

function FindNumSimulP(Nom: string): integer;

var

  i: integer;

begin

  i := -1;

  repeat

    Inc(i);

    PSimulP := ListSimulP[i];

  until PSimulP.Nom = Nom;

  Result := PSimulP.Num;

end;

// Renvoie le nom de la simulation porc ? partir de son num?ro

function FindNomSimulP(Num: integer): string;

var

  i: integer;

begin

  i := -1;

  repeat

    Inc(i);

    PSimulP := ListSimulP[i];

  until PSimulP.Num = Num;

  Result := PSimulP.Nom;

end;

// Renvoie l'index de la simulation porc ? partir de son nom

function FindIdxSimulP(Nom: string): integer;

var

  i:  integer;

  ok: boolean;

begin

  ok := True;

  i  := 0;

  while ok and (i < ListSimulP.Count) do

  begin

    PSimulP := ListSimulP[i];

    if PSimulP.Nom = Nom then

      ok := False

    else

      Inc(i);

  end;

  if ok then

    Result := -1

  else

    Result := i;

end;

end.