Wertezuweisung an Arrays

[Hellcat]

Nein, das hab gleich als erstes überprüft...

ich stell hier noch mal die gesamte Funktion rein, aber da ist viel mit dabei was mit hhl nicht viel zu tun hat

Delphi-Quellcode:

begin
  zaehler := 21;
  for i := 1 to 35 do  {Durchlauf für alle Panels}
    begin                {Initialisierung der einzelnen Variablen}
      HName := '';
      HFarbe := '';
      HZeit := '';
      HSchl := '';
      HHl := '';
      HSnd := '';
      repeat                              {Name}
        HName := HName + Zeile[Zaehler];
        inc (Zaehler);
      until Zeile[Zaehler] = ';';
      inc (Zaehler);
      repeat                             {Zeit}
        HZeit := HZeit + Zeile[Zaehler];
        inc (Zaehler);
      until Zeile[Zaehler] = ';';
      if HZeit = '0' then Hzeit := '';
      inc (Zaehler);
      repeat                               {Farbe}
        HFarbe := HFarbe + Zeile[Zaehler];
        inc (Zaehler);
      until Zeile[Zaehler] = ';';
      HFarbe := IntToHex((StrToInt('$' + HFarbe)),6);
      inc (Zaehler);
      repeat                               {THL}
        Hhl := Hhl + Zeile[Zaehler];
        inc (Zaehler);
      until Zeile[Zaehler] = ';';
      inc (Zaehler);
      repeat                               {Halle offen/zu}
        HSchl := HSchl + Zeile[Zaehler];
        inc (Zaehler);
      until Zeile[Zaehler] = ';';
      inc (Zaehler);
      repeat                               {Beschallung}
        HSnd := HSnd + Zeile[Zaehler];
        inc (Zaehler);
      until Zeile[Zaehler] = '#';
      Zaehler := Zaehler + 2;
        with Application.MainForm.FindComponent('PanLab' + IntToStr(i)) as TLabel do   {Zuweisung Hallenname}
          begin
            caption := HName;
          end;
        with Application.MainForm.FindComponent('PanLabT' + IntToStr(i)) as TLabel do   {Zuweisung Hallenzeit}
          begin
            caption := HZeit;
          end;
        with Application.MainForm.FindComponent ('PanHalle' + InttoStr(i))as TPanel do   {Zuweisung Panelfarbe}
          begin
            Color := StrToInt('$' + HFarbe);
          end;
        if Hhl <> '-1' then BildHL[i] := true;                                   {Zuweisung HL-Bild}
          BildHL[i] := HL (Application.MainForm.FindComponent('HLPan1'+IntToStr(i))as TImage,Mbleft,BildHL[i]);
        if HSchl <> '-1' then BildSchl[i] := true;                               {Zuweisung Schloss-Bild}
          BildSchl[i] := Schloss (Application.Mainform.Findcomponent('SchlPan'+IntToStr(i))as TImage,Mbleft, BildSchl[i]);
        if HSnd <> '-1' then BildSound[i] := true;                                {Zuweisung Beschallung-Bild}
          BildSound[i] := Sound (Application.MainForm.Findcomponent('SndPan'+IntToStr(i))as TImage, Mbleft, BildSound[i]);
    end;
end;