Aus listbox mit mehreren Felder bestimmtes Feld ändern

[Tempdir]

Hallo,

ich habe in meinem Programm eine Listbox die über mehrere Spalten verfügt. Das ganze sieht in etwa so aus:

Delphi-Quellcode:

Spalte1 | Spalte2 | Spalte3
  23         41        45
  97        678        65 
  34         89        89

Ich möchte jetzt z.B. in der zweiten Spalte (ItemIndex wäre hier 1) die Spalte 2 ändern. Also den Wert 678 in 123 ändern. Leider schaffe ich es einfach nicht dieses Feld genau anzusprechen, irgendwie über:

Listbox.Items...

Hoffe sowas ist möglich - DANKE!

[DeddyH]

Mit ein paar Verrenkungen ist das schon möglich, aber statt einer Listbox wäre eine Listview mit dem ViewStyle vsReport IMHO besser für die gewünschte Darstellung geeignet.

[taaktaak]

... oder ein StringGrid (ohne fixe Spalte/Zeile, Linien deaktiviert) - das schaut dann genau wie eine Listbox aus.

[DevilsCamp]

Die einzelnen "Felder" der Listbox sind weiterhin über den 0-basierten Index ansprechbar.

Ich bin mir jetzt nur nicht sicher ob die Indexierung erst auf der Spalte oder erst auf der Zeile läuft.

Also ob:

Code:

Spalte 1  |  Spalte 2  |  Spalte 3
0            4            8
1            5            9
2            6            10
3            7            11

oder

Code:

Spalte 1  |  Spalte 2  |  Spalte 3
0            1            2
3            4            5
6            7            8
9            10           11

(ich vermute letzteres).
Dann kannst du anhand der Spaltenzahl und der Anzahl der Einträge berechnen, welchen Index der gewünschte Wert hat.

[taaktaak]

und was ist der tiefere Sinn dieser "Verrenkungen"?

[Tempdir]

Danke für die Hinweise

@DevilsCamp

Also hat jedes Feld einen eigenen Index mit dem ich es direkt ansprechen könnte? Ich muss nur einen Wert ständig ändern, das ist alles. Deswegen extra auf StringGrid oder etwas anderes alles umbauen ist mir momentan zu viel

[Luckie]

Zitat von Tempdir:

Also hat jedes Feld einen eigenen Index mit dem ich es direkt ansprechen könnte?

Kommt drauf an. Wie hast du es denn gescchaft die Splaten in der Listbox zu realisieren?

Wie schon gesagt wurde, ist eine Listbox nicht dafür gedacht auch Spalten darzustellen. Nimm dafür einen Listview.

[DevilsCamp]

Zitat von Tempdir:

Danke für die Hinweise

@DevilsCamp

Also hat jedes Feld einen eigenen Index mit dem ich es direkt ansprechen könnte?

Es ist ja immer noch eine Listbox. Nur halt nicht mit nur einer Spalte sondern mit mehreren.
Ich konnte jetzt mal nachprüfen und die Listbox füllt sich nach Methode 1 aus Post #4

Um es mal mit deinem Beispiel zu erklären:

Code:

...|            X
...|  0          1         2
-------------------------------
  0| 23         41        45
Y 1| 97        678        65
  2| 34         89        89

Code:

Listbox.Items[0] := '23';
Listbox.Items[1] := '97';
Listbox.Items[2] := '34';
Listbox.Items[3] := '41';
Listbox.Items[4] := '678';
Listbox.Items[5] := '89';
Listbox.Items[6] := '45';
Listbox.Items[7] := '65';
Listbox.Items[8] := '89';

Wenn du nun per Code herausfinden willst, welchen Index du für Spalte 3 der zweiten Zeile verwenden musst:

Delphi-Quellcode:

function Form1.CellToIndex(x, y: Integer): Integer; // x und y sind 0-basiert
begin
  Result := x * Listbox1.Columns + y;
end;

procedure Form1.Button1Click(Sender: TObject);
begin
  Listbox1.Items[CellToIndex(2, 1)] := 'Neuer Wert'; // Wert '65' wird zu 'Neuer Wert'
end;

(Wo war die rote Box? )

@Luckie:
Die Listbox hat eine Eigenschaft Columns. Wenn der Wert > 0 ist, dann zeigt die Listbox die Einträge in mehreren Spalten an, wenn die Listbox eine zu geringe Höhe hat um alle anzuzeigen.

[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.

[taaktaak]

verstehe das echt nicht - mit 'nem StringGrid wäre das Thema schon lange ad acta