сравнение размера файла в интернете с размером файла на компьютере

[Пепел Феникса]

размер в байтах выводится вообще то.

[Excellion]

это далеко не байты!

806 КБ - 825856 байт

[veniside]

Сообщение от FaTaL

Вот так например:

  1 : Result := IntToStr (Round (Razmer / 1024)); //Килобайты
  2 : Result := IntToStr (Round (Razmer / 1024 / 1024)); //МегаБайты

Вы все ещё делите на 1024, а затем округляете? Тогда мы идём к вам:

  1 : Result := IntToStr (Razmer shr 10); //Килобайты
  2 : Result := IntToStr (Razmer shr 20); //МегаБайты

[Excellion]

Сообщение от veniside

Вы все ещё делите на 1024, а затем округляете? Тогда мы идём к вам:

  1 : Result := IntToStr (Razmer shr 10); //Килобайты
  2 : Result := IntToStr (Razmer shr 20); //МегаБайты

причем тут это ?

я вот про этот код говорю:

ff:File;
sz:cardinal;

assignfile(ff,'GameGuard\gGuard.des ');
reset(ff);
sz:=FileSize(ff);
CloseFile(ff);
ShowMessage('Ðàçìåð :' + IntToStr(sz));

фалй размер 806 кб
а в сообщении он мне выводит 6452 <- что это ?

[Excellion]

а вот если 6452 умножить на 128 то получаеться 825856 байт почему так ?

[Excellion]

как написать код, после Borland C++ Не могу понять:
допустим в Borland C++ я бы написал условие таким образом

int a=5, b=5;
if (a == b)
ShowMessage("Равны");

тут у меня не получаеться..

[veniside]

Сообщение от Excellion

причем тут это ?

не при чем, т.к. я не вам отвечал.

Сообщение от Excellion

я вот про этот код говорю:

Не пользовался assignfile() со времен ДОС, и вам не советую. Хотите узнать размер файла в байтах, а не в попугаях? Пожалуйста:

uses
  SysUtils;

function fileSize(const fname: string): int64;
var
  h: integer;
begin
  h := FileOpen(fname, fmOpenRead);
  if (INVALID_HANDLE_VALUE <> DWORD(h)) then try
    result := FileSeek(h, 0, 2);
  finally
    FileClose(h);
  end
  else
    result := -1;
end;

[Excellion]

так с условием разобрался...

а теперь подскажите как пишеться неравно
допустим а "неравно" b

[veniside]

Сообщение от Excellion

как пишеться неравно

раздельно:

a <> b

[Excellion]

или еще if NOT (a=b)