Das ist ein Standardcode, den eigentlich jeder mit etwas Erfahrung sofort runterschreibt. So was sieht man ein Mal und vergisst es nicht wieder. Aber die Frage nach "alle gleich" solltest du noch anpassen:
Delphi-Quellcode:
if (listen.count > 0) then
begin
kleinser_wert := listen.items[0].count;
alle_gleich := True;
for i := 1 to listen.count - 1 do
begin
if (listen.items[i].count < kleinster_wert) then
kleinster_wert = listen.items[i].count;
end;
if (listen.items[i].count != kleinster_wert) then
alle_gleich := False;
end;
end;
end
else
Fehler: keine Werte in keine liste vorhanden[/quote]
[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]