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]