Jak zamienić String na Hex hmm...
np:
46 69 6C 65 = 'file' ?
Pozdrawia Karol {browar}
--
The Delphi has you ...
Wątek zablokowany 2017-11-04 23:32 przez furious programming.
Jak zamienić String na Hex hmm...
np:
46 69 6C 65 = 'file' ?
Pozdrawia Karol {browar}
The Delphi has you ...
oto kod:
var
i: Integer;
S, SHexowy: String;
begin
S := '4programmers';
for i := 1 to Length(S) do
SHexowy := SHexowy + ' ' + IntToHex(Ord(S[i]),2);
ShowMessage(SHexowy);
end;
jak chodzilo o cos innego to przepraszam :)---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-
Dzięki !
O to chodziło ! {browar} ------------------------------------------------------------
The Delphi has you ...
Mozna tak :
function StrToHex(sString: string): string;
var
i : integer;
begin
result:='';
for i:=1 to length(sString) do
result:=result+' '+IntToHex( Ord(sString[i]) , 2);
end;
wiem że nic nie wiem ;)
Pozdrowienia Chodek