ini file wird nicht erstellt+fehlermeldung bei write string

[marabu]

Hallo Andreas,

schau mal genau hin und vergleiche:

Delphi-Quellcode:

procedure TLogin_Form.xpbtn_loginClick(Sender: TObject);
var
  blEntry      : Boolean;
  fn, sPath    : TFileName;
  Ini          : TMemIniFile;
begin
  blEntry := True;
  sPath := ExtractFilePath(Application.ExeName);

  If (edt_user.Text = '') Or (edt_password.Text = '') Then
  Begin
    MessageDlg('User or Password is Missing!' + #13 + 'Please Insert all Informations!',
               mtError, [mbOk], 0);
    Exit;
  End;

  fn := sPath + 'UserProfiles\' + edt_user.Text + '.ini';

  If not FileExists(fn) Then
  Begin
    Ini := TMemIniFile.Create(fn);
    Ini.WriteString('UserInformation', 'UserName', edt_user.Text);
    Ini.UpdateFile; 
    Ini.Free;
  End;
end;

Grüße vom marabu