Курсовая работа: Текстовый редактор "Блокнот" с функцией шифрования - дешифрования классическими криптографическими методами
mas [i,j]: =' ';
end;
m3. Text: =m1. Text;
{for i: =2 to n+1 do
begin
g: =pos (mas [i,1],b); edit3. Text: =edit3. Text+inttostr (g);
for h: =1 to n+1 do
begin
mas1 [h]: =mas [i,h] ;
mas2 [g,h]: =mas1 [h] ;
end;
end;
for j: =2 to n+1 do
begin
g: =pos (mas [1,j],a);
for h: =1 to n+1 do
begin
mas1 [h]: =mas2 [h,j] ;
mas [h,g]: =mas1 [h] ;
end;
end;
for i: =2 to n+1 do
for j: =2 to n+1 do
m3. Text: =m3. Text+mas [i,j] ;
if c<>'' then goto 5; }
end;
if form4. RadioGroup1. ItemIndex=4 then
begin
M3. Clear;