Probleme mit Variants

[ratloser]

Also zu obiger Fehlermeldung:

Stehen bleibt er bei Forms in der letzten nachstehend angezeigten Zeile:

Delphi-Quellcode:

procedure TCustomForm.ReadState(Reader: TReader);
var
  NewTextHeight: Integer;
  Scaled: Boolean;
begin
  DisableAlign;
  try
    FClientWidth := 0;
    FClientHeight := 0;
    FTextHeight := 0;
    Scaled := False;
    FOldCreateOrder := not ModuleIsCpp;
    inherited ReadState(Reader);
    if (FPixelsPerInch <> 0) and (FTextHeight > 0) then

[Sidorion]

Geh mal (wenn Du die Quellen hast und mit Debug-DCUs erzeugt hast) mit F7 in inherited rein. Bei Exceptions steht der Cursor meistens NACH der Zeile, die den Fehler verursacht hat. Das Problem liegt also vermutlich im Aufruf der geerbten Methode.