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