Haha , daran habe ich garnicht gedacht irgendwie xD.
Hab viel zu kompliziert gedacht , also so sieht es dann jetzt , nach deinem Tipp , danke nochmals , aus :
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Edit1: TEdit;
Button1: TButton;
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 :=1;
max := 10;
end;
function tschlange.einfuegen(x:person):boolean;
var i:integer;
begin
schlange[10].
Name := form1.edit1.text;
schlange[9].
Name:= form1.edit2.text;
schlange[8].
name:=form1.edit3.text;
// for i:=1 to 9 do
//schlange[next] := schlange[next+1];
end;
{$R *.dfm}
begin
end.
Und jetzt möchte ich , dass mit einer Showmessage-Prozedur mir angezeigt wird , wer zm Beispiel als 3. an der Kasse steht.
Geht das so hier :
[delphi procedure anzeigen;
begin
showmessage(high(schlange[8]))
[/dephi]