FileStream mit "TIniFile Funktionalität".Methoden

[Bjoerk]

Okay. Meistens arbeite ich aber mit einen eigenen IniFileParser. Der liest die Ini mit Assignfile und Co als TextFile ein. Wenn ich dort jetzt die Methoden (ReadMetaFile, ReadBinaryStream bzw. WriteMetaFile, SaveToStream) ergänze geht das dann noch als TextFile?

Delphi-Quellcode:

function TStrIniFile.LoadFile: boolean;
var
  F: TextFile;
  S: string;
  Buf: array [1..65536] of Char;
begin
  Result := false;
  if IniFileExists then
  begin
    AssignFile(F, FFileName);
    SetTextBuf(F, Buf);
    if CanOpenFile(F, false) then
    begin
      while not Eof(F) do
      begin
        Readln(F, S);
        if IsIniLine(S) then
          AddItem(S);
      end;
      CloseFile(F);
      Result := true;
    end;
  end;
end;

function TStrIniFile.SaveFile: boolean;
var
  F: TextFile;
  I: integer;
  Buf: array [1..65536] of Char;
begin
  Result := false;
  if FFileName <> '' then
  begin
    AssignFile(F, FFileName);
    SetTextBuf(F, Buf);
    if CanOpenFile(F, true) then
    begin
      for I := 0 to FCount - 1 do
      begin
        if I > 0 then
          if FEqualSignPos[I] < 0 then
            Writeln(F);
        Writeln(F, FItems[I]);
      end;
      CloseFile(F);
      Result := true;
    end;
  end;
end;