Pytanko [zamiana liczby na ASCII]

0

Jaka jest komenda w delphi, żeby zamienić znak dziesiętny na ASCII i na odwrót?

0

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

0

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.

0

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.

0

jjczopek: nadawaj postom lepsze tytuły [np: zamiana chara na byte]
MB: istnieje możliwość edycji postów (jedna z ikonek u góry)

0

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

1 użytkowników online, w tym zalogowanych: 0, gości: 1