|
Registriert seit: 10. Nov 2008
98 Beiträge
Turbo Delphi für Win32
|
Variable in Shapenamen!
26. Okt 2009, 09:40
Hallo!
ich habe ein Programm mit 100 shapes.
Die Shapes tragen den namen: Feld1, Feld2, Feld3 usw.
jetzt möchte bei allen shapes die Farbe ändern.
dazu habe ich folgenden Denkansatz:
procedure form1.Farbe();
var
I: integer
begin
for I := 1 to 100 do begin
Feld+inttostr(I).brush.color:= clblack;
end;
end;
Weis jemand warum das nicht geht?
Und noch besser: weis wer wie man dieses Problem umgehen kann?
|