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

Статус
Закрыто для дальнейших ответов.

vital

Больной Компом Детектед
29.01.2006
2 432
33
#1
в единственном параметре проге передается имя файла
1. прогармма считывает дату создания файла (получается к примеру "14072009")
3. эта штука кодируется (к примеру смещается на 3 бита влево и XOR 01011010)
4. то что получилось записывается в этот файл (со стиранием предыдущего содержимого)

Сделал так..

Код:
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.
Но в обратную сторону изначальная дата не получается.. а должна(( почему?

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

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

Удалите тему плиз.
 
Статус
Закрыто для дальнейших ответов.