Einzelnen Beitrag anzeigen

wuchzael

Registriert seit: 14. Sep 2005
Ort: Hessen
5 Beiträge
 
#1

Problem mit mehreren Typen in unterschiedlichen Units!

  Alt 8. Okt 2006, 16:59
Hi!


Ich hab folgendes Problem. Ich erstelle gerade ein KLEINES Spielchen, mit mehreren Units, auf welchen jeweils eine Klasse und deren Routinen drauf sind.

Ausgangspunkt:
http://img145.imageshack.us/img145/9...gspunktrf5.jpg


Delphi-Quellcode:
unit U_Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons,U_Hero, jpeg, ComCtrls, Menus, U_Items;

type
  TForm1 = class(TForm)
    P_Intro: TPanel;
    L_INtro: TLabel;
    [...]
    procedure FormCreate(Sender: TObject);
    [...]
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Hero : THero;
  Trank : TItems;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
 Hero := THero.Create;
 Trank := TItems.Create;
 Hero.HPSpeichern(50);
 Hero.MaxHPSpeichern(200);
 Trank.PunkteSpeichern(50);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Trank.ItemUse;
end;

end.

Delphi-Quellcode:
unit U_Hero;

interface

uses Messages, Dialogs, Sysutils;

type
 THero = class (TObject)
  private
   Lebensenergie : Integer;
   MaxHP : Integer;
  public
   procedure HPSpeichern(Wert : Integer);
   procedure MaxHPSpeichern(Wert : Integer);
   function HPAuslesen : Integer;
 end;


implementation


procedure THero.HPSpeichern(Wert : Integer);
begin
 Lebensenergie := Wert;
end;

procedure THero.MaxHPSpeichern(Wert : Integer);
begin
 MaxHP := Wert;
end;

function THero.HPAuslesen : Integer;
begin
 Result := Lebensenergie;
end;


end.

Delphi-Quellcode:
unit U_Items;

interface


uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ComCtrls, Menus, ExtCtrls, StdCtrls, U_Hero;


type TItems = class (TObject)
     private
      HPReg : Integer;
     public
      procedure PunkteSpeichern(Wert : Integer);
      procedure ItemUse;
end;


var Hero : THero;

implementation

procedure TItems.PunkteSpeichern(Wert : Integer);
begin
 HPReg := Wert;
end;



procedure TItems.ItemUse;
begin
 Hero.HPSpeichern((Hero.HPAusgeben+HPReg));
end;


end.



Also, ich will, dass ich vom Formular aus eine Routine aus U_Item aufrufen kann und diese Routine einen Wert in U_Hero ändert. Man sieht schon, dass das nicht funktionieren kann... ich habe aus Verzweiflung die Variable "Hero : THero" in der U_Items Unit nochmal deklariert, weil "unbekannter Bezeichner (Hero)" als Fehlermeldung kam. Jetzt kennt er zwar "Hero", aber "Hero" wird hier nicht created, also gibts nen Speicherfehler. Und WENN ich "Hero" hier create, dann ist das ein eigener "Hero", der mit dem auf dem Formuler createden nichts zu tun hat. Ich hab einfach vergessen, wie ich das alles verknüpfen muss, dass das so geht, wie ich das möchte


Hoffentlich könnt ihr mir schnell und einfach helfen, bin noch nicht so weit





Grüße!
Alexander
Intel Core 2 Duo E6600 + 2 x 1024 MB DDR2-800 Corsair XMs²
GigaByte 965P-DS4 + ATi Radeon X1950 XTX + 4 x 250GB S-ATA im RAID 10
  Mit Zitat antworten Zitat