Variable wie zusammensetzen?

[Michael Habbe]

Wie Valle schon schrieb, nimm ein Array:

Delphi-Quellcode:

var
  b_arr: Array[4..24] of Boolean;

procedure TForm1.Timer2Timer(Sender: TObject);
var
  i, k: Integer;
begin
  k := 28;
  for i := 4 to 24 do
  begin
    if (TShape(FindComponent('Shape'+IntToStr(i))).Top = TShape(FindComponent('Shape'+IntToStr(k))).Top) and (TShape(FindComponent('Shape'+IntToStr(i))).left = TShape(FindComponent('Shape'+IntToStr(k))).left) then
      b_arr[i] := true // um diesen teil handelt es sich
    else
      b_arr[i] := false; // um diesen teil handelt es sich
  end;
  inc (k);

Gruß
Michael