Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by jbg,
12. Mai 2005
Das kann man umschreiben und damit die versteckte innere Schleife (FindComponent) entfernen.
for i := 0 to ComponentCount - 1 do
begin
if (Components is TLabel) and AnsiStartsText('Label', Components.Name) then
begin
x := StrToInt(Copy(Components.Name, 6, MaxInt));
if (x >= 0) and (x <= 409) then
TLabel(Components).Caption := IntToStr(Counte);
end;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by jbg,
12. Mai 2005
Dumme Frage, aber welcher normaldenkende Mensch soll diese Anzahl an Items denn bitte schön lesen?