Zwischenzeile in ein ListView einfügen

[mkinzler]

Also bei Delphi 2010 geht es so ( wie du an meinem Screenshot in obigen Beitrag sehen kannst)

[OrNEC]

Code:

ListView1.Items.Insert[0]:='ein';

Code:

ListView1.Items.Insert(0):='ein';

Irgendwie gehen beide nicht :cry:

Bin schon seit 20:00 dran :(

[mkinzler]

Delphi-Quellcode:

var
   ...
   item: TListItem;
   ...
   item := ListView1.Items.Insert(0);
   item.Caption := 'ein';

[OrNEC]

Ach soooooooo ist das :shock:

Aber woher weiß du das? Aus welchem Buch oder welcher HP?

[mkinzler]

Steht doch in der Hilfe bzw. der Codevervollständigung ( Methodenfunktion gibt ein TListItem zurück)

[OrNEC]

Zitat:

Zitat von mkinzler (Beitrag 1033206)

Steht doch in der Hilfe bzw. der Codevervollständigung ( Methodenfunktion gibt ein TListItem zurück)

In meiner Hilfe steht nur die Beschreibung, sogar ohne Beispiele. :gruebel:

Hab jetzt allerdings einen Fehler entdeckt, egal welche Zahl ich in Insert(hier) eingebe, die ListView wird immer von oben bis nach unten gefüllt. Wieso z.B. nicht in der Zeile 4 wenn Insert(4) ist. Außerdem fülle ich nicht in einer Schleife, das heiß, dass immer wenn ich auf den Button klicke nur die entsprechende Zeile gefüllt werden soll und nicht immer alle Zeilen nach einander.

Oder klarer ausgedruckt wieso wird die erste Zeile gefüllt, wenn Insert(4) ist?

Code:

procedure TForm1.Button2Click(Sender: TObject);
var aItem : TListItem;
begin
   aItem := ListView1.Items.Insert(0);
   aItem.Caption := 'ein';
   aItem.SubItems.Add('11');
   aItem.SubItems.Add('22');
end;

[OrNEC]

Ok ich glaube hab das ein bisschen kopiert. Danke euch!

[mkinzler]

Also bei mir funktioniert das

Delphi-Quellcode:

 var item: TListItem;
begin
   ListView1.Items.Insert(1).Caption := 'Drei';
end;

[OrNEC]

Aber wenn man auf den Button das zweite mal klickt wird dann die Insert(i+1) gefüllt, obwohl nur die Insert(i) allein immer wieder gefüllt sein muss.

[mkinzler]

Nein, es wird immer an der selben Position eingefügt. Um das zu zeigen, habe ich den Code von oben etwas angepasst

Delphi-Quellcode:

   ListView1.Items.Insert(1).Caption := TimeToStr( Now);