Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=15531&view=findpost&p=129486 Tue, 18 Jun 2002 19:24:18 +0000 Bug ?... (TMTPas) https://forum.sources.ru/index.php?showtopic=15531&view=findpost&p=129486 Цитата 7in, 13.06.02, 21:04:58
Клевая фича, однако! Вывожу подряд 5 раз MemAvail:
119359216
119375600
119174896
119396080
119039728

Ты из под DOS'а запускать не пытался? ;)]]> vb 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=15531&view=findpost&p=129485 Fri, 14 Jun 2002 14:44:48 +0000 Bug ?... (TMTPas) https://forum.sources.ru/index.php?showtopic=15531&view=findpost&p=129485
Copyright (C) 1994-1997, Charles Scheffold and Thomas Pytel

360240880
361793264
361793264
361793264
361793264

Всё работает абсолютно правильно, "Note that return value does not represent the actual physical size of the paging file on disk".]]> DjG-CORE 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=15531&view=findpost&p=129484 Thu, 13 Jun 2002 17:04:58 +0000 Bug ?... (TMTPas) https://forum.sources.ru/index.php?showtopic=15531&view=findpost&p=129484 MemAvail:
119359216
119375600
119174896
119396080
119039728]]> 7in 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=15531&view=findpost&p=129483 Thu, 13 Jun 2002 13:26:54 +0000 Bug ?... (TMTPas) https://forum.sources.ru/index.php?showtopic=15531&view=findpost&p=129483 vb 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=15531&view=findpost&p=129482 Wed, 12 Jun 2002 15:42:49 +0000 Bug ?... (TMTPas) https://forum.sources.ru/index.php?showtopic=15531&view=findpost&p=129482 //=====================//
    begin
      writeln(memavail);
      writeln(memavail)
    end.

//=====================//
Напиши им на мыло!]]> 7in 32-битные компиляторы https://forum.sources.ru/index.php?showtopic=15531&view=findpost&p=129481 Wed, 12 Jun 2002 10:32:06 +0000 Bug ?... (TMTPas) https://forum.sources.ru/index.php?showtopic=15531&view=findpost&p=129481
//=====================//
    var
      p:pointer;
      a,b:longint;
     
    begin
      a := memavail;
      getmem(p,10000000);
      freemem(p,10000000);
      b := memavail;
      writeln(a-b);
    end.

//=====================//

как демаете, что печатает ?......
чиселку >0 хе хе хе (если что, не ламер)]]> jf.illusion 32-битные компиляторы