Zeile aus INI-Datei lesen

[Tifoso]

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

[Alexander]

Wenn du schon die Unit Inifiles eingebunden hast, dann nutze dir doch auch einfach :gruebl:
Versuch mal:
Ini.Readstring('deine Section', 'dein Key', 'dein Std-Wert');

[Tifoso]

danke schön aber ich habe es oben falsch geschrieben. das Auslesen klappt leider nicht richtig.

ok, das schreiben funktioniert gleich einfach mit:

Delphi-Quellcode:

  
 DelphiIni.WriteString(Section, Key, 'Ausgabe');

ich möchte jetzt aber die erste Zeile meines ini-Files auslesen, was muss nun also bei Section eingeben??
und was hat es mit dem Schlüssel so auf sich?
die Ausgabe ist klar!!

noch eine andere Frage darf ich diese Bedingung so schreiben oder hat jemand eine andere Variante? Das ini-files sollte nur beschrieben werden, wenn die bei den if richtig sind.

Delphi-Quellcode:

  begin
  IF NeuesPassword.Text = NeuesPassword1.Text THEN
  IF AltesPassword.Text = S THEN

  ini := TIniFile.Create('login.Ini');
  ini.WriteString(Selection,Key, NeuesPassword1.Text);
  ini.Free;

  end;

Danke für eure Hilfe.

MFG

[Daniel B]

Zitat von Tifoso:

ich möchte jetzt aber die erste Zeile meines ini-Files auslesen, was muss nun also bei Section eingeben??

Das was in der Ini in den [] steht.

[Section]
Name=Value

[Mirilin]

Vielleicht kann dir dieses Tutorial helfen.

[Alexander]

Ich weiß jetzt nicht mehr ganz was du meinst, aber kuck dir auch mal ReadSections an, damit kannst du alle Section-Namen auslesen...

[Tifoso]

Also, ich erkläre noch einmal mein Problem.

Mit dem Befehl

Delphi-Quellcode:

ini.WriteString('Passwort-Abfrage','Benutzer','1234');
ini.WriteString('Passwort-Abfrage','Administrator','DELPHI');

schreibe ich ja in das ini-file aber wo ich nicht so ganz schlau werde ist bein auslesen des ini-files.
ich möchte jetzt zum Beispiel das Passwort des Benutzer wissen,
was muss ich im Ausgabefeld eingeben damit er mir den String-Wert ausliest??????

P:=ini.ReadString('Passwort-Abfrage','Benutzer',****************); Danke für eure Hilfe

[Daniel B]

Zitat von Tifoso:

P:=ini.ReadString('Passwort-Abfrage','Benutzer',****************);

Das war ja schonmal nicht schlecht, als dritten Parameter musst Du nur nen Standardwert angeben, der übergeben wird, falls das auslesen misslingt.
P:=ini.ReadString('Passwort-Abfrage', 'Benutzer', ''); Wenn das Auslesen nicht klappt, dann wird halt das zurückgeliefert was in den '' steht, in dem Fall also ein Leerstring.
Und falls das auslesen klappt, dann steht in P der gewünschter Wert...

[kongreddgrass]

Hi,
ich glaube das was du meinst wäre das...

Delphi-Quellcode:

var
res: String;
Ini: TIniFile;
i: integer;
begin
ini:=TIniFile.Create('C:MyIni.ini');
try
  res:=ini.ReadString('Section_1', 'Section_2', res);
  if Edit1.Text = res then {Vergleicht den Wert in der Ini-Datei mit dem Edit1-String...wenn stimmts, dann...} 
begin
  Form2.Show;
else {Wenns nicht stimmts, dann...}
ShowMessage('Passwort ist falsch!');
finally
ini.free;

Hoffentlich stimmts

[Tifoso]

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