Aus listbox mit mehreren Felder bestimmtes Feld ändern

[DevilsCamp]

Zitat:

Zitat von Tempdir

Wow vielen Dank an DevilsCamp für diese Lösung. Das sieht sehr gut aus und funktioniert :)

Ich grübel nur gerade an der Erweiterung der Formel, da sie nicht mehr stimmt, sobald man eine neue Zeile in die Listbox einfügt. Irgendwie muss da noch ein Korrekturfaktor mit rein.

Als Beispiel:

Delphi-Quellcode:

.                  X
   Spalte 1  |  Spalte 2  |  Spalte 3
   0            5            10
Y  1            6            11
   2            7            12
   3            8            13
   4            9            14

Z.B.: X = 1; Y = 3

Einsetzen in: x * Listbox1.Columns + y; => 1*3 + 3 = 6, sollte aber 8 sein.

Args. Hast Recht. :wall:

Es müsste korrekterweise lauten:

Delphi-Quellcode:

Index := x * AnzahlZeilen + y // x und y weiterhin 0-basiert

Da ich aber gerade kein Delphi zur Verfügung habe, kann ich dir leider nicht sagen, wie man genau bestimmt, wieviele Zeilen pro Spalte verwendet werden. Evtl. über ItemHeight und Height berechnen. Wenn jetzt aber bei drei Spalten und 4 sichtbaren Zeilen mehr als 12 Einträge vorhanden sein, könnte die Formel auch wieder schiefgehen.

Bei Lazarus würde es klappen, da hier nur TListbox.Columns Spalten sichtbar sind, aber eine horizontale Scrollleiste angezeigt wird. Sollte das unter Delphi ebenfalls so sein, so sollte die neue Formel generell passen.

[Tempdir]

Was mir aber auch noch auffällt:

Delphi-Quellcode:

Listbox1.Items[CellToIndex(2, 1)] := 'Neuer Wert'; // Wert '65' wird zu 'Neuer Wert'

dieses Listbox1.Items spricht ja nur die ZEILE an, nicht aber das genaue Feld? Ich seh das nur wenn ich testweise z.B. eine 0 einfüge (Listbox1.Items[0] := 'Neuer Wert';), dann überschreibt er die ganze Zeile und zeigt im ersten Feld "Neuer Wert" an. :(

*edit* Hab eine Lösung gefunden: Lixtbox1.SetItemPart(Index,Column,'NeuerWert');

[DevilsCamp]

Zitat:

Zitat von Tempdir

Was mir aber auch noch auffällt:

Delphi-Quellcode:

Listbox1.Items[CellToIndex(2, 1)] := 'Neuer Wert'; // Wert '65' wird zu 'Neuer Wert'

dieses Listbox1.Items spricht ja nur die ZEILE an, nicht aber das genaue Feld? Ich seh das nur wenn ich testweise z.B. eine 0 einfüge (Listbox1.Items[0] := 'Neuer Wert';), dann überschreibt er die ganze Zeile und zeigt im ersten Feld "Neuer Wert" an. :(

*edit* Hab eine Lösung gefunden: Lixtbox1.SetItemPart(Index,Column,'NeuerWert');

Du verwendest Delphi 2009? Dann muss ich mal schauen ob SetItemPart schon bei 2006 dabei ist.
Frage: Welche Wert zeigt dir ein Label mit folgendem Code an?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := ListBox1.Items[0];
end;

[Tempdir]

Ja D2009.

Deine Codezeile zeigt mir die komplette Zeile an, in etwa so:

Feld1;Feld2;Feld3;Feld4

Ich sollte vielleicht nocht erwähnen dass ich die LMD-Komponenten nutze. Vielleicht macht das einen Unterschied?

[DevilsCamp]

Möglich, dass die LMD-Komponenten da etwas anders arbeiten.

Dann dürftest du aber wohl mit

Delphi-Quellcode:

ListBox1.GetItemPart(Column, Row)

auch direkt auf eine Zelle zugreifen können, oder?

[Tempdir]

genau, zugreifen geht mit diesem Befehl. Leider kann man ihn nicht zum schreiben benutzen ;)

[DevilsCamp]

Zitat:

Zitat von Tempdir

genau, zugreifen geht mit diesem Befehl. Leider kann man ihn nicht zum schreiben benutzen ;)

Die Lösung hast du ja nun selber gefunden :lol: :

Zitat:

Zitat von Tempdir

*edit* Hab eine Lösung gefunden: Lixtbox1.SetItemPart(Index,Column,'NeuerWert');

[Tempdir]

ja :) Ich schätze mal dahinter steckt sowas ähnliches wie deine Idee.

[DevilsCamp]

Eher nicht. Da die Werte bei deiner Listbox nicht einzeln wie in einer normalen Listbox gespeichert werden, sondern zeilenweise mit ; getrennt, wird da intern was ganz anderes passieren.

Meine Idee basiert auf eine normale Listbox, deren Werte auch bei mehreren Spalten noch einzeln über einen Index ansprechbar sind.