Code: Alles auswählen
//Laden einer INI-/Conf-Datei
ValEdIni.Strings.LoadFromFile(IniPfad+'ORC'+ext); //klappt, Inhalt erscheint im Fenster, schön mit zwei Spalten
Code: Alles auswählen
ValEdIni.SaveToFile(IniPfad+'ORC'+ext);
Code: Alles auswählen
//Laden einer INI-/Conf-Datei
ValEdIni.Strings.LoadFromFile(IniPfad+'ORC'+ext); //klappt, Inhalt erscheint im Fenster, schön mit zwei Spalten
Code: Alles auswählen
ValEdIni.SaveToFile(IniPfad+'ORC'+ext);
wie wäre es mit ValEdIni.Strings.SaveToFile(IniPfad+'ORC'+ext);and4more hat geschrieben:Hallo liebes Forum, habe lange gegoogelt aber leider nichts Passendes finden können. Leider befassen sich auch Bücher kaum bis gar nicht mit TValueListEditor. Aber vielleicht kennt sich ja einer gut damit aus?!? Zum Editieren eine Ini-Datei habe ich eine kleine Form, in der nur die TValueListEditor-Komponente und oben noch eine Menüleiste ist. Aktuell versuche ich Folgendes:wenn ich aber nach durchgeführten Änderungen Folgendes versuche:Code: Alles auswählen
//Laden einer INI-/Conf-Datei ValEdIni.Strings.LoadFromFile(IniPfad+'ORC'+ext); //klappt, Inhalt erscheint im Fenster, schön mit zwei Spalten
passiert rein gar nichts, also keine Fehlermeldung, aber leider auch keine Speicherung in die Datei. Ich habe mir auch die Ini-Datei selbst angesehen - keine Änderung. Also scheint es kein Aktualisierungsproblem während des Programmablaufs zu sein (geänderte Datei wird nicht angezeigt). Im Programm selbst lässt sich die Ini-Datei ändern und beschreiben über Ini.Update, also kein Schreibproblem. Entweder bin ich da zu naiv oder die Speichern-Funktion tut nicht das was ihrer Beschreibung entspricht. Weiß jemand Rat? Muss ich vielleicht vorher die TIniFile-Instanz schließen, da diese Schreibzugriffe blockiert?Code: Alles auswählen
ValEdIni.SaveToFile(IniPfad+'ORC'+ext);
Code: Alles auswählen
procedure TForm1.ButtonLesenClick(Sender: TObject);
var
sl: TStringList;
begin
sl := TStringList.create;
sl.LoadFromFile('d:\vle-s.ini');
sl.Delete(0);
ValueListEditor1.Strings.Assign(sl);
sl.Free;
end;
procedure TForm1.ButtonScheibenClick(Sender: TObject);
var
sl: TStringList;
begin
sl := TStringList.Create;
sl.Add('[Abschnitt]');
sl.AddStrings(ValueListEditor1.Strings);
sl.SaveToFile('d:\vle-s.ini');
sl.Free;
end;
{ oder:
var
stream: TStream;
s: String;
begin
stream := TFileStream.Create('d:\vle-s.ini', fmCreate);
s := '[Abschnitt]';
stream.WriteBuffer(s[1], Length(s));
ValueListEditor1.Strings.SavetoStream(stream);
stream.Free;
end;
}
Code: Alles auswählen
procedure TFrmIniEdit.SaveINI;
var
StrBuff:TStringList;
begin
StrBuff:=TStringList.Create;
try
StrBuff.AddStrings(ValEdIni.Strings);
StrBuff.SaveToFile(IniPfad+'ORC'+ext);
finally
StrBuff.Free;
end;
end;
Code: Alles auswählen
procedure TFrmIniEdit.MenIt_SaveClick(Sender: TObject);
begin
SaveINI;
end;
procedure TFrmIniEdit.MenIt_SaveNCloseClick(Sender: TObject);
begin
SaveINI;
Close;
end;