FindComponent mit verschiedenen Variablen in einer Schleife?

[Hallo_Thomas]

Ich wollte eine Schleife machen um nicht unendlich viele Befehle zu schreiben und so wollte ich sie zusammenfassen was mir aber nicht gelungen ist
ich habs auch mal mit :

Delphi-Quellcode:

var
counter:array[0..10] of Integer

probiert aber da wollte meine ausgeschriebenen Variablen counte0 bzw. counte1 nicht erkennen




Ohne Schleife siehts so aus

Delphi-Quellcode:

begin if counter0<=c437n Then begin
  Form1.Label1192.Caption:='';
end; 
begin if counter1<=c437n Then begin
  Form1.Label1193.Caption:='';
end;
[...]

So sah einer der unendlichen Versuche aus

Delphi-Quellcode:

begin
      for i:=192 to 201 do
      for x:=0 to 10 do
      if counter(x)<=c437n Then///////nun meint er hier Fehle ein Operator oder ein;
        begin
        (FindComponent('Label'+IntToStr(i)) as TLabel).Caption:='';

[Sharky]

Hai,

auf ein Array greifst Du nicht mit counter() zu sondern mit counter[].
Das dürfte die Fehlermeldung verusachen.

[DP-Maintenance]

Dieses Thema wurde von "Sharky" von "Programmieren allgemein" nach "Object-Pascal / Delphi-Language" verschoben.
Ist doch ne Delphi-Frage ;-)

[Hallo_Thomas]

@Sharky Hast ja recht, jetzt weis ich warum ich in dieser Nacht mit Array herumexperementiert habe:

Delphi-Quellcode:

var 
counter:array[0..10] of Integer

Da ist dann mein Problem das die ausgegriebenen Variablen Counter0,Counter1
als undefiniert beschrieben werden

Delphi-Quellcode:

begin
      if StrToInt(Form1.Anzeige.Items[pl0]) in [0,10,20,30] then
      Counter0 := 0
      else Inc(Counte0) ;
      if StrToInt(Form1.Anzeige.Items[pl0]) in [1,11,21,31] then
      Counter1 := 0

Wenn ich die Array Befehle anwende, wie schreibe ich den dann, damit counter0 erkannt wird?

[jim_raynor]

So würde ich es machen:

Delphi-Quellcode:

for i:=0 to 10 do
begin
  if StrToInt(Form1.Anzeige.Items[pl0]) mod 10)=0 then 
    Counter[i] := 0 
  else 
    Inc(Counter[i]) ; 
end;

Zur Info: mod ist der Rest einer Division. also 10 mod 10 ergibt 0, 11 mod 10 ergibt 1 usw.