Hallo!
Ich habe ein
OOP Problem!
Mein Code sieht so aus:
Delphi-Quellcode:
unit objekte;
interface
type
TObjekt1 =
class
FTyp:
String;
FUsed:Boolean;
FItems:
Array [1..100]
of String;
FName:
String;
FAktion:
String;
FBild:
String;
FX:Integer;
FY:Integer;
procedure WriteTyp(Variable:
String);
procedure WriteUsed(Variable:Boolean);
procedure WriteItem(Item:
String; Position:Integer);
procedure WriteName(
Name:
String);
procedure WriteAktion(Aktion:
String);
procedure WriteBild(Bild:
String);
procedure WriteX(x:integer);
procedure WriteY(y:Integer);
function GetTyp:
String;
function GetUsed:Boolean;
function GetItem(position:integer):
String;
function GetName:
String;
function GetAktion:
String;
function GetBild:
String;
function GetX:Integer;
function GetY:Integer;
property Typ :
String Read FTyp
Write FTyp;
end;
implementation
// Prozeduren und Funktionen der Klasse "Objekt1"
procedure TObjekt1.WriteTyp(Variable:
String);
begin
FTyp:=Variable;
end;
procedure TObjekt1.WriteUsed(Variable:Boolean);
begin
FUsed:=Variable;
end;
procedure TObjekt1.WriteItem(Item:
String; Position:Integer);
begin
FItems[Position]:=Item;
end;
procedure TObjekt1.WriteName(
Name:
String);
begin
FName:=Name;
end;
procedure TObjekt1.WriteAktion(Aktion:
String);
begin
FAktion:=Aktion;
end;
procedure TOBjekt1.WriteBild(Bild:
String);
begin
FBild:=Bild;
end;
procedure TObjekt1.WriteX(x:Integer);
begin
FX:=x;
end;
procedure TObjekt1.WriteY(y:Integer);
begin
FY:=y;
end;
function TObjekt1.GetTyp:
String;
begin
result:=FTyp;
end;
function TObjekt1.GetUsed:Boolean;
begin
result:=FUsed;
end;
function TOBjekt1.GetItem(position:Integer):
String;
begin
result:= FItems[position];
end;
function TObjekt1.GetName:
String;
begin
result:=FName;
end;
function TObjekt1.GetAktion:
String;
begin
result:=FAktion;
end;
function TObjekt1.GetBild:
String;
begin
result:=FBild;
end;
function TObjekt1.GetX:Integer;
begin
result:=FX;
end;
function TObjekt1.GetY:Integer;
begin
result:=FY;
end;
end.
Ich kann nicht z.B von einem Button aus nicht auf die Prozeduren zugreifen.
Wie kann ich dafür sorgen, dass dies möglich wird?
PS: auf den Property "Typ" kann ich auch nicht zugreifen!