вывод незначащих нулей спереди

[SERG1980]

Сообщение от BBOBAHH

а чего-то виснет ваш код.. у меня Делфи 7..

код предложенный russian-stalker в посте 3 абсолютно рабочий, так что разбирайтесь

[BBOBAHH]

Сообщение от JTG

ShowMessage(format('%.4u',[random(999)]));

Спасибо !! то что нужно, но есть загвоздка, как выводить не SHOWMESSAGE , а в LABEL ???

[BBOBAHH]

Сообщение от SERG1980

код предложенный russian-stalker в посте 3 абсолютно рабочий, так что разбирайтесь

Да, спасибо, я имелл ввиду код в сообщении №8, и опять же РАБОТАЕТ, но как выводить результат в поле LABEL ????

[russian-stalker]

Да в 8 посту не рабочий, т.к. я не подумал что integer убирает нули.
Можно так:
procedure TForm1.Button1Click(Sender: TObject);
begin
label1.Caption:=format('%.4u',[666]);
end;

[BBOBAHH]

Спасибо огромное !!! Вот это именно то что нужно !!!
begin
i:=StrToInt(Edit1.text);
label1.Caption:=format('%.4u',[i]);
end;

Ну вы и ГОЛОВЫ , мужики !!! Ещё раз огромное спасибо !!!

[Скандербег]

Есть в D7 нормальная функция StringOfChar.
Для примера. Если введенное число находится в Edit1, то вставить лидирующие нули проще простого:
S := StringOfChar('0', 4-Length(Edit1.Text)) + Edit1.Text

[BBOBAHH]

Ребята , а помогите еще со строкой

for d:=2 to 10 do if oshibka[1]=oshibka[d] then Form2.Edit(d).Visible:=false;

Делфи пишет что ошибка (я так понимаю ошибка синтаксиса), но как правильно написать не вкуриваю... переменные d: integer и oshibka: array[1..11] описаны

[russian-stalker]

Как я понял, надо это: ?

for d:=2 to 10 do
if oshibka[1]=oshibka[d] then
(Form2.FindComponent('Edit'+inttostr(d)) as tedit).Visible:=false;

[lexaltd]

Сообщение от BBOBAHH

Ребята , а помогите еще со строкой

for d:=2 to 10 do if oshibka[1]=oshibka[d] then Form2.Edit(d).Visible:=false;

Делфи пишет что ошибка (я так понимаю ошибка синтаксиса), но как правильно написать не вкуриваю... переменные d: integer и oshibka: array[1..11] описаны

Если я правильно тебя понял - то надо так:

var
  MyComponent: TComponent;
begin
 for d:=2 to 10 do
 if oshibka[1]=oshibka[d] then
  begin
   MyComponent := Form2.FindComponent('Edit'+IntToStr(d));
   if MyComponent <> nil then
   TEdit(MyComponent).Visible := false;
  end;
end;

Не успел!

[BBOBAHH]

Сообщение от russian-stalker

Как я понял, надо это: ?

for d:=2 to 10 do
if oshibka[1]=oshibka[d] then
(Form2.FindComponent('Edit'+inttostr(d)) as tedit).Visible:=false;

чавото не хочет, выскакивает окно с ошибкой