Как декодировать символы в число?

@grigory59 · Регистрация: 16.08.2015

Author24 — интернет-сервис помощи студентам

подскажите Как получить код символа и обратно получить с числа Символ

@northener · 12.08.2016, 18:42

Функции Ord и Chr

@Kukuxumushu · 12.08.2016, 18:42

1) Ord(символ)
2) Chr(число)

@grigory59 · 13.08.2016, 11:12 **[ТС]**

не могу понять как вывести число символа в обоих вариантах выдват ошибку

Delphi

var s, s1,s3:string;
    l, a, in1, in2 :integer;
    x: Char;
begin
 s:= edit1.Text;
 l:= length(s);
 in1:= 0;
 
 for in2:=1  to l do
      begin
 
 if in1 < l then
   begin
      s3:= copy (edit1.Text, in2, 1);
 
     // ShowMessage('A = '+ IntToStr(Ord(s3));
     //memo1.Lines.Add(IntToStr(Ord(s3)));
   end;
 
    in1:=1;
end;
end;

@Puporev · 13.08.2016, 11:41

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    i:integer;
begin
s:=Edit1.Text;
Memo1.Clear;
if s='' then Memo1.Lines.Add('Строка пустая')
else
 for i:=1 to length(s) do
 Memo1.Lines.Add(inttostr(ord(s[i])))
end;

@grigory59 · 13.08.2016, 12:40 **[ТС]**

большое спасибо!!!

@grigory59 7 / 6 / 3 Регистрация: 16.08.2015 Сообщений: 168
		1
	Как декодировать символы в число? 12.08.2016, 18:39. Показов 666. Ответов 5 Метки нет (Все метки) подскажите Как получить код символа и обратно получить с числа Символ 0

@northener пофигист широкого профиля 4754 / 3189 / 861 Регистрация: 15.07.2013 Сообщений: 18,458
	12.08.2016, 18:42	2
	Функции Ord и Chr 1

@Kukuxumushu 1624 / 806 / 146 Регистрация: 13.06.2015 Сообщений: 3,266
	12.08.2016, 18:42	3
	1) Ord(символ) 2) Chr(число) 1

@grigory59 7 / 6 / 3 Регистрация: 16.08.2015 Сообщений: 168
	13.08.2016, 12:40 [ТС]	6
	большое спасибо!!! 0