[Gelöst] TStrings deffinieren und in Listbox Komponent laden

[Jessa]

Ich habe die Idee mit dem Popup erstmal verworfen bis ich besser mit TStringlist klar kommen.

Nun möchte ich ein Programm schreiben was am anfang eine Datei abfragt und die Strings in TStringlist einfügt und von da aus in die listbox einfügt.

Doch bevor ich das machen kann muss ich erstmal einen TStringlist deffinieren, kein Problem doch will ich nun den TStringlist in die ListBox1 übertragen bekomme ich nur einen Fehler.

Erstmal muss ich es schaffen das man die Einträge über Edit1.Text in die TStringlist und dann von der der TStringlist in die ListBox1 läd.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
x := edit1.Text;
sl := TStringlist.Create;
try
sl.Add(x);
finally
sl.Free;
list1.Items.AddStrings(sl);
end;
end;

end.

So siehts derzeitig aus, doch ich bekomme nur einen Fehler.

[Bernhard Geyer]

Fällt dir an der Reihenfolge dieser beiden Codezeilen etwas auf:

Delphi-Quellcode:

sl.Free;
list1.Items.AddStrings(sl);

:gruebel:

[CalganX]

Hi,
grundsätzlich: wenn ein Fehler auftritt, sag einfach was für ein Fehler. Beschleunigt die Lösungsfindung.

Allerdings ist bei dir schon direkt ersichtlich, warum es zu einer Zugriffsverletzung kommt:

Zitat:

Delphi-Quellcode:

{...}
    sl.Free
    List1.Items.AddStrings(sl);

Das Programm wird die Befehle in dieser Reihenfolge ausführen. Was passiert bei dieser Stelle? Zu erst wird deine Stringliste aus dem Speicher entfernt. Dann fügst du die Stringliste in etwas anderes ein. Problem: die Stringliste existiert gar nicht mehr. ;)
Wenn überhaupt dann anders rum. Allerdings empfiehlt es sich die Zuweisung nicht in den finally-Abschnitt zu packen.

Chris

[Jessa]

*sich zu Boden schämt* Danke *ganz ganz leise*