ok, danke an alle. das mit dem ini hat geklappt.
habe aber trotzdem noch eine Frage und zwar hab ich ein bisschen ein durcheinander mit if und else, wenn z.B. eine var meherere bedingungen einhalten muss wie in meinem Beispiel, dass der Fall ist.
wie löst ihr profis das am besten??
Delphi-Quellcode:
procedure TPasswordDlg1.OKBtnClick(Sender: TObject);
var ini: TIniFile;
P: string;
begin
ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+
'test.ini');
P:=ini.ReadString('Benutzer','Passwort',P);
IF AltesPassword.Text <> P THEN
IF AltesPassword.Text <> 'Administrator' THEN
ShowMessage('Sie haben das alte Passwort falsch eingegeben');
AltesPassword.Text:='';
IF NeuesPassword.Text <> NeuesPassword1.Text THEN
ShowMessage('Sie haben das neue Passwort falsch eingegeben');
begin
IF NeuesPassword.Text = NeuesPassword1.Text THEN
IF AltesPassword.Text = P THEN
IF AltesPassword.Text = 'Administrator' THEN
ini.WriteString('Benutzer','Passwort',NeuesPassword.Text);
end;
ini.free;
end;
kann mir da vielleicht auch noch jemand auf die Sprünge helfen??
mit freundlichen Grüssen
silvan