Fórum DELPHI - Adicionar dados em comum de 3 listbox em um quarto listbox #605561

Boa noite,

Conseguiu fazer desta forma, agora com este exemplo você pode adpatar, blz..

segue código:


procedure TForm1.Button1Click(Sender: TObject);
var
TempList: TStringList;
OutPutList: TStringList;
CurrentNumber: string;
CurrentNumberCount: Integer;
I: Integer;

begin
TempList := TStringList.Create;
// Copiamos la lista del TListBox a una temporal
TempList.Assign(ListBox4.Items);
// Ordenamos la lista para hacer más fácil el conteo
TempList.Sort;
OutPutList := TStringList.Create;
// Inicializamos la variable para obtener el primer número
CurrentNumber := '';
for I := 0 to Pred(TempList.Count) do
begin
if CurrentNumber <> TempList[i] then
begin
if CurrentNumber <> '' then
OutPutList.Add(Format('número %s hay %d repeticiones', [CurrentNumber, CurrentNumberCount]));
CurrentNumber := TempList[i];
CurrentNumberCount := 1
end
else
Inc(CurrentNumberCount)
end;

Memo1.Lines.Clear;
Memo1.Lines.Assign(OutPutList);

end;