ďťż

Ładny brzuch

Wiem na 100%, że jest komponent do Delphi7 tłumaczący zwykły tekst do hexów i odwrotnie ;)

Ma go ktoś może?



Po co komponent. Masz tu przykład zamiany tekstu na HEX:
Postaw na formę Edit, Button i Memo.

procedure TForm1.Button1Click(Sender: TObject); var  s, s2 : string;  i     : integer; begin  s := Edit1.Text;  s2 := '';  for i :=1 to length (s) do  begin    s2 := s2 + IntToHex(Ord(s[i]), 2)+ ' ';  end;  Memo1.Lines.Add(s2); end;


(...)

obejrzyj sobie demko ResXPlor czy jakos tak ;) ma fajny podglad w hex :)

I jak wyczyścić memo1?




(...)
memo1.Clear; :>


Możesz mi jeszcze podać procedure w drugą stronę?
Z Hex'ów na tekst.
I jak wyczyścić memo1?

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
  •