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 ListBox ListView? (https://www.delphipraxis.net/93496-listbox-listview.html)

Tommy1988 6. Jun 2007 20:17


ListBox ListView?
 
Hallo, folgender Code setzt ein Paar Werte in eine ListBox ein:
Delphi-Quellcode:
  ListBox.Items.Clear;
  for i := 1 to 10 do
  begin
    p := ini.ReadInteger('high','sc'+IntToStr(i),0);
    s := ini.ReadString('high','na'+IntToStr(i),'Nobody');
    ListBox.Items.Add(FormatFloat('00',i)
    +'. '+FormatFloat('0000',p)+' - '+s);
  end;
Jetzt hatte ich versucht, das ganze so umzuändern:
Delphi-Quellcode:
  ListView1.Items.Clear;
  for i := 1 to 10 do
  begin
    p := ini.ReadInteger('high','sc'+IntToStr(i),0);
    s := ini.ReadString('high','na'+IntToStr(i),'Nobody');
    ListView1.Items.Add(FormatFloat('00',i)
    +'. '+FormatFloat('0000',p)+' - '+s);
  end;
  ini.Free;
end;
Leider sind es zuviele Parameter für das ListView.. wie kann ich trotzdem
diese Werte (i, p, s) in die Columns des ListViews einsetzen?

Matze 6. Jun 2007 20:20

Re: ListBox ListView?
 
Das Hinzufügen von Items einer TListView geht so:

Delphi-Quellcode:
Item: TListItem;

...

Item := ListView1.Items.Add;
Item.Caption := '...';

Tommy1988 6. Jun 2007 20:29

Re: ListBox ListView?
 
Ok, das hat ja jetzt geklappt, nur wo ich noch dran verzweifele ist es,
das in 3 columns unterzubringen.

denn wenn ich listview1.column[0] nehme da.. da gibt es nix wie ad oder ähnliches.

Matze 6. Jun 2007 20:30

Re: ListBox ListView?
 
Einträge und Spalten hinzufügen geht so:

Delphi-Quellcode:
var
  Item: TListItem;
  Column: TListColumn;
begin
  // Spalte 1
  Column := ListView1.Columns.Add;
  Column.Width := 150;
  Column.Caption := 'Spalte 1';

  // Spalte 2
  Column := ListView1.Columns.Add;
  Column.Width := 150;
  Column.Caption := 'Spalte 2';

  // Spalte 3
  Column := ListView1.Columns.Add;
  Column.Width := 150;
  Column.Caption := 'Spalte 3';

  // Einträge
  Item := ListView1.Items.Add;
  Item.Caption := 'BlaBla';
  Item.SubItems.Add('Blubb');
  Item.SubItems.Add('Foo');
end;
Aber das verrät dir sicher auch die Delphi-Hilfe und in der DP gibt's zahlreiche Beispiele zur ListView. Also bitte bemühe zukünftig die Suche.


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:47 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