INI Fragen wie immer

[Tormentor32]

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
var
  Anmeldeini: TFileName;
begin
  Anmeldeini := ExtractFilePath(ParamStr(0)) + 'MyIniFile3.ini';
  with TMemIniFile.Create(Anmeldeini) do
  try
    Edit1.text := ReadString(LOGIN_SECTION, USER_KEY, 'Standard');
    Edit2.Text := ReadString(LOGIN_SECTION, PSWD_KEY, 'Standard');
    UpdateFile;
  finally
    Free;
  end;
end;

Edit: Tag repariert