Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Lazarus, Free Pascal, CodeTyphon
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 24.11.2019, 21:07   #1
GlobusVen
Новичок
Джуниор
 
Регистрация: 24.11.2019
Сообщений: 1
По умолчанию Преобразовать код

Нужно преобразовать код с delphi в lazarus. Системным преобразованием пробовал, но выводит символы, а должно шифр. Пожалуйста помогите!

procedure TForm1.Button2Click(Sender: TObject);
var
i,a,b,c,x,y:integer;
tex,pass,rez:string;
begin
begin

tex:=edit4.Text;
pass:=edit5.Text;
x:=length(tex);
y:=length(pass);
while x>y do begin
pass:=pass+edit5.Text;
y:=length(pass);
end;
for i:=1 to x do begin
a:=ord(tex[i]);
b:=ord(pass[i]);
c:=a+b;
if c>255 then c:=c-255;
rez:=rez+chr(c);
end;
edit6.caption:=rez;
end;

end;
GlobusVen вне форума Ответить с цитированием
Старый 25.11.2019, 10:42   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,260
По умолчанию

попробуй заменить String на AnsiString:
Код:
tex,pass,rez:AnsiString;
Serge_Bliznykov вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как преобразовать .wbk в .doc? slavw Софт 3 03.10.2017 16:30
Преобразовать x86 в x64 volod3000 Assembler - Ассемблер 6 14.06.2015 00:05
Преобразовать код... CodeExpert Помощь студентам 3 09.11.2009 17:00
Как преобразовать код SeRhy HTML и CSS 1 17.08.2008 15:50
ПРЕОБРАЗОВАТЬ malevich Общие вопросы Delphi 1 07.12.2006 22:08