Ładny brzuch
Jak przekonwertowa zapis hex na znaki (w drug stron poradziem sobie)?????
procedure TForm1.Button1Click(Sender: TObject); var s:tstringlist; i:integer; begin edit1.Text:='41 42 43 44 45 46 47 48'; edit2.Clear; s:=tstringlist.Create; ExtractStrings([' '],[' '],pchar(edit1.text),s); for i:=0 to s.Count-1 do s[i]:=chr(strtoint('$'+s[i])); edit2.Text:=s.Text; edit2.Text:=copy(StringReplace(edit2.Text,#13#10,' ',[rfReplaceAll]),1,s.Count*2-1); end;
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
procedure TForm1.Button1Click(Sender: TObject); var s:tstringlist; i:integer; begin edit1.Text:='41 42 43 44 45 46 47 48'; edit2.Clear; s:=tstringlist.Create; ExtractStrings([' '],[' '],pchar(edit1.text),s); for i:=0 to s.Count-1 do s[i]:=chr(strtoint('$'+s[i])); edit2.Text:=s.Text; edit2.Text:=copy(StringReplace(edit2.Text,#13#10,' ',[rfReplaceAll]),1,s.Count*2-1); end;