[Zhigalov]

На форме имеется три компонента Edit1, ProgressBar1, Timer1.
В едите лежит число 5.5. Пишу

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position := StrToInt(Edit1.Text);
end;

Упорно не хочет работать. Где я ошибаюсь?

[Konrad]

StrToInt(5.5)
5.5 целое?

[Aristarh Dark]

Это наверное потому что 5,5 - не целое число..

[Zhigalov]

Дак вот я и не могу понять как сделать с нецелым то числом

[Developer]

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

Дак вот я и не могу понять как сделать с нецелым то числом

Код:

ProgressBar1.Position := Round(StrToFloat(Edit1.Text));

Но при округлении дробная часть теряется и прогрес будет не точную позицию показивать. Если тебе нужно точно то умножаешь максимавльную позицииб на 10 и соответственно позицию, которую хочешь установить тоже на 10.