Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Преобразование строки чисел в строку символов

Автор: RinOSpro 7.1.2007, 22:27

Здравствуйте мне задали примерно так:

Перевести все символы из едит в коды ANSI
а потом из этих кодов собрать слово

перевести симолы в число реализовал

Код


var
sr : string;
i : integer;
begin
for i:=1 to Length(Edit4.Text) do
begin
sr := copy(Edit4.Text, i ,1);
Edit5.Text := Edit5.Text+inttostr(Ord(Sr[1]));
end;

а обратно нет

Добавлено @ 22:29
помогите пожалуйста!

Автор: Guedda 7.1.2007, 22:33

Код


//Функция для преобразования символа в код
Ord();
//Функция для обратного преобразования:
Chr();

Вот и отталкивайся от этого.

Здесь за тебя ничего не сделают, а только подскажут направление. Если хочешь, чтобы за тебя сделали, иди в раздел "Центр Помощи"

Автор: Matematik 7.1.2007, 22:33

см. BinToHex() HexToBin()
uses Classes;