Und ich hatte gerade die passende Schreibroutine gebastelt:
Delphi-Quellcode:
procedure TDemoForm.SaveFile(fn: TFileName);
const
S_FMT = 'define(%s, %s);';
var
i: Integer;
sName: String;
begin
with TStringList.Create do
begin
for i := 1 to VLE.Strings.Count do
begin
sName := VLE.Keys[i];
Add(Format(S_FMT, [AnsiQuotedStr(sName, ''''), AnsiQuotedStr(VLE.Values[sName], '''')]));
end;
SaveToFile(fn);
Free;
end;
end;
Die Routinen lassen sich aber leicht anpassen, damit sie nur die Zeilen der Form "define(...);" verarbeiten - wenn du dich auf den ValueListEditor einlassen kannst.
marabu