Как работать с файлами в KOL ....

← →
Mushu (2003-10-10 18:47) [0]

читать, писать и тд
Filecreate
Fileseek
fileread
filewrite
fileclose
но не могу(уже по всякому извращался) я прочитать из файла ... хелп скудный может кто пример приведет рабочий ? дальше сам разберусь...

← →
miek © (2003-10-10 21:31) [1]

Нафиг такие сложности? Чем не устраивает Read/Blockread?

← →
Sagrer (2003-10-10 22:10) [2]

Если файл не оч большой, то Blockread - ом загоняю в строку, и уже с ней работаю (а потом ее сэйвю) - сделал для этого специальный класс, достаточно удобно.

← →
BelchonokH © (2003-10-10 22:16) [3]

Вот рабочий пример на запись, хотя по моему, это практически везде есть...
var F:textfile; ... AssignFile(f,GetStartDir+"Message.txt" ); if fileExists(GetStartDir+"Message.txt") then Append(f) else ReWrite(f); Writeln(f, s); Writeln(f, s1); closefile(f);

← →
Mushu (2003-10-10 22:38) [4]

пасиба на добром слове ...
но меня интересует работоспосбность функций

Filecreate
Fileseek
fileread
filewrite
fileclose

зачем их тогда делать если они работают через пень колода

← →
Mushu (2003-10-11 17:09) [5]

к тому же c с применением blockread и тд. размер программы подскочил с 30 до 60 кб и зачем мне это ??

Текс:
var
f:Pstrlist;
begin
f:=NewStrList;
f.LoadFromFile("donkey.txt");
f.Add("New Line - KOL Rules");
f.SaveToFile("concretdonkey.txt");
f.free;
end;

бинарник:

var
f:PStream;
begin
f:=NewFileStream("demo.bin",0); // надо ставить не 0 - а свое
...
f.seek
f.read
f.write
...
f.free;
end;

Ини:

PIniFile и т.д.

Примеры есть в статьях на этом сайте.

Как работать с файлами в KOL .... Найти похожие ветки