| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Mushu ©   (2003-10-10 18:47:00) 

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

---

Gandalf   (2003-10-11 20:03:00) [1]

Текс:
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 и т.д.

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

---

Mushu   (2003-10-11 17:09:00) [2]

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

---

Mushu   (2003-10-10 22:38:00) [3]

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

Filecreate
Fileseek
fileread
filewrite
fileclose

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

---

BelchonokH   (2003-10-10 22:16:00) [4]

Вот рабочий пример на запись, хотя по моему, это практически везде есть...

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);


---

Sagrer   (2003-10-10 22:10:00) [5]

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

---

miek   (2003-10-10 21:31:00) [6]

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

---

Наверх