unit KOLInfFiles;

interface

uses KOL;

type

 PInfFile = ^TInfFile;

 TInfFile = object (TObj)
 public
   procedure LoadFromFile(const FileName: string);
   procedure Save;
   procedure SaveAs(const FileName: string);
   procedure ReadSections(Strings: PStrList);
// procedure ReadStrings(const Section: string; Strings: PStrList);
   procedure WriteString(const Section: string; const Ext: string);
   procedure WriteStrings(const Section: string; Strings: PStrList);
   procedure ReplaceString(const Section: string;
                           const Old: string; const New: string);
   procedure ReplaceStrings(const Section: string;
                            const Old: string; const New: PStrList);
   procedure DeleteString(const Section: string; const Target: string);
 protected
   FFileName: string;
   FFileBuffer: PStrList;
   procedure Init; virtual;
   destructor Destroy; virtual;
   function ParseComments(const S: string): string;
   function IsSection(const S: string): boolean;
   function GetSectionIndex(const Section: string): integer;
 //function RemoveStr(const Section: string; const Target: string): integer;
 end;

implementation

procedure TInfFile.Init;
begin
 FFileBuffer := NewStrList;
 FFileName := '';
end;

destructor TInfFile.Destroy;
begin
 FFileName := '';
 FFileBuffer.Free;
 inherited;
end;

function TInfFile.ParseComments(const S: string): string;
var
 i, len: integer;
 tmp: string;
begin
 len := length(S);
 i := 1;
 while (i < len+1) and (S[i] <> ';') do
 begin
   tmp := tmp + S[i];
   Inc(i);
 end;
 result := tmp;
end;

function TInfFile.IsSection(const S: string): boolean;
var
 tmp: string;
begin
 Result := false;
 if S <> '' then
 begin
   tmp := Trim(s);
   if (tmp[1] = '[') and (tmp[Length(tmp)] = ']') then
     Result := true;
 end;
end;

function TInfFile.GetSectionIndex(const Section: string): integer;
begin
 Result := FFileBuffer.IndexOf('['+Section+']');
end;

procedure TInfFile.LoadFromFile(const FileName: string);
begin
 if FileExists(FileName) then
 begin
   FFileName := FileName;
   FFileBuffer.LoadFromFile(FFileName);
 end;
end;

procedure TInfFile.Save;
begin
 FFileBuffer.SaveToFile(FFileName);
end;

procedure TInfFile.SaveAs(const FileName: string);
begin
 FFileBuffer.SaveToFile(FFileName);
end;

procedure TInfFile.ReadSections(Strings: PStrList);
var
 i: integer;
 Section: string;
 BufCount: integer;
begin
 Strings.Clear;
 bufcount := FFileBuffer.Count;
 if BufCount > 0 then
 begin
   i := 0;
   while (i < BufCount-1) do
   begin
     Section := ParseComments(Trim(FFileBuffer.Items[i]));
     if Section <> '' then
     if IsSection(Section) then
     begin
       Delete(Section, 1, 1);
       Delete(Section, Length(Section), 1);
       Strings.Add(Section);
     end;
     Inc(i);
   end;
 end;
end;

procedure TInfFile.WriteString(const Section: string; const Ext: string);
var
 i: integer;
begin
 i := GetSectionIndex('['+Section+']');
 if (i <> -1) then
 begin
   Inc(i);
   FFileBuffer.Insert(i, Ext);
 end else
 begin
   FFileBuffer.Add('');
   FFileBuffer.Add('['+Section+']');
   FFileBuffer.Add(Ext);
 end;
end;

procedure TInfFile.WriteStrings(const Section: string; Strings: PStrList);
var
 i, j, count: integer;
begin
 i := GetSectionIndex('['+Section+']');
 if (i <> -1) then
 begin
   Inc(i);
   count := Strings.Count;
   if count > 0 then
   for j := count-1 downto 0 do
     FFileBuffer.Insert(i, Strings.Items[j]);
 end else
 begin
   FFileBuffer.Add('');
   FFileBuffer.Add('['+Section+']');
   FFileBuffer.AddStrings(Strings);
 end;
end;

{ !Изменено }
{ Если строка Old не будет найдена, New записана не будет! }
procedure TInfFile.ReplaceString(const Section: string; const Old: string; const New: string);
var
 i: integer;
 index: integer;
begin
 i := GetSectionIndex(Section);
 if (i <> -1) then
 begin
   index := RemoveStr(Section, Old);
   if (index <> -1) then
       FFileBuffer.Insert(index, New)
 end;
end;

procedure TInfFile.ReplaceStrings(const Section: string; const Old: string; const New: PStrList);
var
 index, count, j: integer;
begin
 index := RemoveStr(Section, Old);
 if (index <> -1) then
 begin
   count := New.Count;
   if count > 0 then
   for j := count-1 downto 0 do
   FFileBuffer.Insert(index, New.Items[j]);
 end;
end;

procedure TInfFile.DeleteString(const Section: string; const Target: string);
begin
 RemoveStr(Section, Target);
end;

end.

var
Inf: PInfFile;
begin
...
New(inf); // тут вроде все нормально

FFileBuffer := NewStrList;

New(inf, Create);

New(