Hallo,
ich bin mit OOP noch nicht so vertraut, wollte es aber mal einsetzen.
Also,
ich hab ein Formular mit dazugehörender Unit:

markieren

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit2, ExtCtrls, StdCtrls,wertesetzten;

type
  TForm1 = class(TForm)
  ...
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
 systemmain.Startwerte_setzen;
end;

end.

Und ich hab ne witere Unit ohne Formular, und da will ich Objekte erstellen, auf die ich aus unit1 zugreifen kann. Ich bekomme jedoch Zugriffsverletzungen, wenn ich z.B auf systemmain.zeit zugreife.
Hier die 2. Unit:

markieren

Code:

unit Wertesetzten;

interface
uses Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit2, ExtCtrls, StdCtrls;
type
 Tsystemmain=class
  public
  Zeit,Datum,Jahr:single;
  procedure Startwerte_setzen;
  constructor create(zeitf: single);
end;

 TSpieler=class
  Vermoegen, Schulden, Spielerlevel: single;
  Spielername, Hauptsitz, Unternehmensname: string;
end;

var Spieler: TSpieler;
    Systemmain: TSystemmain;
implementation
uses unit1;
constructor tsystemmain.create(zeitf: single);
begin
 zeit := zeitf;
end;
procedure tsystemmain.startwerte_setzen;
begin
 systemmain.Zeit := 22;
end;
end.

Weiss jemand warum?
Gruß
Spurius

Hallo

du mußt dein Object auch erzeugen und am ende wieder freigeben

markieren

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
 systemmain:=tsystemmain.create;
 systemmain.Startwerte_setzen;
end;

gugg auch mal hier:
http://www.grundlagen.delphi-source.de/pascal/oo.shtml

Mfg Frank

Hallo,
Danke,es geht jetzt.
Gruß
Spurius