Methoden UNit

unit Methoden_u;

interface

 uses Datentyp_u;

  Procedure Initialisiere(var queue : TSchlange; var Amount : Integer);
  Procedure anfuegen(var queue : TSchlange; var Amount : Integer);

implementation

  Procedure Initialisiere(var queue : TSchlange; var Amount : Integer);
    var i : integer;
    begin
      for i := 1 to n do queue[i] := ' ';
      amount := 0
    end;

  Procedure anfuegen(var queue : TSchlange; var Amount : Integer);
  var neu : string;
  begin
   if Anzahl < n then
     begin
       neu := inputBox('Neuer Kunde','Neuer Kunde','');
       queue[Anzahl + 1] := neu;
       li_schlange.items.add(queue[Anzahl+1]);
     end
   else showmessage('Leider kein Platz');
  end;


end.