Variable wie zusammensetzen?

[htxmlx]

Hallo, ich suche eine Art Befehl der mir folgendes möglich macht...
Ich habe oben in den Variabeln mehrere Boolean-Variabeln angegeben. s4, s5, s6 .. s23, s24
nun will ich diese mittels abfrage auf false oder true setzen.
Es wird überprüft ob eins der shapes 4 bis 24 auf das shape 28 (k) passt, k increased sich nach der abfrage und dann würde auch wieder die abfrage mit for i ... folgen nur dass ka dann 29 wäre, solange bis k 45 ist, dann wird der timer wieder resetet und geht von vorne los.
Meine Frage nun ist ob es möglich ist das ich die Variabeln s4, s5 usw. irgendwie aus i zusammensetzen kann, ich habs unten schonmal versucht, nur dsa ging nicht...

Delphi-Quellcode:

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
begin
('s' + IntToStr (i)) := true; // um diesen teil handelt es sich
end
else
's' + IntToStr (i):= false; // um diesen teil handelt es sich
end;
inc (k);

Gruß, htxmlx

[edit=SirThornberry]Titel geändert - Mfg, SirThornberry[/edit]

[Valle]

Das funktioniert so nicht, da Variablen im Arbeitsspeicher nur als Adressen (sowas hier: 0xEA4F7E) gespeichert werden. In diesem Fall ist ein Array das Richtige!

Mit freundlichen Grüßen,

Valle

[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

[htxmlx]

Manchmal hat man echt nen Brett vorm Kopf, danke nochmal an euch beide..und sry für die eg. dumme Frage...

Gruß, htxmlx