Tut mir Leid , du hattest es ja bearbeitet , dass du es bearbeitet hast , hatte ich nicht gesehen , Entschuldigung.
So , jetzt habe ich keine Fehler mehr :
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Tperson =
record
Name:
string;
id:integer;
end;
Tschlange =
class
private
next,max:integer;
schlange :
array [1..10]
of tperson;
public
function einfuegen(x:tperson):boolean;
constructor create;
end;
var
Form1: TForm1;
myschlange:Tschlange;
myrec : Tperson;
i : integer;
implementation
{$R *.dfm}
constructor tschlange.create;
begin
next :=10;
max := 10;
end;
function tschlange.einfuegen(x: tperson):boolean;
begin
//hinter dem Array kann man nichts mehr einfügen
Result := Next >0;
if Result
then
begin
//Daten an aktuelle Array-Position schreiben
schlange[Next].
Name := x.
Name;
schlange[Next].Id := x.id;
//Position abziehen
dec(Next);
end
else // wenn next = 0 ist
begin
for i:=9
downto 1
do
schlange[i+1]:=schlange[i];
showmessage('
Fehler');
// Test , ob was gemacht wird , wenn next =0 ist
end;
end;
procedure recordirgendwas;
begin
myschlange := tschlange.create;
myschlange.Free;
myschlange.einfuegen(myrec);
myrec.
Name := form1.edit1.text;
myrec.id := strtoint(form1.edit2.text);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
recordirgendwas;
end;
end.
Damit kann ich jetzt was , in meinen "Verhältnissen" , anfangen oder ?