Also das mit dem Label klappt nicht so ganz, er schreibt mir dann nur immer den ersten wert rein und sonst nix.
Die Schleife, aus der die Werte stammen sieht folgendermaßen aus:
Delphi-Quellcode:
for q := listbox2.items.count -1 downto 0 do
begin
for r := q -1 downto 0 do
begin
if listbox2.items[q][14] + listbox2.items[q][16] + listbox2.items[q][18] =
listbox2.items[r][14] + listbox2.items[r][16] + listbox2.items[r][18] then
memo1.Lines.add (listbox2.items[q][14] + ' ' + listbox2.items[q][16] + ' ' + listbox2.items[q][18])
end;
end;
die Werte sollen Später nochmal in einem Schaubild verwendet werden.