VPF::Преобразование строки чисел в строку символов

RinOSpro

Дата 7.1.2007, 22:27 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

Перевести все символы из едит в коды 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 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Код


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

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

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

--------------------

Ll 2

Matematik

Дата 7.1.2007, 22:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »