Eine Liste so wie ValueListEditor mit mehreren Spalten?

[cruiser]

Eine schöne (wenn auch seltene) sinnvolle Einsatzmöglichkeit für with..do

Delphi-Quellcode:

with ListView1.Add do
begin
  Caption := 'Spalte1';
  SubItems.Add('Spalte2');
  SubItems.Add('Spalte3');
  SubItems.Add('Spalte4');
  SubItems.Add('Spalte5');
end;