Hallo!
Die Daten sehen so aus:
Delphi-Quellcode:
TMyEnum = (mnOne, mnTwo);
TMyInfo = record
str1: String;
str2: String;
num : TMyEnum ;
end;
TMyInfos= array of TMyInfo;
Gefüllt wird die ListView dann so:
Delphi-Quellcode:
procedure TMyDlg.fillListView(Infos: TMyInfos; AListView: TListView);
var i: Integer;
newListItem: TListItem;
begin
AListView.Clear;
AListView.Items.BeginUpdate;
for i:=0 to length(Infos)-1 do begin
newListItem := AListView.Items.Add; ;
newListItem.Caption := Infos[i].str1;
newListItem.SubItems.Add(Infos[i].str2);
if (Infos[i].num=mnOne) then begin
newListItem.SubItems.Add('One');
newListItem.Checked := true;
end else begin
newListItem.SubItems.Add('Two');
newListItem.Checked := false;
end;
end;
AListView.Items.EndUpdate;
end;
Ist der Code vielleicht zu kompliziert? Mir fällt allerdings nicht ein, was man großartig anders machen könnte...