все, уже скомпилировалось. Слушай. Вот код:
PHP код:
procedure TForm1.Button2Click(Sender: TObject);
Var
i: Integer;
begin
n:= 1; S1:= '';
While n <= Length(Edit1.Text) Do
begin
S:= Copy(Edit1.Text, n, 1);
For i:= 1 To 65 Do if S = Z[i] Then S1:= S1 + M[i];
Inc(n, 1);
end;
Memo1.Lines.Add(S1);
end;
как сделать так, что бы знаки препинания не кодировались? else не работает почему-то((