Помогите с простой задачей.. что-то туплю..

Тема в разделе "Delphi - FAQ", создана пользователем vital, 15 июл 2009.

Статус темы:
Закрыта.
  1. vital

    vital Больной Компом Детектед
    Команда форума Web Team

    Регистрация:
    29 янв 2006
    Сообщения:
    2.470
    Симпатии:
    27
    в единственном параметре проге передается имя файла
    1. прогармма считывает дату создания файла (получается к примеру "14072009")
    3. эта штука кодируется (к примеру смещается на 3 бита влево и XOR 01011010)
    4. то что получилось записывается в этот файл (со стиранием предыдущего содержимого)

    Сделал так..

    Код (Text):
    program Project1;
    {$APPTYPE CONSOLE}
    uses
    SysUtils;
    var
    fn,n:string;
    date:TDateTime;
    key:integer=0;
    f:file of integer;

    function GetFileDateTime(FileName: string): TDateTime;
    var
    intFileAge: LongInt;
    begin
    intFileAge := FileAge(FileName);
    if intFileAge = -1 then Result := 0
    else Result := FileDateToDateTime(intFileAge)
    end;

    begin
    fn:=paramstr(1);
    if fn='' then exit;
    date:=getfiledatetime(fn);
    DateTimeToString(n,'ddmmyy',date);
    key:=strtoint(n) shl 3;
    key:=key xor 01011010;
    AssignFile(f,fn);
    Rewrite(f);
    Write(f,key);
    close(f);
    end.
    Но в обратную сторону изначальная дата не получается.. а должна(( почему?

    Но в обратную сторону дата не получается((

    Получилась.. а Я идиот.

    Удалите тему плиз.
     
  2. etc

    etc Гость

    Почему должна?
     
Загрузка...
Похожие Темы - Помогите простой задачей
  1. limbra
    Ответов:
    3
    Просмотров:
    46
  2. NylevoiChelovek
    Ответов:
    4
    Просмотров:
    109
  3. Ruska132
    Ответов:
    47
    Просмотров:
    393
  4. gURaBA_N
    Ответов:
    7
    Просмотров:
    148
  5. uxbmw3w
    Ответов:
    0
    Просмотров:
    68
Статус темы:
Закрыта.

Поделиться этой страницей