ListBox

[galoru]

nabend, brauche hilfe bei delphi mit den listboxen. ich habe eine listbox erstellt und die quadratzahlen von 1- 20 ausgegeben. diese zahlen werden orthogonal herausgegeben. nun möchte die ausgangszahlen selbst, die quadriert werden (1,2,3...20) rechts von den quadratzahlen ausgeben, ohne dass, ich eine neue listbox aufmachen muss. wie schreibe ich dies nun im quelltext?

dankööö

[DeddyH]

Du willst also quasi 2 Werte in einem Item ausgeben?

[galoru]

wenn mit item die listbox gemeint ist, dann ja ^^

PS:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
Listbox1.Clear;
ListBox1.Items.Add('x²');

For i:=1 to 20 do
ListBox1.Items.Add(inttostr(i*i));

Listbox1.items.Add('x');
for i:=1 to 20 do
Listbox1.items.Add(inttostr(i));
 end;

   end.

[Luckie]

Eine Listbox kennt keine Spalten. Ein Listview wäre hier wohl besser geeignet.

[DeddyH]

Mit Item ist eine "Zeile" der Listbox gemeint. Wenn man Logik und Darstellung trennt, sich eine kleine Klasse baut und die Instanzen dieser Klasse im jeweiligen Item hinterlegt, ist das relativ einfach. Nur die Darstellung ist ggf. nich so dolle.

[galoru]

danke für die schnellen tipps, werde mich mal mit Listview befassen.

so far...

[Impulz]

schau dich vllt nach den suchbegriffen um: listview.col,listview.row und listview.cells

grüße

[Coffeecoder]

Hi,

in diesem Fall könntest du auch einen Stringgrid benutzen.

[Aphton]

Warum so kompliziert; sein Vorhaben lässt sich so bewerkstelligen:

Delphi-Quellcode:

  For i:=1 to 20 do
    ListBox1.Items.Add(inttostr(i) + '² = ' + inttostr(i*i));

Edit: In diesem Fall ist es links (find ich besser), aber ich schätze mal du kommst locker drauf, wie das ganze auszusehen hat, wenn du es rechts haben willst.

[Luckie]

Zitat:

Zitat von Impulz (Beitrag 1141286)

schau dich vllt nach den suchbegriffen um: listview.col,listview.row und listview.cells

Mit den Suchbegriffen dürftest du ihn ziemlich in die Irre führen. Ein Listview kennt die von dir genannten Eigenschaften nicht, dafür aber ein StringGrid.

Zitat:

Zitat von Aphton (Beitrag 1141291)

Warum so kompliziert; sein Vorhaben lässt sich so bewerkstelligen:

Delphi-Quellcode:

  For i:=1 to 20 do
    ListBox1.Items.Add(inttostr(i) + '² = ' + inttostr(i*i));

Ist zwar einfach, aber es dürfte nicht sehr schön aussehen.

[Impulz]

Mist... das tut mir leid...

arbeite gerade mit beiden parallel und habs durcheinander gebracht, SORRY :oops::oops:!
dann halt das item add und SubItem Add

[Andreas L.]

Zitat:

Zitat von Aphton (Beitrag 1141291)

Delphi-Quellcode:

  For i:=1 to 20 do
    ListBox1.Items.Add(inttostr(i) + '² = ' + inttostr(i*i));

Statt dem = könnte man auch einen Tab (#9) verwenden, dann siehts ein bisschen besser aus.

Aber eine TListView wäre tatsächlich besser geeignet. Beispiel:

Delphi-Quellcode:

var
  Item: TListItem;
begin
  for i := 0 to 20 do
  begin
    Item := ListView1.Items.Add;
    Item.Caption = 'Erste Spalte';
    Item.SubItems.Add('Zweite Spalte');
  end;
end;

Zu vor müssen im Objekt-Inspektor oder im Code 2 Spalten erstellt werden und der Style auf vsReport umgestellt werden.