Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 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,238
По умолчанию

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как преобразовать .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 15:50
ПРЕОБРАЗОВАТЬ malevich Общие вопросы Delphi 1 07.12.2006 21:08