VPF::Перевести из тб/гб/мб в байты - Форум программистов

IDontBelieveInSilence

Дата 25.4.2009, 21:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 50
Регистрация: 3.11.2006

Репутация: нет
Всего: нет

Можете пожалуйста дать пример перевода мегабайт/гигабайт/терабайт в байты?
У меня подаётся в editbox'e размер, а в комбобоксе выбирается тип размера: мб, гб, тб.
И зная это надо перевести содержимое editbox'a в байты.

Заранее благодарю.

Лапоть

Дата 25.4.2009, 22:06 (ссылка)

(голосов:1)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 185
Регистрация: 3.4.2009

Репутация: нет
Всего: 2

А что, сколько байт в килобайте, ты не знаешь? smile

Keeper89

Дата 26.4.2009, 00:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Лапоть, наверное IDontBelieveInSilence хочет пример перевода.
Прикрепил небольшой пример.

Присоединённый файл ( Кол-во скачиваний: 22 )

_______.rar 183,64 Kb

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Лапоть

Дата 26.4.2009, 08:25 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 185
Регистрация: 3.4.2009

Репутация: нет
Всего: 2

Я бы добавил вот это:

Код


  try
    Size := StrToFloat(Edit1.Text);
  except
    ShowMessage('Ошибка ввода');
    Exit;
  end;

Keeper89

Дата 26.4.2009, 15:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58

Цитата(Лапоть @ 26.4.2009, 08:25

)

Я бы добавил вот это:

Эт верно, но это был простой пример. ;)

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

RinOSpro

Дата 8.6.2009, 10:40 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Keeper89 видимо автор хотел наоборот, из записи: 3,81 МБ перевести в байты 3995997.

IDontBelieveInSilence так?

Но если все таки из байтов в читабельный вид то вот:

Код


function BytesToReadable(ABytes: Int64): string;
const
  LDim: array[0..6] of string = (' bytes', ' КБ', ' МБ', ' ГБ', ' ТБ', ' ПБ', ' ЭБ');
var
  LValue: Double;
  i: Integer;
begin
  LValue := ABytes;
  i := 0;

  while (Trunc(LValue) >= 1024) do
  begin
    Inc(i);
    LValue :=  LValue/1024;
  end;

  Result := FloatToStrF(LValue, ffNumber, 6, IfThen(i = 0, 0, 2)) + LDim[i];
end;

Это сообщение отредактировал(а) RinOSpro - 8.6.2009, 10:47

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »