Listview befüllen

[Vbxler]

Ist die Vorgangsweise wie ich das Listview befülle richtig,
oder gibt es eine schnellere Lösung?

Code: Alles auswählen

procedure TForm1.cmdEinfuegenClick(Sender: TObject);
var
    ListItem: TListItem;
    iZeiger: integer;
    startZeit : dword;
begin
    startZeit := GetTickCount;
    //Daten eintragen
    for iZeiger := 0 to 1000 do
      begin
        ListItem := ListView1.Items.Add;
        ListItem.Caption := 'Item';
        ListItem.SubItems.Add('SubItem_' + IntToStr(iZeiger));
        ListItem.SubItems.Add('SubItem_' + IntToStr(iZeiger));
        ListItem.SubItems.Add('SubItem_' + IntToStr(iZeiger));
        ListItem.SubItems.Add('SubItem_' + IntToStr(iZeiger));
        ListItem.SubItems.Add('SubItem_' + IntToStr(iZeiger));
      end;
 
    ShowMessage(IntToStr(GetTickCount- startZeit));
end;   

Ich frage deshalb, weil dieser Code in Pascal ca. 15-17 Sek. für das eintragen der Daten benötigt,
der Vorgang muesste aber unter 100ms abgeschlossen sein.

Danke für eure Hilfe.

[h-elsner]

Also bei mir dauert das 190ms. Was für einen Rechner hast du denn???
Mit ListView1.BeginnUpdate und ListView1.EndUpdate gekapselt dauert es 120 ms.

Gruß He

[Michl]

Normal dauerts bei mir 125ms. Wenn ich zuvor Listview1.visible auf false setze, nach dem Füllen auf true, sinds nur 63ms!

[Eb]

Dein Code dauert bei mir ohne Veränderungen 55 - 58 ms.
mit vorher unsichtbar machen 38 - 42 ms

Mein PC ist 2 bis 3 Jahre alt und keine Höllenmaschine.
OS: OpenSuse 11.3

Eb

[Vbxler]

Danke für eure Antworten und Hilfstellungen,

mit BeginnUpdate und EndUpdate komme ich auf ein erträglichen Zeitwert
von ca. 125ms und Listview1.visible bringt auch noch einige ms.

[mischi]

Vielleicht übersehe ich ja was, aber wenn der String tatsächlich immer der selbe ist, kann man die mehrfache Erzeugung des String vorziehen:

Code: Alles auswählen

procedure TForm1.cmdEinfuegenClick(Sender: TObject);
var
    ListItem: TListItem;
    iZeiger: integer;
    startZeit: dword;
    subItemText: string;
begin
    startZeit := GetTickCount;
    //Daten eintragen
    for iZeiger := 0 to 1000 do
      begin
        subItemText := 'SubItem_' + IntToStr(iZeiger);
        ListItem := ListView1.Items.Add;
        ListItem.Caption := 'Item';
        ListItem.SubItems.Add(subItemText);
        ListItem.SubItems.Add(subItemText);
        ListItem.SubItems.Add(subItemText);
        ListItem.SubItems.Add(subItemText);
        ListItem.SubItems.Add(subItemText);
      end;
 
    ShowMessage(IntToStr(GetTickCount- startZeit));
end;