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

[SaFu]

Was soll den dieses standard bedeuten???

[DeddyH]

Das ist ein Vorgabewert, wenn kein anderer ermittelt werden konnte (weil es z.B. die Ini noch gar nicht gab).

[SaFu]

Und was könnte da z.b im welchem fall noch stehen

sorry wegen den dummen fragen aber wie gesagt arbeite mich gerade in das thema rein

[Tormentor32]

Es doch wirklich nicht so schwer mal in die Hilfe zu gucken oder?

Zitat von Delphihilfe:

Klasse
TIniFile

Syntax


 function ReadString(const Section: string; const Ident: string; const Default: string): string; override;
Beschreibung
ReadString liest einen String-Wert aus einer INI-Datei. Der String Section bezeichnet den Abschnitt, der den zum Wert gehörigen Schlüssel enthält. Der String Ident ist der Name des Schlüssels mit dem Wert. Default ist der Standardwert, der in den folgenden Situationen zurückgeliefert wird:

Der Abschnitt ist nicht vorhanden.

Der Schlüssel existiert nicht.

Dem Schlüssel ist kein Datenwert zugeordnet.

[DeddyH]

Du gibst da einen Initialwert ein, der Dir selbst sinnvoll erscheint.

[SaFu]

hab doch nochmal ne Frage

ich starte ein timer und der wert wird in der ini gepeichert und zwar so

Delphi-Quellcode:

//============Durschlauf starten================================================
procedure TForm4.Button2Click(Sender: TObject);
var
  durchlauf: TFileName;
begin
  durchlauf := ExtractFilePath(ParamStr(0)) + 'EinstellungBilder.ini';
  with TMemIniFile.Create(durchlauf) do
  try
    WriteBool(Einstellung,ja,True);

    UpdateFile;
  finally
    Free;
  end;

  Timer2.Enabled:= True;
  index:= 0; //Index auf "0" setzen
end;

wie wird jetzt aber der letzte eingegebe wert wieder geladen oder mach ich da was falsch

Laden wolte ich unter form show

Delphi-Quellcode:

procedure TForm4.FormShow(Sender: TObject);
var i :integer;
      durchlauf: TFileName;
begin
  durchlauf := ExtractFilePath(ParamStr(0)) + 'MyIniFile3.ini';
  with TMemIniFile.Create(durchlauf) do
  try
    Timer2.Enabled:= (Einstellung,): Boolean // hier weis ich jetzt nicht mehr
    
    UpdateFile;
  finally
     Free;
  end;
end;

[SaFu]

ok hab es jetzt weiter geschaft

Delphi-Quellcode:

procedure TForm4.FormShow(Sender: TObject);
var i :integer;
      durchlauf: TFileName;
begin
  durchlauf := (ExtractFilePath(ParamStr(0)) + 'EinstellungBilder.ini');
  with TMemIniFile.Create(durchlauf) do
  try
    Timer2.Enabled:= ReadBool(Einstellung, ja_nein,);aber was muss hir rein das es variabel ist also True oder False
    UpdateFile;
  finally
    Free;
  end;

[SaFu]

ok jetzt weis ich warum mir keiner helfen wolte hab es jetzt trotzdem danke

aber die letzte Frage danach nerv ich nicht mehr

Wie mache ich das von einer anderen Form aus z.b das ich den timer von der Form4 uber Form1 starte

Delphi-Quellcode:

procedure TForm1.einstellungenf4;
Var durchlauf: TFileName;
begin
  durchlauf := (ExtractFilePath(ParamStr(0)) + 'EinstellungBilder.ini');
  with TMemIniFile.Create(durchlauf) do
  try
    Form4.Timer2.Enabled:= ReadBool(Einstellung, ja_nein, Form4.Timer2.Enabled);
    UpdateFile;
  finally
    Free;
  end;
end;

[DeddyH]

Naja, nicht helfen wollen und das Problem nicht sehen sind 2 verschiedene Dinge