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

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

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


Ответ
 
Опции темы
Старый 24.11.2019, 20: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, 09: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 15:30
Преобразовать x86 в x64 volod3000 Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 6 13.06.2015 23:05
Преобразовать код... CodeExpert Помощь студентам 3 09.11.2009 16:00
Как преобразовать код SeRhy HTML и CSS 1 17.08.2008 14:50
ПРЕОБРАЗОВАТЬ malevich Общие вопросы Delphi 1 07.12.2006 21:08


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840