@ Sharky
Delphi-Quellcode:
for y := Form1.Anzeige.count - 1 downto 0 do
begin
for x := 0 to 409 do
begin
if StrToInt(Form1.Anzeige.Items[y]) in werte[x] then
Counte[x] := 0
else
Inc(Counte[x]);
end;
for x := 0 to 409 do
begin
(FindComponent('Label' + IntToStr(x + 2)) as TLabel).Caption :=
IntToStr(Counte[x]);
end;
end;
Bis jetzt lagst Du immer richtig, aber dieses einemal nicht, würdch behaupten.
Ich jetzt ein Diese Zeile so ersetzt und unten natürlich
folgendes rausgelöscht.
Delphi-Quellcode:
for x := 0 to 409 do
begin
(FindComponent('Label' + IntToStr(x + 2)) as TLabel).Caption :=
IntToStr(Counte[x]);
Jetzt sind 5 min rum das Programm rechnet immer noch, glaub ich verzweifle
P.S. Im jetzigen Programm oben und eigenlich auch schon im vorhergehenden Programm waren doch diese anWeisungen getrennt von einnander, dies hat schon einen unheimlichen Leistungsschub gebracht, aber eh bissl fehlt noch