Господин Уэф! ,
просматривая код
TMemIniFile я не заметил где-либо намека на работу с файлом на диске (Delphi 6).
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
procedure TMemIniFile.WriteString(const Section, Ident, Value: String);
var
I: Integer;
S: string;
Strings: TStrings;
begin
I := FSections.IndexOf(Section);
if I >= 0 then
Strings := TStrings(FSections.Objects[I]) else
Strings := AddSection(Section);
S := Ident + '=' + Value;
I := Strings.IndexOfName(Ident);
if I >= 0 then Strings[I] := S else Strings.Add(S);
end;
чего не сказать о TIniFile
1.
2.
3.
4.
5.
6.
procedure TIniFile.WriteString(const Section, Ident, Value: string);
begin
if not WritePrivateProfileString(PChar(Section), PChar(Ident),
PChar(Value), PChar(FFileName)) then
raise EIniFileException.CreateResFmt(@SIniFileWriteError, [FileName]);
end;
так что ответ на ваш вопрос: TMemIniFile (как, кстати, выше уже ответили)
