[Scooby_Do]

Всем привет. Я недавно в delphi. Вот решил написать простую программу. Вообщем вот: пользователь вводит в поле Edit какой-то текст. По нажатию кнопики Button, программа должна проверить текст, введенный в поле, на наличие символов и вывести результат в Label.

Допустим пользователь ввел 1a2b3c. Каждые два символа обозначают какую-то букву(типа шифровки):
1a:= a
2b:= р
3c:= o
Причем, если ввел 1a3c, то вывести в label ao, если 3с2b, то op и т.д. вообщем своя шифровка)

ВОПРОС: как сделать так, что бы программа проверяла каждые два символа?? Я так понимаю что нужен цикл. Я работал два года в языке pawn, так что общие понятия программирования знаю)))

[AND_REY]

Вроде так, может и проще можно:

Код:

procedure TForm1.Button1Click(Sender: TObject);
Const
 M: Array[1..3] of String = ('1a', '2b', '3c');
 Z: Array[1..3] of String = ('а', 'р', 'о');
Var
 S: String;
 n, i: Integer;
begin
 n:= 1; Label1.Caption:= '';
 While n < Length(Edit1.Text) Do
  begin
   S:= Copy(Edit1.Text, n, 2);
   For i:= 1 To 3 Do if S = M[i] Then Label1.Caption:= Label1.Caption + Z[i];
   Inc(n, 2);
  end;
end;

[Scooby_Do]

Спасибо огромное. Я так понял, что бы добавлять свои символы и их значения, надо просто прописать их в

PHP код:

M: Array[1..3] of String = ('1a', '2b', '3c');
 Z: Array[1..3] of String = ('а', 'р', 'о'); 


я правильно рассуждаю?

[AND_REY]

Да правильно.
Еще надо поменять For i:= 1 To 3 Do... вместо 3 к-во символов в массиве.

Можно еще не по 2 сравнивать а по 3 и больше. Для этого надо сменить

Код:

 S:= Copy(Edit1.Text, n, 2);
 Inc(n, 2);

Причем в соотведствие можно и так написать:

Код:

M: Array[1..3] of String = ('1a', '2b', '3c'); 
 Z: Array[1..3] of String = ('Привет', 'не знаю', '177');

[Scooby_Do]

Хорошо, спасибо. А как в этот же тексте, то есть в тексте из Edit выловить eeee lklk ikik? То есть у нас eeee это пробел, lklk это !(восклицательный), а ikik это ?(вопросительный)

[Scooby_Do]

у меня почему-то не работает обратное. То есть зашифровать текст. Вот, посмотри, где я ошибаюсь?

PHP код:

procedure TForm1.Button2Click(Sender: TObject);
Const
 M: Array[1..58] of String = ('ox','uh','rr','un','yk','he','po','mq','me','je','eq','hh','pl','kj','nb','mm','cz','zz','xx','io','rg','nj','qs','tc','qw','nc','ba','wv','op','lm','dd','ad','1m','0w','3u','6v','7d','9i','d1','z3','q4','6c','7f','9g','8b','k3','9c','3a','5q','8d','j1','z1','#6','2p','3l','6o','8y','c1');
 Z: Array[1..58] of String = ('а','б','в','г','д','е','ё','ж','з','и','к','л','м','н','о','п','р','с','т','у','ф','х','ц','ч','щ','ш','ь','ы','ъ','э','ю','я','a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z');
Var
 S: String;
 n, i: Integer;
begin
 n:= 1; Label1.Caption:= '';
 While n < Length(Edit1.Text) Do
  begin
   S:= Copy(Edit1.Text, n, 1);
   For i:= 1 To 58 Do if S = Z[i] Then Label1.Caption:= Label1.Caption + M[i];
   Inc(n, 1);
  end;
end;