Probleme mit einer Funktion

[timschoen]

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

[Klaus01]

Hallo,

wie befüllst Du denn das Array Pats[] (oder ist es eine TObjectlist)?

Pats[0] := TPat.create; Wenn es ein dynamisches Array sein sollte, solltest Du vor der Benutzung
die Länge des Arrays festlegen.

Kurz gesagt, die interessanten Teile sind in Deinem Code nicht enthalten.

Grüße
Klaus

[timschoen]

So befülle ich den Array:

procedure TForm1.AddClick(Sender: TObject);
begin
Pats[a] := TPat.Create(a);
end;

In der create-procedure zähle ich dann a immer eins hoch, a steht am anfang auf 0. Das Array ist nicht dynamisch, sondern hat immer 20 elemente. Wieviele davon befüllt sind zähle ich mit a.

Pats: Array [0..20] of TPat;

constructor TPat.Create(i: Integer);
begin
Inc(a);
index := i;
....
end;

Grüße zurück und Danke für die Antwort,
Tim

[Perlsau]

Zitat von timschoen:

Hallo Community, ich bin momentan am programmieren eines kleinen Tools, das mir und ein paar Freunden bei einer Blutspende helfen soll.

Crosspost!

[Klaus01]

aus dem Crosspost:

Delphi-Quellcode:

// Global
var
  Form1: TForm1;
  a: Integer;
  Pats: Array [0..20] of TPat;

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  a := 0;
end;

Delphi-Quellcode:

constructor TPat.Create(i: Integer);
begin
  Inc(a); //hier wird die globale Variable a geändert

...
end;

Delphi-Quellcode:

procedure TForm1.AddClick(Sender: TObject);
begin
  Pats[a] := TPat.Create(a);
end;

Probiere mal, ob Du auf

Delphi-Quellcode:

procedure TForm1.Sort;
var i, j: Integer;
  temp: TPat;
  stop : boolean;
begin
  showmessage(inttostr(Pats[1].getGesTime));

zugreifen kannst.

Grüße
Klaus

[Sir Rufo]

Neben den vielen (Design-)Fehlern ist der eklatanteste und hier verantwortliche Fehler das fehlende Wissen um die zeitliche Abfolge einer Zuweisung.

Delphi-Quellcode:

procedure TForm1.AddClick(Sender: TObject);
begin
Pats[a] := TPat.Create(a);
end;

constructor TPat.Create(i: Integer);
begin
  Inc(a);
  index := i;
  ...
end;

Bei einer Zuweisung wird erst der rechte Ausdruck ausgewertet und danach erfolgt die Zuweisung ...
Somit ist a bei der ersten Zuweisung nicht - wie angenommen - 0 sondern schon 1