Jaka jest komenda w delphi, żeby zamienić znak dziesiętny na ASCII i na odwrót?
Z char na kod ASCII:
Ord(znak);
z ASCII na char:
Chr(kod_ASCII);
np.
Chr(65) zwroci nam 'A'
Ord('A') zwroci nam 65
dzięki. W php jest to samo, ale nie byłem pewny czy to zadziała.
PS. Jak ze stringa wyciągnąć jeden znak ?? Bo chce zrobić funkcje kodującą, i potrzebuje ze strina wybierać po kolei znaki.
Odnośnie:
"PS. Jak ze stringa wyciągnąć jeden znak ?? Bo chce zrobić funkcje kodującą, i potrzebuje ze strina wybierać po kolei znaki."
Do kolejnych znaków stringa odwołujesz się w następujący sposób:
nazwaZmiennej[X]
W nawiasie podajesz nr znaku w stringu, nie od 0 ale od 1, np.
for I:=1 to length(ZmiennaString) do
begin
DrugaZmienna := DrugaZmienna + ZmiennaString[i];
end;
Wiem, że procedura bez sensu, ale chodzi tylko o pokazanie możliwości odwołań do konkretnych znaków zmiennej łańcuchowej.
jjczopek: nadawaj postom lepsze tytuły [np: zamiana chara na byte]
MB: istnieje możliwość edycji postów (jedna z ikonek u góry)
Mam taką procedure:
begin
edit:=edit2.Text;
dl:=length(edit);
for i:=1 to dl do
begin
res:=chr(strtoint(edit[i]));
wynik:=wynik + res;
end;
edit1.Text:=wynik;
end;
Jak to zrobić żeby wybierał po dwa znaki ze stringa, a potem dopiero odkodowywał ??