Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Werte aus Listbox herausschr. horizontal ordnen [gelöst] (https://www.delphipraxis.net/122310-werte-aus-listbox-herausschr-horizontal-ordnen-%5Bgeloest%5D.html)

Ginko 13. Okt 2008 18:15


Werte aus Listbox herausschr. horizontal ordnen [gelöst]
 
Hallo, gibt es eine Möglichkeit, Werte die ich aus einer Listbox mit einer Schleife ausgelesen habe, so auzugeben,
dass sie nebeneinander angeordnet werden und nicht wie bei der Memobox untereinander?

Mr_G 13. Okt 2008 18:20

Re: Werte aus einer Listbox herausschr. und horizontal ordne
 
Es ibt viele Möglichkeiten. Du könntest einfach die Werte hintereinander hängen und in einem Label ausgeben oder ein Stringgrid benutzen.
Aber was hast du denn hinterher damit vor?

Ginko 13. Okt 2008 18:36

Re: Werte aus einer Listbox herausschr. und horizontal ordne
 
Also das mit dem Label klappt nicht so ganz, er schreibt mir dann nur immer den ersten wert rein und sonst nix.
Die Schleife, aus der die Werte stammen sieht folgendermaßen aus:

Delphi-Quellcode:
   for q := listbox2.items.count -1 downto 0 do
   begin
     for r := q -1 downto 0  do
       begin
       if listbox2.items[q][14] + listbox2.items[q][16] + listbox2.items[q][18] =
          listbox2.items[r][14] + listbox2.items[r][16] + listbox2.items[r][18] then
          memo1.Lines.add (listbox2.items[q][14] + ' ' + listbox2.items[q][16] + ' ' + listbox2.items[q][18])
       end;
   end;
die Werte sollen Später nochmal in einem Schaubild verwendet werden.

Ginko 14. Okt 2008 11:39

Re: Werte aus Listbox herausschr. horizontal ordnen [gelöst]
 
So habe es mit nem StringGrid gelöst
Delphi-Quellcode:
stringgrid1.Rows[0].Add


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:34 Uhr.

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