procedura na podstawie artu
procedure deszyfruj;
var
S : String;
Len : Integer;
I : Integer;
Code : String;
begin
Form1.Memo3.Lines:= Form1.Memo2.Lines;
S := Form1.Memo2.Lines.Text;
Len := Length(S);
for I := 1 to Len do
begin
case (S[i]) of
tab[0]:
begin
Code := Code + 'a';
end;
else
Code := Code + S[i];
end;
Form1.Memo3.Clear; // czyść
Form1.Memo3.SelText := Code;
end;
dalczego mi to nie chodzi(chodzi o fragment tab[0]:) [cya]