Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.11.21;
Скачать: [xml.tar.bz2];

Вниз

Плохо у меня с матиматикой... Делим на метры и т.д.   Найти похожие ветки 

 
markers ©   (2004-11-10 11:53) [0]

Ох запари я вас блин..... Ивиняюсь........
Плохо в школе учился с матиматекой хреново......
вообщем набрасал я тут кодик, но он как-то неправильно работает....
Подскажите плиз где капать надо вот собственно код
Function TStaticForm.IntConvert(Original:Int64):string;
var Fori:Integer;
   original2:Int64;
   Temp:String;
   TempB:String;
begin
try
 LogingAction("Мы зашли в процедуру, будем работать",1,2);
 original2:=Original;
 if original2 > 1024 then
  begin
   LogingAction("Переменная оригинал2 больше 1024 идем дальше",0,2);
//    for
   For Fori:=0 to Original div 1024 do
    begin
     try
      LogingAction(IntToStr(original2)+" первое значение оригина2 в цикле",1,2);
      original2:=original2 div 1024;
      LogingAction(IntToStr(original2)+" а это уже после деления, значение Fori равно"+IntToStr(Fori),1,2);
      if original2 < 1024 then Break;
     except
      on E: Exception do Break;
     end;
    end;
    case Fori of
    0..1: TempB:="Байт";
       2: TempB:="Кб";
       3: TempB:="Мб";
       4: TempB:="Гб";
    end;
   MessageBox(Handle, PChar(IntToStr(original2)+TempB), PChar("Information"), 64);
  end;
except
 on E: Exception do MessageBox(Handle, PChar(E.Message), PChar("ERROR!"), $00000040);
end;
{-----------------------------------------------------------}
end;

Спасибо;)


 
panov ©   (2004-11-10 11:55) [1]

Вопрос где?


 
TUser ©   (2004-11-10 11:57) [2]

Чего он дожен делать, и чего он делает?



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.11.21;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.046 c
14-1099683871
Pat
2004-11-05 22:44
2004.11.21
Помогите определить на чем написана прога


1-1099642844
hh
2004-11-05 11:20
2004.11.21
Как объект привести в первоначальное состояние?


3-1098369500
MORA
2004-10-21 18:38
2004.11.21
Для чего нужен компонент IBSQL?


1-1099505314
ZenAS
2004-11-03 21:08
2004.11.21
Интерфейсы


14-1099610766
default
2004-11-05 02:26
2004.11.21
Забавная задачка





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский