перевести из ASCII в HEX

[fize]

hex 3132333435363700 =
ascii 1234567
помогите с функцией что бы при вводе в едит1 числа 1234567 они переводились в hex 3132333435363700

[Goodwin98]

воткнуть тройки через букву ?

[IT-man]

  function IntToHex ( DecimalValue : Integer; MinimumWidth : Integer ) : string;

Функция IntToHex преобразует целое число DecimalValue в строку шестнадцатеричного формата не менее MinimumWidth символов.

edit1.text:=inttohex(strtoint(edit1.text),8);

[fize]

поможет кто нибудь?

[IT-man]

А чем тебя пост №3 не устроил??????

[eoln]

  s := '';
  for i := 1 to length(edit1.text) do
    s := s + inttohex(ord(edit1.text[i]),2);
  edit1.text := s

[fize]

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

  s := '';
  for i := 1 to length(edit1.text) do
    s := s + inttohex(ord(edit1.text[i]),2);
  edit1.text := s

большое спасибо.
IT-man - тем что это вообще не понятно что делает. к введенной цифре 8 нулей плюсует.

[fize]

помогите теперь сюда его встроить.

procedure TForm1.Button3Click(Sender: TObject);
var
 t,i:integer;
 f,sh, sm, sl:string;
begin
try
 t:= StrToInt(Edit1.Text);
 time:= time + StrToInt(Edit1.Text)*60;
except
 ADDLOG(2,'emply!');
 exit;
end;
 sh:= IntToHex(t, 8);
 sm:= (sh);
 Temp.Add('[4]');
 sl:= '4=';
for i := 1 to 10 do
 sl:= sl + '0';
 sl:= sl + sm;
 Temp.Add(sl);
for i := 0 to Temp.Count - 1 do;
if SaveDialog1.Execute then
begin
  F := SaveDialog1.FileName;
  Temp.SaveToFile(F);
  Temp.Clear;
 end;
end;