Интерфес в паскале

@earthmarssuns · Регистрация: 04.12.2015

Author24 — интернет-сервис помощи студентам

Помогите, пожалуйста. нужно сделать интрефейс для данной программы (реализация шифра), т.е. нужно окно с кнопками: зашифровать/расшифровать и диалоговыми окнами для ввода и вывода текстов. Знаю, что можно как-то через forms в паскале. Но как именно не понимаю, как связать данный код с кодом для интерфейса. Помогите, пожалйста

текст программы:

Pascal

program ATB;
var l:real;
 
function Atbash(toCode: string): string; {функция реализации шифра}
var i: integer;
begin
for i := 1 to length(toCode) do
if ((toCode[i]>='а') and (toCode[i]<='я'))
then toCode[i]:=Chr(223-Ord(toCode[i]));
if ((toCode[i]>='А') and (toCode[i]<='Я'))
then toCode[i]:=Chr(159-Ord(toCode[i]));
Atbash := toCode;
end;
 
var
s: string;
word: string;
m: real;
k: real;
 
begin
writeln
readln(word);
s := Atbash(word);
writeln(#10,'Зашифрованное сообщение: ',s);
s := Atbash(s);
writeln(#10,'Расшифрованное сообщение: ', s);
write(#10);
end.

	12.12.2015, 23:11