Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Aus listbox mit mehreren Felder bestimmtes Feld ändern (https://www.delphipraxis.net/131072-aus-listbox-mit-mehreren-felder-bestimmtes-feld-aendern.html)

Tempdir 18. Mär 2009 11:25


Aus listbox mit mehreren Felder bestimmtes Feld ändern
 
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 18. Mär 2009 11:31

Re: Aus listbox mit mehreren Felder bestimmtes Feld ändern
 
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 18. Mär 2009 12:38

Re: Aus listbox mit mehreren Felder bestimmtes Feld ändern
 
... oder ein StringGrid (ohne fixe Spalte/Zeile, Linien deaktiviert) - das schaut dann genau wie eine Listbox aus.

DevilsCamp 18. Mär 2009 13:20

Re: Aus listbox mit mehreren Felder bestimmtes Feld ändern
 
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 18. Mär 2009 14:03

Re: Aus listbox mit mehreren Felder bestimmtes Feld ändern
 
und was ist der tiefere Sinn dieser "Verrenkungen"?

Tempdir 18. Mär 2009 16:31

Re: Aus listbox mit mehreren Felder bestimmtes Feld ändern
 
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 18. Mär 2009 19:09

Re: Aus listbox mit mehreren Felder bestimmtes Feld ändern
 
Zitat:

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 18. Mär 2009 19:11

Re: Aus listbox mit mehreren Felder bestimmtes Feld ändern
 
Zitat:

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? :shock: )

@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 19. Mär 2009 08:41

Re: Aus listbox mit mehreren Felder bestimmtes Feld ändern
 
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 19. Mär 2009 08:46

Re: Aus listbox mit mehreren Felder bestimmtes Feld ändern
 
:roll: verstehe das echt nicht - mit 'nem StringGrid wäre das Thema schon lange ad acta

DevilsCamp 19. Mär 2009 09:04

Re: Aus listbox mit mehreren Felder bestimmtes Feld ändern
 
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 19. Mär 2009 09:11

Re: Aus listbox mit mehreren Felder bestimmtes Feld ändern
 
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 19. Mär 2009 09:33

Re: Aus listbox mit mehreren Felder bestimmtes Feld ändern
 
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 19. Mär 2009 09:37

Re: Aus listbox mit mehreren Felder bestimmtes Feld ändern
 
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 19. Mär 2009 09:47

Re: Aus listbox mit mehreren Felder bestimmtes Feld ändern
 
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 19. Mär 2009 09:52

Re: Aus listbox mit mehreren Felder bestimmtes Feld ändern
 
genau, zugreifen geht mit diesem Befehl. Leider kann man ihn nicht zum schreiben benutzen ;)

DevilsCamp 19. Mär 2009 09:55

Re: Aus listbox mit mehreren Felder bestimmtes Feld ändern
 
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 19. Mär 2009 10:04

Re: Aus listbox mit mehreren Felder bestimmtes Feld ändern
 
ja :) Ich schätze mal dahinter steckt sowas ähnliches wie deine Idee.

DevilsCamp 19. Mär 2009 10:17

Re: Aus listbox mit mehreren Felder bestimmtes Feld ändern
 
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.


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:47 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz