Text aus Textdatei in TEDIT auslesen und wieder speichern

[marabu]

Hallo Mirco,

wenn die Datei mit den zu ändernden Werten nur aus solchen Zeilen besteht wie du sie gezeigt hast, dann würde ich diese Daten in einem ValueListEditor zum Bearbeiten anbieten.

Delphi-Quellcode:

procedure TDemoForm.LoadFile(fn: TFileName);
const
  S_DEF = 'define(';
var
  i: Integer;
  line, sName, sText: String;
  pc: PChar;
begin
  with TStringList.Create do
  begin
    LoadFromFile(fn);
    VLE.Strings.Clear;
    for i := 0 to Pred(Count) do
    begin
      line := Strings[i];
      if AnsiStartsText(S_DEF, line) then
      begin
        pc := PChar(line);
        Inc(pc, Length(S_DEF));
        sName := AnsiExtractQuotedStr(pc, '''');
        Inc(pc, 2);
        sText := AnsiExtractQuotedStr(pc, '''');
        VLE.Values[sName] := sText;
      end;
    end;
    Free;
  end;
end;

Die Speicherroutine möchtest du bestimmt selbst versuchen - oder?

marabu


Edit: Zwei überflüssige Var-Deklarationen entfernt.
Edit: Lines durch Strings ersetzt.