Exception bei Zugriff über FindComponent

[_ny]

Holla

folgendes Stückchen Code hab ich aus Delphi direkt in Lazarus kopiert.

Code: Alles auswählen

q_temp.SQL.Text := ' SELECT * FROM b_maxrabatt ';
  q_temp.Open;
  for i := 1 to 30 do
  begin
    with (FindComponent('l_prgr' + IntToStr(i)) as TLabel) do
    begin
      Caption := 'RG ' + q_temp.FieldByName('prgr').AsString + ' - ' +
        q_temp.FieldByName('rabatt').AsString + '%';
      Hint := q_temp.FieldByName('lieferant').AsString;
      Tag := q_temp.FieldByName('rabatt').AsInteger;
    end;
  q_temp.Next;
  end;

Beim Ausführen erhalte ich aber im "WITH DO"-Bereich die Fehlermeldung EXTERNAL SIGSEV und der Cursor springt zur Controls.Inc in die Funktion TControl.GetText: TCaption, dort auf die Zeile

Code: Alles auswählen

// Check if GetTextBuf is overridden, otherwise
  // we can call RealGetText directly
   if TMethod(@Self.GetTextBuf).Code = Pointer(@TControl.GetTextBuf)

woran liegts, falsch kanns ja theoretisch nicht sein, wenns unter Delphi funktioniert

Danke!

[Christian]

Das entsprechende Label existiert nicht.

[_ny]

schau ich nochma, danke

//E
na ganz toll.. anstatt ner l_prgr17 stand da l_prgr117 ... muss man erstmal entdecken...