VPF::Преобразовать число: n в 0000n - Форум программистов

lamravas

Дата 28.4.2008, 09:24 (ссылка)

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

Загрузка ...

Новичок

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

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

У меня такой вопрос как преобразовать целое число N в число 0000n\
Т.е. нам даны любые числа целые надо их преобразовать в формат в другое число
С максимальной длиной в 5 символов слева дополненное нулями
1=00001
23=00023
123=00123
и т.д. надеюсь принцип ясен.
Кто нибудь знает как это сделать можно?

CompWorm

Дата 28.4.2008, 09:57 (ссылка)

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

Загрузка ...

Допеределыватель

Профиль
Группа: Участник Клуба
Сообщений: 1689
Регистрация: 6.12.2004
Где: /

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

Код


function FormatTheNum(Num, Numbase: integer):string;
var i: integer;
begin
 Result:='';
 if length(inttostr(Num))<=Numbase then begin
   for i:=1 to Numbase-length(inttostr(Num)) do
      Result:=Result+'0';
   Result:=Result+inttostr(Num);
 end else Result:='Error';
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
 form1.Caption:=FormatTheNum(123, 5);
end;

писал на коленке, но должно работаеть smile

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

>>> Indie Games Club! <<<

lamravas

Дата 28.4.2008, 10:02 (ссылка)

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

Загрузка ...

Новичок

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

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

CompWorm , спасибо щас попробую

Добавлено через 13 минут и 54 секунды
спасибо CompWorm
Все работает отлично smile

aktuba

Дата 28.4.2008, 12:54 (ссылка)

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

Загрузка ...

Смышленный

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

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

Код


function GetStr(AInt: Integer): string;
const
  C_Null = '00000';
var
  lStr: string;
begin
  lStr := IntToStr(lInt);
  Result := Copy(C_Null, 1, Length(C_Null) - Length(lStr)) + lStr;
end;

Мне кажеться так будет правильнее и проще smile

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

MetalFan

Дата 28.4.2008, 14:32 (ссылка)

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

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

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

а еще правильнее и проще будет так:

Код


  lStr :=   Format('%.5d',[ANumber]);

Это сообщение отредактировал(а) MetalFan - 28.4.2008, 14:36

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

There are always someone smarter than you...

CompWorm

Дата 28.4.2008, 15:45 (ссылка)

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

Загрузка ...

Допеределыватель

Профиль
Группа: Участник Клуба
Сообщений: 1689
Регистрация: 6.12.2004
Где: /

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

Цитата

а еще правильнее и проще будет так:

реал крутой способ! smile

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

>>> Indie Games Club! <<<

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