TObjectList als Result

**Kuehter**

Habe ein kleines Programm geschrieben das eine TObjectList als REsult nehmen soll nur jedes mal wenn ich den Button drücke hat er mir fehler raus das er auf bestimmte speicher nicht zugreifen kann oder das da was nicht stimmt.
bitte um hilfe

zusammenfalten · markieren

Delphi-Quellcode:

			
interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls, Contnrs, JPeg;

type

  TForm1 = class(TForm)

    Image1: TImage;

    Image2: TImage;

    Image3: TImage;

    Image4: TImage;

    Image5: TImage;

    Image6: TImage;

    Image7: TImage;

    Allrounder : TImage;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

    function imageloader : TObjectList;

  private

    { Private-Deklarationen }

  public

    { Public-Deklarationen }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.imageloader: TObjectList;

begin

    Result.Create;

    Result.Add(Image1);

    Result.Add(Image2);

    Result.Add(Image3);

    Result.Add(Image4);

    Result.Add(Image5);

    Result.Add(Image6);

    Result.Add(Image7);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

    MyList: TObjectlist;

    counter : integer;

begin

    Mylist := ImageLoader;

    Allrounder := TImage(Imageloader.Items[5]);

    Allrounder.Picture.LoadFromFile('Unbenannt.jpg');

end;

end.

TObjectList als Result

TObjectList als Result

Forumregeln