Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

24th
Фев

Перевести коды ASCII в символы

Posted by Chas under Delphi

Кодировку в ASCII символы программа выполняет а вот кодировку из них я так и непонял как сделать.

Serge_Bliznykov
кнопочка «Декодировать» :

implementation

uses StrUtils;
....
procedure TForm1.Button2Click(Sender: TObject);

var

  CommaPos, OldCommaPos : integer;

  str1, str2, sOne : string;

begin

  str2 := '';

  str1 := StringReplace( Memo2.Text, #13#10, '', [rfReplaceAll]);

  OldCommaPos := 1;

  CommaPos := PosEx(',',str1,OldCommaPos);

  while CommaPos>1 do begin

    sOne := copy(str1, OldCommaPos, CommaPos-OldCommaPos);

    str2 := str2 + chr(StrToInt(sOne));

    OldCommaPos := CommaPos+1;

    CommaPos := PosEx(',',str1,OldCommaPos);

  end;

  memo1.text:=str2;

end;