Naja , das hat der Lehrer hinprogrammiert , konnte aber nicht fragen , was next heißen soll , weil ich grade an etwas anderem programmiert habe xD.
Also , trotzdem danke für die Antwort.
Also , wir haben jetzt den Code , hab diesen [0] Befehl korrigiert :
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 :=1;
max := 10;
end;
function tschlange.einfuegen(x:person):boolean;
begin
schlange[next] := x;
end;
{$R *.dfm}
end.
Wenn ich jetzt ein Edit-Feld habe , und ich gebe dort zum Beispiel Peter ein , das ist ja ein String , also :
Delphi-Quellcode:
....
//
schlange[1] := form1.edit1.text;
Das geht ja nicht wegen den Datentypen , wie behebe ich diesen Fehler ?
2. Denkansatz von mir :
Delphi-Quellcode:
...
//
schlange.name[1]:= form1.edit1.text;
Geht das hier ?
Wie setze ich das um , dass ich einen Namen ins Array speichern kann.
Der record heißt person , ich bin ein bisschen durcheiannder , wie ihr seht , bin aber eifrig am Überlegen , also bitte nciht denken , dass ich nix mache oder so.