Zitat von
[TP:
Hawk274]
Delphi-Quellcode:
constructor TTest.Create;
var
i: Integer;
begin
for i := 0 to 4 do
Du hast nach dem Begin ein Inherited vergessen. Ist aber nicht die Ursache für den Fehler:
Zitat:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
Montag.Create;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.Caption := Montag.Taetigkeit[ 0 ];
end;
1) Ich hoffe mal, dass Du nur zu Testzwecken den Anwender nötigst erst auf Button1 und dann auf Button2 zu klicken.
2) Montag musst Du erst einmal erstellen:
Montag.Create;
Montag gibt es nicht, also kannst Du auch nicht auf eine Methode von Montag zugreifen. Also:
Montag := TTest.Create;