Adressverletzung?

[DeddyH]

Es ist die Zeile

Delphi-Quellcode:

fMain.Show;

fMain ist zu diesem Zeitpunkt noch gar nicht erzeugt worden.

[fortuneNext]

Oh man... vielleicht sollte ich mit dem Programmieren aufhören, so unfähig wie ich kann man doch eigentlich garnicht sein! :firejump:
Vielen dank, plötzlich läuft alles perfekt, genau wie ich es mir gedacht hatte xD

Delphi-Quellcode:

procedure Tfload.Load;
var
  Regist: TRegistry;
begin
ProgBar_Load.Position := 60; 
If ParamStr(1) = '' then
begin
  ProgBar_Load.Position := 100;  
  Application.CreateForm(TfMain, fMain);   
  fLoad.Hide;
  fMain.Show;
end
else if StrToInt(ParamStr(1)) > 0 then
begin
  PasswordNumber := 'Password' + ParamStr(1);
  PathNumber := 'Path' + ParamStr(1);
  Regist := TRegistry.Create;
  Regist.RootKey := HKEY_LOCAL_MACHINE;
  Regist.OpenKeyReadOnly('SOFTWARE\FNAG Coorperation\FNAG Secret\1.0');
  RPassword := Regist.ReadString(PasswordNumber);
  Path := Regist.ReadString(PathNumber);
  Regist.CloseKey;
  Regist.Free;
  ProgBar_Load.Position := 100;
  Application.CreateForm(TfPW, fPW);    
  fLoad.Hide;
  fPW.Show;
end;
end;

Ich Create die Formen jetzt einfach nur noch bei Bedarf, unnötig beide zu Createn aber nur eine zu brauchen, oder?
Nochmals danke! :cheer: