Coder/Decoder ASCII

[DKENT]

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

Вот пример кодировки.

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
str : string;
begin
for i:=1 to length(memo1.text) do
str := str + inttostr(Ord(memo1.Text[i]))+',';
memo2.text:=str;
end;

[Serge_Bliznykov]

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

что означает "кодировку из них" ?
Вернуть из кодов ASCII обратно в символы?

[DKENT]

Сообщение от Serge_Bliznykov

что означает "кодировку из них" ?
Вернуть из кодов ASCII обратно в символы?

Да да имено так!

[phomm]

Функция Chr

[DKENT]

То что функция Chr я знаю, мне необходимо зделать расшифровку в цикле!
Тоесть есть у меня значения ASCII 122,53,67,85 и так далее..
Через запятую перечисляется 1 символ!
Вот мне нужно в компонент memo1 вставить строку типа 122,53,67,85 а в компоненте memo2 получить строковые символы типа abcd.

[phomm]

Если у Вас через запятую записаны цифры (символами) то в цикле функцией Pos ищите запятую и вырезайте функциями Copy+Delete всё что до запятой, преобразуйте функцией strtoint в число и скармливайте уже функции Chr

[Пепел Феникса]

вырезайте функциями Copy+Delete всё что до запятой

вместо Delete PosEx.

[phomm]

Я хотел предложить, но PosEx сложнее малость в обращении, а надо бы "новичковское" решение. Ну и тогда ещё добавлю то для PosEx надо подключать модуль StrUtils.

[psycho-coder]

phomm: чем же оно сложнее? Есть третий параметр, который обозначает место старта?

CharPos := 0;
for 0 to 0 do
begin
  CharPos := PosEx('needle', Str, CharPos);
  SomeChar := Copy(Str, CharPos, 2); // например
end;

помоему все очень понятно и легко.

P.S. Код разумеется чисто для примера и врядли будет работать

[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;

p.s. кстати, в кнопке Button1 (кодировка) весьма рекомендую перед циклом обнулить переменную str - это 100% не помешает!

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
str : string;
begin
  str := '';
  for i:=1 to length(memo1.text) do
     str := str + inttostr(Ord(memo1.Text[i]))+',';
  memo2.text:=str;
end;