Siehe Problem=> Davon habe ich 200 ca. Stück in der Procedure stehen, jedes Steuert ein Label an und ein Bild, hat jemand eine Idee wie ich das vereinfachen kann, Programm wird mit der Zeit immer langsamer?
Delphi-Quellcode:
procedure TForm2.AddMyItem(const AItem: String; const AColor: TColor);
begin
Form1.Anzeige.Items.InsertObject(0, AItem, Pointer(AColor));
Das Problem
Delphi-Quellcode:
begin
Counter := 0;
for c2227 := Form1.Anzeige.count-1 DownTo 0 do
begin
if StrToInt(Form1.Anzeige.Items[c2227]) in [0..21,28..100] then
Inc(Counter)
else if StrToInt(Form1.Anzeige.Items[c2227]) in [22..27] then
Counter := 0 ;
[pre]Form1.Label12.Caption:= IntToStr(Counter) ;
end;
end;////////Hier werden die Daten aus der Listbox gezogen um im Label den Count darzustellen
begin if counter<=c637n Then begin
Form1.Image12.Picture := nil;
Form1.Label12.font.color:=CLgreen;
Form1.Label12.Caption:=''
end;
begin if counter=c637b Then begin
Form1.Image12.Picture.LoadFromFile(PChar(ExtractFilePath(ParamStr(0))) + 'Chipblau.bmp'); //////////die Bilder erscheinen jedesmal
Form1.Label12.font.color:=CLWhite;
end;
begin if counter=c637g Then begin
Form1.Image12.Picture.LoadFromFile(PChar(ExtractFilePath(ParamStr(0))) + 'Chipgelb.bmp');
Form1.Label12.font.color:=CLblack
end else if counter=c637p Then begin
Form1.Image12.Picture.LoadFromFile(PChar(ExtractFilePath(ParamStr(0))) + 'Chippink.bmp');
Form1.Label12.font.color:=CLwhite;///Hier wird dem Label das entsprechende Bild hinzugefügt
end;
end;
end;
end;