преобразование числа в hex

[fize]

преобразование из hex тут http://www.programmersforum.ru/showthread.php?t=72538
теперь требуется обратная процедура.
имеем edit1 и edit2. допустим пользователь записал в едит1 число 344 (часы) а в едит2 44 (минуты) и нажал button2. должно произойти следующее-
1. переводим часы из едит1 в секунды- 344*3600=1238400сек
2. переводим минуты из едит2 в секунды- 44*60=2640сек
3. складываем 1238400+2640=1241040 сек
4. переводим в hex- 1241040=12EFD0
5. меняем значение hex следующим порядком-
12EFD0
D0EF12
(функция имеется)
6. вызываем savedialog и сохраняем D0EF12 в .txt

ну помогите. берем числа из едит1 переводим в переменную? умножаем на 3600? числа из едит2 в переменную и умножаем на 60? складываем 2 переменные?
как процедуру писать онклик баттон2?
procedure TForm1.Button2Click(Sender: TObject);
begin
savedialog? или сначало расчеты?

[MadReason]

не тупи. вычисляем-сохраняем

edit1.Text:=inttohex(323, 8);
8 число знаков в которые переводить

остальное ты уже знаешь

[Roof]

procedure TForm1.FormCreate(Sender: TObject);
begin
 Edit1.Text:= '';
 Edit2.Text:= '';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 time: integer;//предполагаю целые числа часов и минут
 str_hex: string;
begin
try
 time:= StrToInt(Edit1.Text)*3600;
 time:= time + StrToInt(Edit2.Text)*60;
except
 ShowMessage('Введите оба значения цифрами!');
 exit;
end;
 str_hex:= IntToHex(time, 1);
 ShowMessage(str_hex);
 //тут вызываешь функцию преобразования своего.

end;

[fize]

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

procedure TForm1.FormCreate(Sender: TObject);
begin
 Edit1.Text:= '';
 Edit2.Text:= '';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 time: integer;//предполагаю целые числа часов и минут
 str_hex: string;
begin
try
 time:= StrToInt(Edit1.Text)*3600;
 time:= time + StrToInt(Edit2.Text)*60;
except
 ShowMessage('Введите оба значения цифрами!');
 exit;
end;
 str_hex:= IntToHex(time, 1);
 ShowMessage(str_hex);
 //тут вызываешь функцию преобразования своего.

end;

спасибо большое. теперь не разберусь как 12EFD0 перевернуть до D0EF12
пробую продолжить-

procedure TForm1.Button2Click(Sender: TObject);
var
 i,time: integer;
 s,ns,str_hex: string;
begin
try
 time:= StrToInt(Edit1.Text)*3600;
 time:= time + StrToInt(Edit2.Text)*60;
except
 ListBox1.Items.Add('Ââåäèòå îáà çíà÷åíèÿ öèôðàìè!');
 exit;
end;
 str_hex:= IntToHex(time, 1);
 //ListBox1.Items.Add(str_hex);
begin
 s:=(str_hex);
 if Length(s) mod 2<>0 then exit;//åñëè â ñòðîêå íå÷åòíîå êîë-âî ñèìâîëîâ òî âûõîä
 ns:='';
 for i:=Length(s)div 2 downto 1 do ns:=ns+Copy(s,i*2-1,2);
 begin
 ListBox1.Items.Add(ns);
end;
end;

но сюда ListBox1.Items.Add(ns); ничего не выводится. где ошибся?
все разобрался.

[Roof]

{$R *.dfm}

//функция преобразования
function My_mix(s: string): string;
var i:integer;
 ns:string;
begin
 if Length(s) mod 2<>0 then exit;//если в строке нечетное кол-во символов то выход
 ns:='';
 for i:=Length(s)div 2 downto 1 do ns:=ns+Copy(s,i*2-1,2);
 Result:=ns;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
 Edit1.Text:= '';
 Edit2.Text:= '';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 time: integer;//предполагаю целые числа часов и минут
 str_hex, str_mix: string;
begin
try
 time:= StrToInt(Edit1.Text)*3600;
 time:= time + StrToInt(Edit2.Text)*60;
except
 ShowMessage('Введите оба значения цифрами!');
 exit;
end;
 str_hex:= IntToHex(time, 1);
 ShowMessage(str_hex);
 //тут вызываешь функцию преобразования своего.
 str_mix:=  My_mix(str_hex);
 ShowMessage(str_mix);

 ListBox1.Items.Add(str_mix);

end;

end.

почему в твоих топиках - код как код PHP?

[fize]

Roof если преобразовывать 344 часа 44 минуты то все правильно-
12EFD0
D0EF12
а если попробовать преобразовать 141 час 11 мин то-
7C164
167C
а должно-
64C170

почему в твоих топиках - код как код PHP?

да так вроде удобнее

[Roof]

исправь строку

 str_hex:= IntToHex(time, 1);

на строку

  str_hex:= IntToHex(time, 8);

Как удобней сам, конечно, решай. Но как-то непривычно подсветку разглядывать другую.

[fize]

отлично. спасибо.
как теперь полученное значение сохранить в файл .txt?

Как удобней сам, конечно, решай. Но как-то непривычно подсветку разглядывать другую.

ок. php больше не использую

[Roof]

Полученное в списке ListBox?

//новая кнопка - сохранить
procedure TForm1.Button2Click(Sender: TObject);
begin
 if ListBox1.Items.Count > 0 then
   ListBox1.Items.SaveToFile('my_text.txt')
 else
   ShowMessage('Пустой список - нечего сохранять!')
end;

[fize]

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

Полученное в списке ListBox?

//новая кнопка - сохранить
procedure TForm1.Button2Click(Sender: TObject);
begin
 if ListBox1.Items.Count > 0 then
   ListBox1.Items.SaveToFile('my_text.txt')
 else
   ShowMessage('Пустой список - нечего сохранять!')
end;

нет немного не то. если можно надо подключить savedialog и сохранять не с листбокса (это я для себя в листбокс вывожу) а с переменной. я код немного изменил сейчас так-

begin
try
 time:= StrToInt(Edit1.Text)*3600;
 time:= time + StrToInt(Edit2.Text)*60;
except
 ListBox1.Items.Add('Ââåäèòå îáà çíà÷åíèÿ öèôðàìè!');
 exit;
end;
 str_hex:= IntToHex(time, 8);
 str_mix:=  My_mix(str_hex);
 temp:=(str_mix);
for i:=1 to 73-length(str_mix) do temp:='0'+temp;
 ListBox1.Items.Add(temp);

соответственно сохранять нужно из переменной temp и данные дожны принять вид-
[3] //номер значения не имеет, произвольно
0=тут данные с переменной temp
вот так-

[3]
0=000000000000000000000000000000000 00000000000000000000000000000009071 0D00

p.s без пробелов