Klassenaufruf führt zum Absturz

[phate2613]

Hallo,
ich habe in meinem Hauptprogramm eine Klasse definiert (type settings=class ...), welche ich im Hauptprogramm auch wunderbar aufrufen kann. Nun habe ich aber ein zweites Form und will die Klasse fort auch aufrufen, aber das Programm stürzt nur mit einer Zugriffsverletzung ab. Wer weiß weiter?

MfG Phate

[mkinzler]

Zeig mal den genauen Code

[phate2613]

Im Hauptprogramm definiert:

type
TSettings = class
private
FSettingsDatei: File of Einstellung;
FProfilname: String;
FVokabelAnzahl: Integer;
FBibliothekspfad: String;
procedure SetzeProfilName(Eingabe: String);
public
constructor Create;
property Profilname: string read FProfilname write SetzeProfilName;
property VokabelAnzahl: Integer read FVokabelAnzahl;
procedure EinstellungenAendern(Pname, Bpfad: String; Vanzahl: Integer);
end;


Und aufgerufen wir aus einem zweiten Fenster:

procedure TFensterEinstellungen.FormShow(Sender: TObject);
begin
Settings.Create; hier stürzt er ab
AnzahlVokabelnEdit.Text := IntToStr(Settings.VokabelAnzahl);
end;

[mkinzler]

Delphi-Quellcode:

Settings := TSettings.Create;

[Dunkel]

Hallo!

Ein Konstruktor gibt eine Klasseninstanz zurück, diese musst Du benutzen. In etwa so:

Delphi-Quellcode:

procedure TFensterEinstellungen.FormShow(Sender: TObject);
var
  mySetting: TSettings;
begin
  mySettings := TSettings.Create; hier stürzt er ab
  AnzahlVokabelnEdit.Text := IntToStr(mySettings.VokabelAnzahl);
  mySettings.Free();
end;

[phate2613]

danke für die schnelle antwort.
manchmal scheitert man doch an den einfachsten dingen :-D