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.