Работа с UpDown

[artemavd]

Здравствуйте. Возникла необходимость сделать счетчик. Поясню. Есть Edit1 с начальным значением 00. Нужно, используя компонент UpDown, увеличивать или уменьшать это значение. То есть, например, нажимаю на стрелочку вверх, значение увеличивается по каждому нажатию на 01, 02, 03 и т.д, а если уменьшаю, то, например, от значения 09 значение в Edit1-e уменьшается на 01, т.е. 08,07 и т.д. до 00. Как это можно реализовать?

[Marsel737]

Может как-то так:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if StrToInt(Copy(Edit1.Text, 2, Length(Edit1.Text))) > 0 then
    Edit1.Text := '0' + IntToStr(StrToInt(Copy(Edit1.Text, 2, Length(Edit1.Text))) - 1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Text := '0' + IntToStr(StrToInt(Copy(Edit1.Text, 2, Length(Edit1.Text))) + 1);
end;

Ре:

вот проект добавил

[artemavd]

Marsel737, респект! Спасибо. Но почему когда значение доходит до 10, то в Edit-e появляется такое значение: 011,012 и т.д. Как сделать, чтобы если значение становилось больше 10, то первый 0 бы убирался?

[Marsel737]

procedure TForm1.Button2Click(Sender: TObject);
begin
  if StrToInt(Edit1.Text) > 9 then
  begin
    Edit1.Text := IntToStr(StrToInt(Edit1.Text) + 1);
    Exit;
  end;
  if StrToInt(Copy(Edit1.Text, 2, Length(Edit1.Text))) < 9 then
  begin
    Edit1.Text := '0' + IntToStr(StrToInt(Copy(Edit1.Text, 2, Length(Edit1.Text))) + 1);
    Exit;
  end;
  if StrToInt(Copy(Edit1.Text, 2, Length(Edit1.Text))) = 9 then
    Edit1.Text := IntToStr(StrToInt(Copy(Edit1.Text, 2, Length(Edit1.Text))) + 1);
end;

[artemavd]

С увеличением разобрались . А вот с уменьшением получается немного не то. Вот, для уменьшения по аналогии с увеличением сделал так:

 if StrToInt(Form1.Edit12.Text) > 9 then
  begin
    Form1.Edit12.Text := IntToStr(StrToInt(Form1.Edit12.Text) - 1);
    Exit;
  end;
  if StrToInt(Copy(Form1.Edit12.Text, 2, Length(Form1.Edit12.Text))) < 9 then
  begin
    Form1.Edit12.Text := '0' + IntToStr(StrToInt(Copy(Form1.Edit12.Text, 2,
                                        Length(Form1.Edit12.Text))) - 1);
    Exit;
  end;
  if StrToInt(Copy(Form1.Edit12.Text, 2, Length(Form1.Edit12.Text))) = 9 then
    Form1.Edit12.Text := IntToStr(StrToInt(Copy(Form1.Edit12.Text, 2,
                                        Length(Form1.Edit12.Text))) - 1);
 end;

Но когда я например убавляю значение 12,11,10 то после 10 идет 9, а мне бы желательно было, чтобы было не просто 9, а 09,08,07 и т.д.
???

[raxp]

...как насчет такого:

var  i: integer;

procedure TForm1.SpinButton1DownClick(Sender: TObject);
begin
 dec(i);
 edit1.Text:= format('%.2d',[i])
end;

procedure TForm1.SpinButton1UpClick(Sender: TObject);
begin
 inc(i);
 edit1.Text:= format('%.2d',[i])
end;

[artemavd]

raxp, не работает)

[raxp]

...тестируй

[Stilet]

А че у меня все работает?

procedure TForm1.SpinButton1DownClick(Sender: TObject);
begin
  Edit1.Tag:=Edit1.Tag-1;
  Edit1.Text:=format('%.2d',[Edit1.Tag]);
end;

procedure TForm1.SpinButton1UpClick(Sender: TObject);
begin
     Edit1.Tag:=Edit1.Tag+1;
  Edit1.Text:=format('%.2d',[Edit1.Tag]);
end;

[DeKot]

Это из теории (А.Я. Архангельский " 100 компонентов ..."

Основное свойство компонента UpDown — Associate, связывающее кнопки со стрелками с одним из оконных компонентов, обычно с Edit.

Свойства Min и Мах компонента UpDown задают соответственно минимальное и максимальное значения чисел, свойство Increment задает приращение числа при каждом нажатии на кнопку. Свойство Position определяет текущее значение числа. Это свойство можно читать, чтобы узнать, какое число задал пользователь. Его можно задать во время проектирования в диапазоне Min — Мах. Тогда это будет значение числа по умолчанию, отображаемое в окне в начале выполнения приложения.

Если в компоненте Edit, связанном с UpDown, не задать ReadOnly равным true, то пользователь сможет редактировать число, не пользуясь кнопками со стрелками.

Свойство Wrap определяет, как ведет себя компонент при достижении максимального или минимального значений. Если Wrap = false, то при увеличении или уменьшении числа до максимального или минимального значения это число фиксируется на предельном значении и нажатие кнопки, пытающейся увеличить максимальное число или уменьшить минимальное, ни к чему не приводит. Если же Wrap = true, то попытка превысить максимальное число приводит к его сбросу на минимальное значение. Аналогично, попытка уменьшить минимальное число приводит к его сбросу на максимальное значение. Т.е. изменение чисел «закольцовывается».

Если к тому же установить в true свойство окна ReadOnly, то пользователь просто не сможет ввести в окно какой-либо свой текст и вынужден будет ограничиться выбором числа.

Скачать сие добро элементарно:
http://programmersclub.ru/files/book1_100comp.rar