Форум: "Базы";
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];
ВнизИндексы Найти похожие ветки
← →
Andrey (2001-12-14 10:57) [4]procedure ClearBytes(Table_name:string);
var S: array[1..2] of byte;
hand :integer;
begin
S[1]:=0;
S[2]:=0;
hand:=FileOpen(Table_name,$0002);
FileSeek(hand,28,1);
FileWrite(hand,S,2);
FileClose(hand);
end;
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c