TListView - viele Daten - viel Zeit ...

[Marco Steinebach]

... vielleicht ist ja was anderes falsch...

Delphi-Quellcode:

procedure TPostHauptformular.FuelleEintragsliste;
var
  NeueSpalte: TListColumn;
  NeuerEintrag: TListItem;
  i, x: integer;
  s: string;
  breiten: array of integer;
begin
with liEintraege do // normale TListView, style Report
begin
  {Alle (alten) Spalten und ListenItems bereinigen.}
  columns.clear;
  Items.clear;

  {Memo vorhanden?}
  NeueSpalte := Columns.add;
  NeueSpalte.Caption := ' ';
  NeueSpalte.Width := ColumnTextWidth;

  {Versanddatum}
  NeueSpalte := Columns.add;
  NeueSpalte.Caption := 'Datum';
  NeueSpalte.Width := ColumnTextWidth;
  // und noch 4 stück...

  // breiten speichern und auf 0 setzen...
  SetLength (breiten, Columns.Count);
  for i := 0 to columns.count -1 do
  begin
    breiten[i] := columns[i].Width;
    columns[i].width := 0
  end;
  Items.BeginUpdate;
  for i := 0 to se.letzter do
  begin
  with se[i] do
  begin
    NeuerEintrag := Items.Add;
    neuerEintrag.Caption := s;
    NeuerEintrag.SubItems.Add(empfaenger);
    NeuerEintrag.SubItems.Add(inhalt);
    // und noch'n paar...
  end
  end;
  Items.EndUpdate;
  for i := 0 to columns.count -1 do
    columns[i].Width := breiten[i];

end
end; {FuelleEintragsliste}

ja, , ich weiß, ich hätte alles auf Englisch machen sollen... schlechte Angewohnheit...
Hab ich hier irgendwo einen Grundfehler drin...
Viele Grüße
Marfco