[Delphi] Hex

Odpowiedz Nowy wątek
2002-12-03 15:51

Rejestracja: 17 lat temu

Ostatnio: 9 lat temu

0

Haluś!
Mam pytanko podobnej terści co do zadanego z 2 miesiące temu. Posiadam sobie komponenty Edit1, Button1, i Button2. Zdarzenie OnClick Button1:
Edit1.Text := IntToHex(StrToInt(Edit1.Text), 6);
A do Button2 OnClick'a:
var
Hex : Integer;
begin
Hex := $ + StrToInt(Edit1.Text);
Edit1.Text := IntToStr(Hex);
I tutaj właśnie jest błąd, jeżeli w Edit1 jest jakaś cyfra zhexowana (z literkami) to generuje błąd że to nie jest integer. Jakiego użyć polecenia?? Z góry dzięki za podpowiedzi. Pa

--
"Jeżeli myślisz że jest dobrze... kompletnie się mylisz"
www.PAST-SKRIPTUM.prv.pl


A mówiłem, że I'll be back :P

Pozostało 580 znaków

2002-12-03 16:10

Rejestracja: 18 lat temu

Ostatnio: 1 rok temu

0

Hmm .. oglnie mi sie to nie widzi, zrobil bym tak:
var
Hex : Integer;
S : String;
begin
S:= '$' + Edit1.Text;
Hex := StrToInt(S);
Edit1.Text := IntToStr(Hex);
Moze zadziala ... kylix mi sie otwiera 4 minuty :/

--
Pozdrawiam [cya] Tomasz K.



Tomasz K.

Pozostało 580 znaków

2002-12-03 16:16

Rejestracja: 17 lat temu

Ostatnio: 9 lat temu

0

Dzięki :)))))))))) Działa!!!!!!!!!!!!!!!!!!!!!!!!!!!!! :):):):):):):):):):):):)

--
"Jeżeli myślisz że jest dobrze... kompletnie się mylisz"
www.PAST-SKRIPTUM.prv.pl


A mówiłem, że I'll be back :P

Pozostało 580 znaków

Odpowiedz

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0