permutaciones

[ecfisa]

Hola danielmj.

Los valores los recibis en un TStringList y de que modo los vuelques en el TListView, dependerá de como lo tengas configurado y la estructura le hayas dado. Al desconocer esto último lo mejor que puedo hacer es darte un ejemplo genérico:

Código Delphi [-]
procedure TForm1.btnLoadClick(Sender: TObject);
var
  TS: TStrings;
  li: TListItem;
  i : Integer;
begin
  ListView1.ViewStyle := vsList;
  TS := TStringList.Create;
  ListView1.Items.BeginUpdate;
  try
    combinatoria([0,1,2,3,4,5], TS);
    for i := 0 to TS.Count-1 do
    begin
      li := ListView1.Items.Add;
      li.Caption := TS[i];
    end;
  finally
    TS.Free;
    ListView1.Items.EndUpdate;
  end;
end;

Que produce esta salida:


Saludos