а сейчас не хочет запускаться , ошибка - EditText.text не понимает , наверно опечатка , но когда исправляю вот так ,
Edit1.Text := Viginer(Edit3.Text, EditKey.Text , 'abcdefghigklmnopqrstuvwxyz', true);
Edit2.Text := Viginer(Edit1.Text, EditKey.Text , 'abcdefghigklmnopqrstuvwxyz', false);
то начинает не понимать что такое EditKey
и увидел ошибку после then (comparing signed and unsigned types - widened both operands)
if k > Length(Key) then k := 1
else inc(k);
|