Identifier idents no number: Control by Name

[Bauer321]

Abend..

irgendwie will der nicht so wic hich und soickt mi an dieser stelle immer nen fehler aus:

Code: Alles auswählen

for temp := 1 to 24 do
  begin
  if temp < 11 then temp1 := '0' + inttostr(temp-1);
  if temp > 10 then temp1 := inttostr(temp-1);
  VObject := Page1.ControlByName('p_shortcut'+string(temp1));
  if VObject = nil then continue;
  if not(VObject is TImage) then continue;
  (VObject as TImage).Picture.loadfromfile(picture[temp-1]);
  end;

[MmVisual]

Code: Alles auswählen

procedure TForm1.Button1Click(Sender: TObject);
Var i: Integer;
    o: TObject;
begin
  For i := 0 To 23 Do
  Begin
    o := FindChildControl('p_shortcut' + FormatFloat('00', i));
    If Assigned(o) And (o Is TImage) Then
    Begin
      If FileExists(picture[i]) Then
        TImage(o).Picture.loadfromfile(picture[i]);
    end;
  end;
end;

wenns gscheit programiersch dann duet des au