Hi Leute!
Folgendes Problem: Ich hab 35 Panels, von denen bestimmte Eigenschaften an eine Funktion übergeben werden sollen. Mein Problem ist nur, daß ich keinen blassen Schimmer habe wie ich es hinkriege daß für die Panels 1 bis 35 jedes Mal die entsprechende Eigenschaft rausgreift.
Delphi-Quellcode:
procedure TForm1.Speichern1Click(Sender: TObject);//Menüpunkt "Speichern"
var i: integer;
begin
for i := 1 to 35 do
begin
speichern('PanHalle'+IntToStr(i)+'.caption','PanHalle'+IntToStr(i)+
'T'+'.caption', IntToHex(Strtoint('PanHalle'+IntToStr(i)+'.Color'),6),
StrToBool('bildTHL'+IntToStr(i)),StrToBool('bildSchl'+IntToStr(i)),
StrToBool('bildSound'+IntToStr(i)));
end;
end;
Was ich da gecoded habe ist der größte Schwachsinn, denn in dem Fall würde beispielsweise nicht die entsprechende Caption des Panels 1 speichern sondern immer nur 'PanHalle1.caption'...und das ist nun wirklich nicht im Sinne des Erfinders
Hier noch mal der Code für die aufgerufene Prozedur:
procedure speichern (Hname, Zeit, HFarbe: string; Schl, THL, Sound:boolean);