Hab hier folgenden Code im Internet gefunden und auf meine Bedürfnisse umgeschrieben
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
| procedure TForm2.LB_Aus_ArtikelDblClick(Sender: TObject);
var
i: Integer;
begin
with LB_Aus_Artikel do
begin
i := 0;
while (i <= Items.Count - 1) and (SelCount > 0) do
begin
while (i <= Items.Count - 1) and Selected[i] do
Items.Delete(i);
inc(i);
end;
ArtikelAnz:=ArtikelAnz - 1;
end;
end; |
Jedoch habe ich Keine Ahnung, was da nun überhaupt passiert.
Hintergrund der Geschichte, durch Doppelklick auf ein Item in einer Liste, soll der Eintrag entfernt werden, dies passiert aber nur, wenn in der Komponente MultiSelect Aktiviert ist, aber das ist nicht schlimm, so kann man auch mehrere Artikel entfernen, doch die Frage ist hier, wieso?
Vielen Dank erstmal
Gruß Christopher
Edit: Ich habe mal selber versucht aus einer anderen Liste einen Eintrag zu entfernen, und hab daher nur einen weiteren Eintrag gemacht: LB_Aus_ArtikelAnz.items.delete(i);
Jetzt funktioniert das auch das löschen aus einer anderen Liste, das war vorher hier eine Frage, wie man das macht.
| Zitat: |
das war der alte Text
Das Nächste ist, wie dieser Code arbeitet.
Hintergrund davon, ich würde gerne, in diesem Code einfügen, das auch aus einer anderen Liste ein Item entfernt wird, dieses Item gehört aber zu dem anderen Artikel in der anderen Liste.
Bedeutet:
Liste 1 ---- Liste 2
200 -------- Kugelschreiber
Bedeutet, in dem Code oben möchte ich gerne auch einarbeiten, das gleichzeitig der Eintrag aus Liste 1 gelöscht wird, wenn man doppel Klick auf Liste 2 Item macht.
Und aus diesem Grund wäre es gut, wenn ich den Code, der Oben steht, erklärt bekomme, dann kann ich ggf. auch selber das ein Arbeiten.
Ich denke das dies Eine Frage ist und das ich nicht extra dafür noch einen Thread auf machen muss, weil es hier ja lediglich um eine Erläuterung des Oben genannten Codes geht.
|
Moderiert von 
Narses: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Mi 01.06.2011 um 12:52
