конвертирование Hex -> Text и Float -> Int

[NikOnLine]

Помогите plz разобрнатся. Текстовое число конвертирую в HEX через IntToHex. Потом нада результат вывести в тхт поле, например Edit1.Text.
Тоисть

Form1.Edit1.Text:=IntToHex(data;8);

некатит.
И подскажите plz можно ли перебить Extended(Float) в Integer(Int).

[Air]

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

Помогите plz разобрнатся. Текстовое число конвертирую в HEX через IntToHex. Потом нада результат вывести в тхт поле, например Edit1.Text.
Тоисть

Form1.Edit1.Text:=IntToHex(data;8);

некатит.
И подскажите plz можно ли перебить Extended(Float) в Integer(Int).

Вот пробуй:

const
HEX:ARRAY['A'..'F'] OF INTEGER=(10,11,12,13,14,15);

...

Function HexToInt(HexValue:String):Integer;
var
Int,i:integer;
begin
Result:=-1;
Int:=0;
FOR i:=1 TO Length(HexValue) DO
IF HexValue[i] < 'A' THEN
begin
Int:=Int * 16 + ORD(HexValue[i]) - 48;
Result:=int;
end
ELSE
begin
Int:=Int * 16 + HEX[HexValue[i]];
Result:=int;
end;
end;

...

procedure TForm1.Button1Click(Sender: TObject);
var Data:integer;
begin
data:=123;
edit1.Text:=IntToHex(data,sizeof(data));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit2.Text:= inttostr( hextoint( edit1.Text ));
end;

[NikOnLine]

Спасибо!!!!
Заработало))
А по поводу конвертирования Extended(Float) в Integer(Int) кто нибуть подскажет. предполагаю что можно перебить сначала FloatToStr а потом StrToInt при етом округляя число к целому. По проще есть варианты, чем придумывать велосипед? подскажите.

[Air]

strtoint, inttostr, Float... - это всё системные функции, НЕ рекомендую что-то в них менять, инече придётся весь SysUtils и System перебивать (как ты говоришь)

[Квэнди]

функции
round
roundto

[Air]

Сообщение от Квэнди

функции
round
roundto

roundto - Это куда , даже у меня татого нет...

[Квэнди]

F1 тоже выломали из клавиатуры ?
RoundTo Routine

Rounds a floating-point value to a specified digit or power of ten using "Banker's rounding".

Unit
Math

Syntax


[Delphi] function RoundTo(const AValue: Double; const ADigit: TRoundToRange): Double;


Description
Call RoundTo to round AValue to a specified power of ten.

AValue is the value to round.

ADigit indicates the power of ten to which you want AValue rounded. It can be any value from –37 to 37 (inclusive).

RoundTo uses "Banker's Rounding" to determine how to round values that are exactly midway between the two values that have the desired number of significant digits. This method rounds to an even number in the case that AValue is not nearer to either value.

The following examples illustrate the use of RoundTo:
Expression Value
RoundTo(1234567, 3)
1234000

RoundTo(1.234, -2)
1.23

RoundTo(1.235, -2)
1.24

RoundTo(1.245, -2)
1.24

Note:
The behavior of RoundTo can be affected by the Set8087CW procedure or SetRoundMode function.

[Air]

Модуль "Math" не является модулем по умолчанию, значит необходимо указать его.
____________
P.S. Даже хороший программист не может знать всего.

[Eofol]

Еще один способ Int -> Hex:

Form1.Edit1.Text := Format('%0:x', [<Целое число>])

[Квэнди]

что есть "модуль по умолчанию" ? таких не знаю