jak to zrobić?
chodzi o całą zawartośc
0
0
Jesli dobrze rozumiem to chodzi o to żeby liczbe z systemu dziesiatkowego zamienic na szesnastkowy ?
Jesli dobrze rozumiem to zrob tak:
var
I : Integer;
begin
I := StrToInt(Memo1.Text);
Label1.Caption := IntToHex(I,4);
end;--Pozdrawiam {hello}
Tomasz K.
0
heh chyba raczej chodzilo o cos w stylu:
var
i : integer;
S : String;
begin
for i := 1 to Length(Memo1.Text) do
S := S + IntToHex(Ord(Memo1.Text[i]),2) + ' ';
Memo2.Text := s;
end;
to zamienia kazdy znak z Memo1 na jego numer Ascii zapisany w systemie szesnastkowym i wyswietla calosc w Memo2 :)---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-