| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

markers ©   (2004-11-10 11:53:00) 

Ох запари я вас блин..... Ивиняюсь........
Плохо в школе учился с матиматекой хреново......
вообщем набрасал я тут кодик, но он как-то неправильно работает....
Подскажите плиз где капать надо вот собственно код
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;
Спасибо;)

---

TUser   (2004-11-10 11:57:00) [1]

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

---

panov   (2004-11-10 11:55:00) [2]

Вопрос где?

---

Наверх