Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.11.2007, 16:12   #1
Snake_ua
Пользователь
 
Регистрация: 25.09.2007
Сообщений: 66
По умолчанию процедура sееk

Кто-нибудь, киньте мне программу с использованием этой процедуры. Хочу разобратся, как с ней работать (хелпа в паскале не хватает...)
Snake_ua вне форума Ответить с цитированием
Старый 02.11.2007, 16:22   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Вот из хелпа :

Код:
 uses WinCrt;

var
  f: file of Byte;
  size : Longint;
begin
  { Get file name from command line }
  Assign(f, ParamStr(1));
  Reset(f);
  size := FileSize(f);
  Writeln('File size in bytes: ',size);
  Writeln('Seeking halfway into file...');
  Seek(f,size div 2);
  Writeln('Position is now ',FilePos(f));
  Close(f);
end.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Оконная процедура HunterMan Win Api 5 04.06.2008 12:10
Процедура не работает Михаил Юрьевич Общие вопросы Delphi 4 03.06.2008 07:22
Процедура () GAGARIN-NEW Помощь студентам 3 17.12.2007 21:42
процедура Sergik1977 Паскаль, Turbo Pascal, PascalABC.NET 7 28.10.2007 16:36
Процедура, вычисляющая Y=a*cos(G) и X=a*sin(G) Vishez Помощь студентам 4 25.04.2007 17:41