ich habe folgendes Problem, möchte aus einer INI-Datei einegwisse Zeile lesen um z.B. ein Passwort zu überprüfen.
bin noch ein anfänger darum entschuldigt die Frage!
Das Einlesen klappt aber beim Auslesen aus dem INI wird immer der INI-Eintrag gelöscht.
Delphi-Quellcode:
procedure TPasswordDlg1.OKBtnClick(Sender: TObject);
var F: TextFile;
S: string;
PWString: String;
PWlst:TStringList;
ini: TIniFile;
begin
AssignFile(F, 'login.ini');
// Datei auswählen
Reset(F);
Readln(F, S);
// Erste Zeile der Datei lesen
CloseFile(F);
PWString:=NeuesPassword1.Text;
PWlst:=TStringList.Create;
IF AltesPassword.Text <> S 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 = S THEN
PWString:=NeuesPassword1.Text;
PWlst:=TStringList.Create;
PWlst.Add(PWString);
PWlst.SaveToFile('login.ini');
PWlst.Free;
end;
end;
kann mir bitte jemand helfen???
mfg
P.S: Die Verschlüsselung des Passworts folgt später