Text aus Textdatei in TEDIT auslesen und wieder speichern

[marabu]

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