Ĺ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
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?
