как поменять местами данные в строке

[MadReason]

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i:integer;
cel,ost:integer;
begin
s:='4D3C2B1A';
s:='$'+s;
i:=strtoint(s);
ListBox1.Items.Add(inttostr(i));
cel:=i div 120;
edit1.Text:=inttostr(cel);
//округление остатка до 2х чисел, поэтому *100
ost:=round((i/120-cel)*100);
edit2.Text:=inttostr(ost);
end;

[fize]

MadReason я очень извеняюсь но надо число делить не на 120 а два раза на 60 т.к результат разный получается. например-
921300\60=15355
15355\60=255,91~
а при делении на 120-
921300\120=7677,5

[ОДИНОЧЕСТВО В СЕТИ]

результат разный получается

дык 2 раза по 60 это 3600 получается

[MadReason]

ну тупанул)) согласен. ну подправьте. проблем то...

[fize]

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

ну тупанул)) согласен. ну подправьте. проблем то...

поправил-

PHP код:

begin
s:=(ns);
s:='$'+s;
i:=strtoint(s);
ListBox1.Items.Add(inttostr(i));
cel:=i div 3600;
edit1.Text:=inttostr(cel);
ost:=round((i-cel*3600)/60);
edit2.Text:=floattostr(ost);
end; 


теперь нужно округление числа допустим 255,91666666666666666666666666667 до числа 255,55 т.е в едит1 число 255 так и остается а в едит2 записывается 55
все. вроде получилось. изменил строку ost:=round((i-cel*3600)/60); и выдает нужное округление

[fize]

неа. видимо не то что нужно. поправьте пожалуйста как правильно будет делать округление
понял как округлять надо. имеем 0.916666666666666666666666666667. это число надо умножить на 60 и разделить на 100
получаем 0.5500000000000000000000000000002. а отсюда уже выдрать 55 и поместить в едит2. помогите пожалуйста

[fize]

PHP код:

begin
s:=(ns);
s:='$'+s;
i:=strtoint(s);
ListBox1.Items.Add(inttostr(i));
cel:=i div 3600;
edit1.Text:=inttostr(cel);
ost:=round((i-cel*3600)/36);
edit2.Text:=floattostr(ost);
end; 


насколько я понимаю этот код до момента-

PHP код:

ost:=round((i-cel*3600)/36);
edit2.Text:=floattostr(ost); 


работает как нужно т.е в едит1 выводит число десятичное. далее нужно дорабатывать этот кусок-

PHP код:

ost:=round((i-cel*3600)/36);
edit2.Text:=floattostr(ost); 


что бы тут ничего не округлялось а добавлялось в переменную как есть и производился мат расчет -
переменнная умножается на 60, делится на 100 и получается вторая переменная с суммой. далее эта сумма обрезается и выводится в едит2. помогите сам не осилю.
всем спасибо. все осилено. мне теперь обратный процесс нужен. тут продолжать или новую тему создать? логично что для ее названия ответ найден. значит создам новую.

[MadReason]

с
0.9166
в
0.55

как то ты интересно округляешь....

должно быть так
ost:=round((i/3600-cel)*100);
edit2.Text:=inttostr(ost);

у тебя работа с минутами и секундами что ли?

[fize]

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

с
0.9166
в
0.55

как то ты интересно округляешь....

должно быть так
ost:=round((i/3600-cel)*100);
edit2.Text:=inttostr(ost);

у тебя работа с минутами и секундами что ли?

так ошибку выдает-
[Error] Unit1.pas(79): There is no overloaded version of 'IntToStr' that can be called with these arguments
работа с часами и минутами

[MadReason]

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i:integer;
cel,ost:longint;
begin
s:='4D3C2B1A';
s:='$'+s;
i:=strtoint(s);
ListBox1.Items.Add(inttostr(i));
cel:=i div 3600;
edit1.Text:=inttostr(cel);
ost:=round((i/3600-cel)*10000000);//кол-во нулей=кол-ву цифр после запятой
edit2.Text:=inttostr(ost);
end;

что-то ты не то напечатал у себя