das was du geschrieben hast sieht mir gescheiter einrückung so aus:
Delphi-Quellcode:
for zeilennr:=0 to datei.Count-1 do
if baseengine[zeilennr]='XXX' then
datei.Delete(zeilennr);
datei.Insert(zeilennr,'XXX+YYY');
ich denke es sollte so sein:
Delphi-Quellcode:
for zeilennr:=0 to datei.Count-1 do
if baseengine[zeilennr]='XXX' then
begin
datei.Delete(zeilennr);
datei.Insert(zeilennr,'XXX+YYY');
end;
sinvoller wäre es so:
Delphi-Quellcode:
for zeilennr:=0 to datei.Count-1 do
if baseengine[zeilennr]='XXX' then
datei.strings[zeilennr] := 'XXX+YYY';