Zugriffsverletzung bei Adresse

[hum4n0id3]

Servus.

Erstmals bitte ich um Entschuldigung, falsch ich das Thema falsch reingestellt habe.

Ich schaue mir Delphi an und habe eine Klasse erstellt.

Code:

unit Unit1;

interface

type
  TUser = class
    private
      fName: string;
      procedure SetName(aName: string);
      function GetName(): string;
    public
      property Name: string read GetName write SetName;
  end;

implementation

procedure TUser.SetName(aName: string);
begin
  fName:=aName;
end;

function TUser.GetName(): string;
begin
  GetName:=fName;
end;
end.

Wenn ich die Klasse in SDIMAIN aufrufen möchte, bekomme ich eine "Zugriffsverletzung bei Adresse"-Fehler.

Code:

uses ..., Unit1

...

var
  SDIAppForm: TSDIAppForm;
  User: TUser;

implementation

uses About;

{$R *.dfm}

...

procedure TSDIAppForm.Button1Click(Sender: TObject);
begin
  User.Name:=Edit2.Text; //<-Fehler passiert bereits hier :-(
  //ShowMessage(User.Name);
end;

Also ich habe eine Klasse in Unit1 und möchte das in der SDIMAIN aufrufen.
Was mache ich falsch?

mfg

[Luckie]

Eventuell erst nal mit Create ein Objekt der Klasse erstellen?

[hum4n0id3]

Wunderbar! Danke jetzt funktioniert es.

Ich erlag dem Irrtum das ich es bereits im var-Bereich mit User: TUser; erledigt habe.

Code:

procedure TSDIAppForm.FormCreate(Sender: TObject);
begin
  User:=TUser.Create;
end;

Ich habe das jetzt so gemacht und es funktioniert endlich.

Vielen Dank!

[Bernhard Geyer]

Nur die Controls die du in der IDE per Drag&Drop auf das Formular legst werden automatisch erzeugt.
Alles andere das du in deinem Formular als Member-Variable anlegst musst du selbste erzeugen und i.d.R. auch wieder freigeben.

[DieDolly]

Zitat:

Zitat von hum4n0id3 (Beitrag 1414488)

Wunderbar! Danke jetzt funktioniert es.

Ich erlag dem Irrtum das ich es bereits im var-Bereich mit User: TUser; erledigt habe.

Code:

procedure TSDIAppForm.FormCreate(Sender: TObject);
begin
  User:=TUser.Create;
end;

Ich habe das jetzt so gemacht und es funktioniert endlich.

Vielen Dank!

Vergiss das Freigeben des Objekts mit .Free bei Programmende oder wann immer nötig nicht.

[hum4n0id3]

Danke für die Antworten. Ich werde diese Beherzigen :thumb: