Positionen mehrerer TImage speichern

[Die Muhkuh]

Hallo Heike,

kannst du mal überprüfen, ob Image <> nil ist?

Delphi-Quellcode:

  try
    for I := 0 to 29 do   // Das sind 30 Images
    begin
      Image := (FindComponent('Image' + IntToStr(I)) as TImage);
      if Image = nil then
        raise Exception.Create('Image ist nil');
      Ini.WriteInteger('Image' + IntToStr(I), 'Left', Image.Left);
      Ini.WriteInteger('Image' + IntToStr(I), 'Top', Image.Top);
    end;
  finally
    Ini.Free;
  end;