Fehlermeldung unerklärlich

[Naryxus]

Hallo, ich habe ein größeres Problem bei dem ich einfach keine Lösung finde.
Erst mal allgemein: Ich habe...

• eine ListView mit verschiedenen Elementen
• eine Groupbox, die noch leer ist

Bei Klick auf ein Element der ListView (gelöst durch das Event "OnClick") soll genau dieses Element in der Groupbox als Label angezeigt werden (also die Caption des Elements). Dies habe ich durch folgende Prozedur gelöst:

Delphi-Quellcode:

procedure TForm1.ListView1Click(Sender: TObject);
var MyLabel:TLabel;
var labelname:string;
begin
  if(form1.ListView1.ItemFocused.Caption<>'') then //Prüfung ob ein Element angeklickt wurde
  begin
    MyLabel:=TLabel.Create(Form1);
    with MyLabel do begin
      Caption:=form1.Listview1.ItemFocused.Caption;
      labelname:=form1.Listview1.ItemFocused.Caption;
      Delete(labelname, 2, 1); //Bearbeitung der Caption für den Namen, da Sondezeichen enthalten
      name:='Label'+labelname;
      left:=10;
      top:=labelvar*20; //globale Variable, um die Labels untereinander anzuzeigen
      visible:=true;
      parent:=groupbox3;
      onClick:=loesche; //Prozedur, zu der ich noch komme
    end;
    labelvar:=labelvar+1;
    form1.ListView1.ItemFocused.Delete;
  end
end;

Mit dieser Prozedur wird also ein Label mit der Caption des Elements erzeugt und das Element selbst in der ListView gelöscht. Soweit funktioniert auch alles.

Probleme gibts jetzt aber bei der Prozedur zum Löschen der Labels. Allgemein soll die Prozedur beim Klicken auf das Label das Element der ListView wieder hinzugefügt werden und das Label wieder gelöscht werden. Das läuft durch folgende Prozedur:

Delphi-Quellcode:

procedure TForm1.loesche (Sender: TObject);
var fahrzeug, listenfahrzeug:string;
var listitem:TListItem;
var fahrzeugliste:array[0..5] of integer;
var i:integer;
begin
  fahrzeug:=(Sender as TLabel).Caption; //Caption des angeklickten Labels herausfinden
  listitem:=form1.ListView1.Items.Add; //Hinzufügen des Elements in die ListView
  listitem.Caption:=fahrzeug; //Caption des Labels als Caption des neuen Elements
  for i:=1 to form1.ListView1.Items.Count do begin   //Im folgenden Block werden alle Elemente der ListView in einem Array gespeichert
    listenfahrzeug:=form1.ListView1.TopItem.Caption;
    delete(listenfahrzeug, 1, 2);
    fahrzeugliste[i]:=strtoint(listenfahrzeug);
    form1.Edit12.Text:=form1.Edit12.Text+listenfahrzeug+', ';
    form1.listview1.topitem.Delete;
  end;
  for x:=2 to i-1 do begin //Hier wird das Array dann sortiert von klein nach groß
    z:=fahrzeugliste[x];
    y:=x;
    while(y>1) and (fahrzeugliste[y-1]>z) do begin
      fahrzeugliste[y]:=fahrzeugliste[y-1];
      dec(y);
    end;
    fahrzeugliste[y]:=z;
  end;
  for x:=1 to i-1 do begin //Hier wird dann das geordnete Array wieder in die ListView eingefügt
    listitem:=form1.ListView1.Items.Add;
    listitem.Caption:='1/'+inttostr(fahrzeugliste[x]);
  end;
  (Sender as TLabel).Destroy; //Zuletzt wird dann das angeklickte Label wieder gelöscht
end;

Die Prozedur funktioniert an sich auch wunderbar, die ListView wird sortiert und richtig angezeigt.
Folgende Situationen habe ich durchgespielt:

• ein Label wird gelöscht (funktioniert)
• zwei Labels werden der Groupbox hinzugefügt und dann jeweils wieder gelöscht (funktioniert)

So weit, so gut. Füge ich jetzt aber drei Elemente der Groupbox hinzu, entstehen folgende Situationen:

1. Löschen des ersten Labels (funktioniert)
2. Anschließendes Anklicken des zweiten Labels (funktioniert nicht)
   1loesch2klick.jpg
3. Anschließendes Anklicken des dritten Labels (funktioniert nicht)
   1loesch3klick.jpg

Genauso setzt sich das dann auch bei mehreren Elementen fort. Genauso auch, wenn man das erste Label nicht löscht, sondern gleich das zweite, dritte oder vierte Label anklickt.
Ich habe schon vermutet, dass es sich um irgendein Problem mit dem Namen des Labels handelt, wenn man mehr als ein Label erstellt. Allerdings müsste man dann noch die Anomalie bei zwei Labels erklären, dort funktioniert es nämlich, egal in welcher Reihenfolge man diese Labels anklickt, sie werden gelöscht und der ListView hinzugefügt.

Ich hoffe, ich konnte mein Problem einigermaßen klar darstellen und hoffe auf eure Hilfe,

mit freundlichen Grüßen, Naryxus

[Alaitoc]

Nun ich gehe einfach mal davon aus das du per OnClick auf das Label, dass Label löscht?
Edit: Gerade gesehen das du das wirklich tust. Daher solltest du das anders lösen, am Besten indem
du das Element vormerkst für die Freigabe und es dann erst freigegeben wird sobald der Zugriff nicht mehr vorhanden ist.
Da gibt es mehrere Möglichkeiten.

Das Problem ist, wenn ein Objekt per Event sich selbst löschen will...dann gibt es Zugriffsverletzungen weil
du versuchst etwas freizugeben obwohl du noch innerhalb des Events auf das Label zugreifst.

Außerdem bitte FreeAndNil() benutzen anstatt Destroy() und auch Überprüfen ob das Element überhaupt existiert mit Assigned().

MfG Alaitoc

Edit: Willkommen in der Delphi-Praixs!

[Union]

Damit hat das nichts zu tun. Sondern eher hiermit:
for i:=1 to form1.ListView1.Items.Count do begin Bitte prüfe diese Schleife. Und debugge im Einzelschritt.

[Alaitoc]

Sollte es da nicht auch zu Problemen kommen wenn ein Objekt sich selbst zerstört...? :/
Auch wenn es hier wirklich grad an was anderem liegt...

MfG Alaitoc

[stahli]

Zitat von Alaitoc:

Sollte es da nicht auch zu Problemen kommen wenn ein Objekt sich selbst zerstört...? :/
Auch wenn es hier wirklich grad an was anderem liegt...
MfG Alaitoc

Das muss nicht unbedingt problematisch sein. Zum Zeitpunkt der Click-Behandlung existiert das Objekt ja noch.
Nun wird es in der Click-Behandlung freigeben. Wenn darauf danach nicht mehr (innerhalb des Objektes und außerhalb darauf zugegriffen wird), macht das keine Probleme.
Und selbst wenn noch ein Zugriff auf die Speicherstelle erfolgt, liegen dort noch die bisherigen Objektdaten.
Ob es ein Problem gibt hängt dann letztlich von der genauen Implementierung ab.

Zitat von Naryxus:

Die Sache ist ja die, dass die Schleife eigentlich gar nichts mit der Löschung des Labels zu tun hat. Sie dient ja letztendlich nur zur Sortierung der ListView. Ich habe mal den kompletten Array-Sortierungsbereich auskommentiert und das Problem tritt immer noch auf.

Geh ein Problem nach dem anderen an und debugge schrittweise.

[Naryxus]

Ok, ich bin jetzt mal alles durchgegangen.

Komischerweise stockt er, wenn es zu Problemen kommt nicht in der Datei *.pas sondern in der Project-Datei *.dpr. Und zwar in der letzten Zeile bei "end.". So etwas hatte ich noch nie...
Vor allem verstehe ich immer noch nicht, wieso es bei einmaligen und beim zweimaligen Aufrufen der Löschen-Prozedur einwandfrei läuft, es aber dann, sobald drei Labels erstellt wurden stockt. Vor allem kann man das schlecht debuggen, da der Fehler ja nur auftritt, wenn man im laufenden Programm eine bestimmte Abfolge an Befehlen tätigt.

[Naryxus]

Danke erst einmal für die schnellen Antworten.

Zitat:

Das Problem ist, wenn ein Objekt per Event sich selbst löschen will...dann gibt es Zugriffsverletzungen weil
du versuchst etwas freizugeben obwohl du noch innerhalb des Events auf das Label zugreifst.

Scheint für mich logisch, allerdings frage ich mich dann, warum das dann bei einem oder zwei Labels funktioniert, aber dann bei mehreren nicht mehr.

Zitat:

Damit hat das nichts zu tun. Sondern eher hiermit:
for i:=1 to form1.ListView1.Items.Count do begin Bitte prüfe diese Schleife. Und debugge im Einzelschritt.

Die Sache ist ja die, dass die Schleife eigentlich gar nichts mit der Löschung des Labels zu tun hat. Sie dient ja letztendlich nur zur Sortierung der ListView. Ich habe mal den kompletten Array-Sortierungsbereich auskommentiert und das Problem tritt immer noch auf.

[Alaitoc]

Zitat:

- Setze einen Haltepunkt und arbeite den Quelltext schrittweise ab (incl. Nutzung der überwachten Ausdrücke)

Ist wahrscheinlich der beste Tipp um dem Problem auf die Spur zu kommen. Geh einfach mal mit dem Debugger jeden einzelnen Punkt durch. Dann sollte sich schnell der Fehler herauskristalisieren.

MfG Alaitoc

[Union]

Am Label-Löschen liegt es nicht. Folgender Source funktioniert:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  MyLabel : TLabel;
  LabelName : string;
begin
  MyLabel:=TLabel.Create(Form1);
  with MyLabel do begin
    Caption:= DateTimeToStr(Now);
    labelname:= 'Label'+IntToStr(labelvar);
    Delete(labelname, 2, 1); //Bearbeitung der Caption für den Namen, da Sondezeichen enthalten
    name:='Label'+labelname;
    left:=10;
    top:=labelvar*20; //globale Variable, um die Labels untereinander anzuzeigen
    visible:=true;
    parent:=Form1;
    onClick:=loesche; //Prozedur, zu der ich noch komme
  end;
  labelvar:=labelvar+1;
end;

procedure TForm1.Loesche(Sender: TObject);
begin
  (Sender as TLabel).Destroy; //Zuletzt wird dann das angeklickte Label wieder gelöscht
end;

Bitte nimm doch den Vorschlag an, im Einzelschritt zu debuggen. Programmierer die nicht debuggen kommen in die Hölle (Steve McConnell)

[DeddyH]

Bitte nicht Destroy direkt aufrufen, sondern stattdessen Free verwenden. Aber das nur am Rande.