Abstrakter Fehler

[hoika]

Hallo,

vielleicht tritt der Fehler ja NACH dem Aufruf von loeschenTeilnehmer auf.
Setz doch mal nen breakpoint auf das letzte end.


Heiko

[MiChiJong]

Also meiner Meinung nach tritt der Fehler nach loeschenTeilnehmer auf.

Jedoch frage ich mich wo der Fehler dann auftritt. Denn lschenTeilnehmer wird ja von LoeschenClick aufgerufen und danach wird nur noch der zaehler um 1 erniedrigt.

Delphi-Quellcode:

procedure TForm1.LoeschenClick(Sender: TObject);
var
tempzahl: String;
begin
if Sender is TButton then
   tempzahl:=TButton(Sender).Name;
   Delete(tempzahl,0,8);
   tempzahl:=Copy(tempzahl,9,2);
   loeschenTeilnehmer(tempzahl);
   zaehler:=zaehler-1;
end;

[hoika]

Hallo,

was heisst hier "Meinung nach" ?

setze breakpoints oder ShowMessage, um das herauszufinden.


Heiko

[MiChiJong]

Ja genau deshalb. Ich habe ShowMessage am Ende der Prozedur gesetzt welcher noch gezeigt wurde. Somit sollte er die Prozedur verlassen und in die Prozedur von welcher sie aufgerufen wird, zurückgekehrt werden.

[hoika]

Hallo,

wo rufst du eigentlich das LoeschenClick überhauot auf ?
Was mich wundert ist das

Delphi-Quellcode:

if Sender is TButton then
   tempzahl:=TButton(Sender).Name;

Was passiert, wenn Sender nicht TButton ist ?
Ich würde hier auf jeden Fall erst mal ein
begin end einbauen

Delphi-Quellcode:

if Sender is TButton then
begin
   tempzahl:=TButton(Sender).Name; 
   Delete(tempzahl,0,8); 

   ....
end;

Heiko

[MiChiJong]

Der Sender ist immer ein Button und diese Abfrage war eigentlich nur zur zusätzlichen Sicherheit. Aber auch wenn ich die Abfrage entferne bzw. mit einem begin und end erweitere tritt der Fehler auf.

Gruß Michael

[hoika]

Hallo,

wenn der Fehler auftritt, drücke F7,
dann stehst du zumindestens am Ende der Routine,
die den Fehler verursacht hat.

Lade dir mal MadExcept runter,
der zeigt dir genauere Infos.


Heiko