Warteschlange realisieren

[hotkey]

Hallo,

als Übung für die kommende Informatik-LK-Klausur möchte ich mich mit der Warteschlange beschäftigen.

Also ich habe 10 Personen , die anstehen , diese 10 Personen sind in einem Array vom Typ person (record) gespeichert , so sieht mein Quellcode bisher aus :

So hatten wir in der Schule damit angefangen.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  person = record
    Name:string;
    id:integer;
  end;


  Tschlange = class
  private
    next,max:integer;
    schlange : array [1..10] of person;
  public
    function einfuegen(x:person):boolean;
    constructor create;
  end;




var
  Form1: TForm1;

implementation


constructor tschlange.create;
 begin
  next :=0;
  max := 10;
 end;

function tschlange.einfuegen(x:person):boolean;
 begin
   schlange[next] := x;
  end;

{$R *.dfm}

end.

Im Record haben wir noch die Id hinzugefügt , also es können ja Personen anstehen , die den gleichen Namen und sogar den gleichen Nachnamen haben ( Peter Müller etc) , deswegen eine eindeutige ID.

So , auf dem Formular habe ich erstmal GARNIX.
Und ich weiß auch nicht mehr weiter , bei der function einfuegen(x:person):boolean .

Kriege ich hier einen Tipp , wie ich eine Person jetzt einfügen kann ?
Also z.b , wo ich ein edit-feld habe und wo dann sich eine Person einfügen kann.

Danke schon im Voraus.