[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; 


[AND_REY]

Код:

While n <= Length(Edit1.Text) Do

[Scooby_Do]

Не получается...не выводит в Label(

[AND_REY]

Скинь проект посмотрю отредактирую.

[Scooby_Do]

PHP код:

unit project1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Label2: TLabel;
    Button2: TButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(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, 2);
   For i:= 1 To 58 Do if S = M[i] Then Label1.Caption:= Label1.Caption + Z[i];
   Inc(n, 2);
  end;
end;


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;

end. 


и ещё, как в сделать так, что бы результат выводил не в Label, а в Memo. Memo1.Name и просто Memo не работает(((

[AND_REY]

Работает нормально: Coder.rar

[Scooby_Do]

Спасибо огромное. Вот появилась ещё одна проблема....ппц...не компилируется. Ошибок-то нет: я нажимаю на Compile(ctrl+f9) и ни чего не происходит. Debag работает. Может это из-за пиратской версии Delphi или из-за того что я её не активировал)

[AND_REY]

Просто F9 нажми посмотри вообще запускается в среде.
У меня Windows 7 64bit хотя я думаю не в этом проблема.
Создай чистый проект и скопируй туда код может так запустится.
На всяк случай Coder v1.0.rar

[Scooby_Do]

f9 работает. Запускается. Блин, ща попробую новый проект сделать!

[Scooby_Do]

неа, создал новый проект, скопировал код с того, тоже не компилируется(( попробую переустановить delphi