Hallo Community,
ich bin momentan am programmieren eines kleinen Tools, das mir und ein paar Freunden bei einer Blutspende helfen soll. Wir kümmern uns um den Teil, in dem die Personen 5 min sitzen und 5 min liegen sollen, bevor sie sich etwas zu essen holen und fertig mit der Blustpende sind. Ich habe einige einträge von Personen (ich habe sie im Programm Pat für Patienten genannt), die ich gerne nach der Zeit sortieren würde, die sie insgesamt noch sitzen und liegen möchten. Anbei Code.
Delphi-Quellcode:
TPat = class(TObject)
...
private
platz: String;
name: String;
Timer: TTimer;
liegt, setzt: Integer;
index: Integer;
public
....
function getGesTime(): Integer;
...
end;
function TPat.getGesTime(): Integer;
begin
getGesTime := setzt + liegt;
end;
procedure TForm1.Sort;
var i, j: Integer;
temp: TPat;
stop : boolean;
begin
showmessage(inttostr(Pats[0].getGesTime));
{ //das sortieren hab ich hier auskommentiert, weil ich erst einmal nur die getgestime funktion ausprobieren wollte, wobei schon der fehler aufgetreten ist
}
Form1.Refresh;
end;
Delphi spuckt mir jetzt einen
access violation Error aus, den ich wirklich überhaupt nicht verstehe. Ich greife auf das Objekt 0 des Array zu, das allerdings sicher existiert, wenn ich den button Sort drücke, da ich davor extra eines angelegt habe. Ich weiss auch nicht, in welches Forum es gehört, weil ich wie schon gesagt wirklich keinerlei Ahnung habe, woran das Problem liegt.
Ich bitte um Hilfe,
Tim