Einzelnen Beitrag anzeigen

Dax
(Gast)

n/a Beiträge
 
#2

Re: OOP Problem: kein Zugriff auf Prozeduren

  Alt 1. Nov 2004, 16:23
Das ist kein Wunder, alles in der Klasse ist private.
So müsste es gehen:
Delphi-Quellcode:
type
TObjekt1 = class
  FTyp:String;
  FUsed:Boolean;
  FItems:Array [1..100] of String;
  FName:String;
  FAktion:String;
  FBild:String;
  FX:Integer;
  FY:Integer;
 public
  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;
  Mit Zitat antworten Zitat