![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Процедуры и функциии [D6, D7, WinXP]
Ivolg © (2004-07-10 08:53:00)Здрасти.!!!!!! Перичмслите пожайлуста все(большую часть) процедур и функций для работы с файлами! Спасибо!
DrPass (2004-07-11 01:49:00) [1]
> Когда уже будут банить за идиотизм...
Лучше ввести уголовную ответственность
KilkennyCat (2004-07-11 01:42:00) [2]
> Marser © (11.07.04 01:37) [11]
а какая разница? Я имел ввиду глобальные :) Апишные то же
читаю, пишут, ищут... Хотя, если совсем глобально подойти, то все опять сводится к работе с ноликом и единичкой :))
Marser (2004-07-11 01:37:00) [3]
> Остальные - побочные...
А АПИшные?
KilkennyCat (2004-07-11 01:32:00) [4]А вообще-то, их и не так много. Глеб © (10.07.04 09:00) [1] перечислил практически все: открыть, закрыть, читать, писать. Есть пятая - перемещение по файлу. Возможно, удаление - шестая, хотя теоретически она основывается на записи вопросика... Ну, пусть будет. Итого: всего шесть. Остальные - побочные...
Marser (2004-07-11 01:25:00) [5]Когда уже будут банить за идиотизм...
Cardinal (2004-07-10 23:31:00) [6]>Ошибка в 6 и 7 строке:
>[Error] Unit1.pas(38): Undeclared identifier: 'MyByte'
: ))))))))))
arcoant (2004-07-10 22:29:00) [7]2 KilkennyCat:
ТОЧНО!!!
KilkennyCat (2004-07-10 20:30:00) [8]
> Ivolg (10.07.04 20:23) [5]
нет, ошибка в ДНК.
Ivolg (2004-07-10 20:23:00) [9]Алхимик
Ошибка в 6 и 7 строке:
[Error] Unit1.pas(38): Undeclared identifier: 'MyByte'
Алхимик (2004-07-10 10:02:00) [10]
AssignFile(f1,'файл1'); // связали переменную с файлом
AssignFile(f2,'файл2'); // -"-
reset(f1); // открыли на чтение
rewrite(f2); // открыли на запись
for i := 0 to (сколько надо)-1 do begin
read(f1,MyByte); // прочитали
write(f2,MyByte); // записали
end;
CloseFile(f1); // закрыли файл
CloseFile(f2); // -"-
+ указать типы переменых
+ проверять возможность открытия первого файла
(не существует, заблокирован и т.д.)
+ проверять что в первом файле есть необходимое число байт
Rem (2004-07-10 09:58:00) [11]File + F1
Ivolg (2004-07-10 09:22:00) [12]А как мона осушествить такое:
Читать из файла указанное число байт и писать байты в другой файл
Глеб (2004-07-10 09:00:00) [13]procedure AssignFile(f: file; s: string) - связывает строку s с файловой переменной f.
procedure reset(f: file) - открывает файл f для чтения
procedure rewrite(f: file) - открывает файл f для записи.
procedure read(f: file; .........) - читает из файла f переменные............ (их может быть много)
Аналогично read - write, только пишет.
и т. д.