Hallo, bin dabei ein verwaltungsprogramm für meinen fußballclub zu schreiben und verzweifle gerade an einem Array. Das Array ist Teil eines Records der die komplette mannschaft umfasst und das Array ist Speicherort für die einzelnen Spieler ebenfalls als record mit Name, Vorname, Jahrgang etc.
Delphi-Quellcode:
var man :Tmannschaft;
procedure TFormspieler.ButtoneinfgClick(Sender: TObject);
var i:integer;
begin
i:= High (man.kader)+1;
with man.kader[i] do begin
vname:=editvname.Text;
name :=editname.text;
geb.day := StrToInt(editday.Text);
geb.month:= StrToInt (editmonth.text);
geb.year:= StrToInt (edityear.text);
end;
with formbearb.stringGridkader do begin
cells[0,z]:=man.kader[i].vname;
cells[1,z]:=man.kader[i].name;
cells[2,z]:=editday.text+'.'+editmonth.text+'.'+edityear.text;
cells[3,z]:='Mittelfeld';
cells[4,z]:='Info';
end;
Der Fehler liegt wie gesagt im oberen array; wieso auch immer stürzt das Programm dort immer ab.
kader ist das Array und ist teil des man (Mannschaft) Records...
Habe auch versucht i als "1" festzulegen aber auch dann stürzt er ab.
Hoffe ihr könnt mir helfen
