Tinifille

← →
demon-777 © (2002-05-10 12:29) [0]

Есть-ли стандартная процедура полной очистки INI файла ?

← →
Song © (2002-05-10 13:17) [1]

ReWrite() - для любого файла.

← →
DeMoN-777 © (2002-05-10 21:31) [2]

ReWrite c ini не работает (incompatible tapes).

← →
panov © (2002-05-10 21:42) [3]

var
tL: TStringList;
begin
tL := TStringList.Create;
try
tL.SaveToFile("MyIniFile.ini");
finally
tL.Free;
end;
end;

← →
DeMoN-777 © (2002-05-10 21:53) [4]

>panov © (10.05.02 21:42)

Спасибо, но я спрашивал про Стандартную процедуру.

← →
Anatoly Podgoretsky © (2002-05-10 22:13) [5]

DeMoN-777 © (10.05.02 21:31)
ReWrite прекрасно работает с любыми файлами, а не только с ini

← →
DeMoN-777 © (2002-05-10 23:14) [6]

>Anatoly Podgoretsky © (10.05.02 22:13)

А можно пример ?

← →
panov © (2002-05-10 23:51) [7]

DeMoN-777 © (10.05.02 21:53)
Спасибо, но я спрашивал про Стандартную процедуру.
DeleteFile, например, стандартнее некуда...-)

← →
Anatoly Podgoretsky © (2002-05-11 00:32) [8]

DeMoN-777 © (10.05.02 23:14)
rewrite(f);

<panov © (10.05.02 23:51)

Её я и применил, чтоб мозги не парить

>Anatoly Podgoretsky © (11.05.02 00:32)

rewrite(f) (incompatible tapes)

← →
Aleks1 (2002-05-11 02:49) [10]

Ответ, думаю, прост - "Incompatible BRAINS".
Что же вы засунули в "f", которая в "rewrite(f)"? TIniFile?

Var ff:TextFile;
...
AssignFile(ff,"ини_файл");
ReWrite(ff);
CloseFile(ff);
...

Я просто ини по другому создавал =)

var
num:byte;
sys: TiniFile;
begin
sys:=TIniFile.create(ExtractFilePath(Application.ExeName)+ "PlayList.D1");L
end;

Воот по чему и не работало ;)

Tinifille Найти похожие ветки