Wert von ini Datei lesen und wenn nicht vorhanden dann Exit

[Fussball-Robby]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var MyIniFile : TInifile;
begin
if FileExists('MyIniFile3.ini') then
begin
MyIniFile := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'MyIniFile3.ini');
Edit1.Text := MyIniFile.ReadString('Section1','text1','nicht gefunden')
end
else
begin
//close;
ShowMessage('nicht gefunden ');
MyIniFile.Free;
end;

Was ist das denn? Wenn die Datei existiert, erstellst du die IniFile, wenn sie nicht existiert, gibtst du sie frei? Außerdem solltest du dir angewöhnen, den Code einzurücken:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  MyIniFile: TInifile;
  FName: String;
begin
  FName := ExtractFilePath(ParamStr(0)) + 'MyIniFile3.ini';
  if FileExists(FName) then
  begin
    MyIniFile := TIniFile.Create(FName);
    try
      Edit1.Text := MyIniFile.ReadString('Section1', 'text1', 'nicht gefunden')
    finally
      MyIniFile.Free;
    end;
  end
  else
  begin
    //close;
    ShowMessage('nicht gefunden ');
  end;
end;

[Delphiturbo]

Es ist ok mit dem Code, möchte ich aber noch den Code ändern

wenn die INI-Datei vorhanden ist aber die Zeile text1 nicht da, dann soll das Programm auch beendet werden und nicht eine Meldung zeigen "nicht gefunden"

[Blackheart]

Zitat von Delphiturbo:

Es ist ok mit dem Code, möchte ich aber noch den Code ändern

wenn die INI-Datei vorhanden ist aber die Zeile text1 nicht da, dann soll das Programm auch beendet werden und nicht eine Meldung zeigen "nicht gefunden"

Und wo ist nun dein Problem ?
If IniFile.ReadString(bla then...

[Delphiturbo]

Ich habe jetzt ein anderes Problem

Es wird immer eine neue Zeile in Ini-Datei hinzugefügt !

Delphi-Quellcode:

...
MyIniFile.WriteString('Daten1','Text1', 'blabla');
...

d.h. wenn ich die INI-Datei öffne dann finde ich folgendes :

Delphi-Quellcode:

[Daten]
Text=blabla
[Daten]
Text=blabla
[Daten]
Text=blabla
[Daten]
Text=blabla
...

Wie kann ich die Zeile in ini Datei ersetzen ? Also die alte zuerst löschen
und dann die neue hinschreiben.

[Blackheart]

Normalerweise wird der Wert überschrieben du musst da wohl irgendetwas
verkehrt machen am besten du zeigst mal etwas code.

[SaFu]

Hatte das Problem auch schonmal wenn irgendwo noch ein leerzeichen drin ist wurde es bei mir auch immer wieder neu geschrieben. Raus gemach ging

vielleicht hilfts ja

[DeddyH]

Spätestens beim 2. Anruf sollte der Wert dann aber trotzdem überschrieben werden.

[Deltachaos]

Delphi-Quellcode:

...
MyIniFile.WriteString('Daten1','Text1', 'blabla');
...

d.h. wenn ich die INI-Datei öffne dann finde ich folgendes :

Delphi-Quellcode:

[Daten]
Text=blabla
[Daten]
Text=blabla
[Daten]
Text=blabla
[Daten]
Text=blabla
...

kleine Frage:

Warum steht oben 'Daten1' und unten '[Daten]' dass muss eigentlich dan '[Daten1]'

gibst du den die ini Datei auch wieder frei. nur so ne vermutung.


  inidatei.free;