Einzelnen Beitrag anzeigen

Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#7

Re: String in Variablen "umwandeln"

  Alt 26. Feb 2010, 17:18
Vielleicht etwas umständlich, aber es geht.

Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
var
  MyIni: TIniFile;
  i: Integer;
  OptionNames: TStringList;
  OptionValues: array of string; // Enthält die Werte
begin
  // Ini lesen
  MyIni := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'options.ini');
  try
    OptionNames := TStringList.Create;
    try
      // alle Einträge (Namen) unter [option] einlesen und in StringList speichern
      MyIni.ReadSection('option', OptionNames);

      // Werte auslesen und dem Array hinzufügen
      SetLength(OptionValues, OptionNames.Count);
      for i := 0 to OptionNames.Count - 1 do
      begin
        OptionValues[i] := MyIni.ReadString('option', OptionNames[i], '');
      end;
    finally
      FreeAndNil(OptionNames);
    end;
  finally
    FreeAndNil(MyIni);
  end;

  // Sodele, hier sind nun alle Werte im Array

  // Testausgabe:
  for i := Low(OptionValues) to High(OptionValues) do
  begin
    ShowMessage(OptionValues[i]);
  end;
end;
Edit: Du kannst allerdings nicht mehr zuordnen, unter welchem Namen welcher Wert stand. OptionValues[0] enthält beispielsweise den ersten Wert in dem Abschnitt [option].
  Mit Zitat antworten Zitat