Форум: "Основная";
Текущий архив: 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.03 c