AV bei Umwandlung der Klasse

[Die Muhkuh]

Hi,


ich steh grad aufem Schlauch. Folgender Code:

Delphi-Quellcode:

type 
  TEintrag = class
    Fenster: String;
    Titel: String;
    Caption: String;
  end;

[...]

procedure Tfmain.Button1Click(Sender: TObject);
var
  Eintrag: TEintrag;
  Fenster: String;
  Titel: String;
begin
  Eintrag := TEintrag.Create;
  Eintrag := TEintrag(Listbox1.Items[ListBox1.ItemIndex]);
  ShowWindow(FindWindow(PChar(Eintrag.Fenster), PChar(Eintrag.Titel)), SW_HIDE); //<---
  ListBox1.Items.Strings[Index] := ListBox1.Items.Strings[Index] + '|*';
  Button1.Enabled := false;
  Button2.Enabled := true;
end;


// Hinzufügen
procedure Tfadd.Button2Click(Sender: TObject);
begin
  with TEintrag.Create do
  begin
    Titel := lTitel.Caption;
    Fenster := lFenster.Caption;
    Caption := lTitel.Caption;
    fmain.ListBox1.AddItem(Caption, Self);
  end;
end;

Beim Pfeil gibts ne AV. Warum?

[mirage228]

Hi,

Eintrag := TEintrag(Listbox1.Items[ListBox1.ItemIndex]); seit wann lässt sich ein String auf eine Klasse casten?

mfG
mirage228

[Die Muhkuh]

Wie sollte ich es sonst machen?

[mirage228]

Hi,

wie wäres mit

Items.Objects[]

Und nächster Fehler:

Delphi-Quellcode:

  with TEintrag.Create do 
  begin 
    Titel := lTitel.Caption; 
    Fenster := lFenster.Caption; 
    Caption := lTitel.Caption; 
    fmain.ListBox1.AddItem(Caption, Self); 
  end;

Self = Form1 und nicht die Instanz von TEintrag. Also musst du wohl mit ner Variable arbeiten.

mfG
mirage228

[jim_raynor]

Zu dem erzeugst du mit Eintrag := TEintrag.Create; in Button1Click ein Speicherleck, weil du eine Zeile später Eintrag wieder überschreibst.

[Die Muhkuh]

Hi,


heut ist wohl nicht mein Tag .

Aber Thx. Jetzt gehts.


*MFG*

Mani