Передача данных из Memo1 в Memo2

[DeKot]

Имеем следующий код.На форме два Memo, в один пишем текст, в другом синхронно отражаются коды символов, вводимых в 1-й Memo.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Memo2: TMemo;
    procedure Memo1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
var
  code: byte;
  simbol: char;
begin
   simbol:= Key;          // символ нажатой клавиши
   code:= ord(simbol);    // код ANSII символа
   Form1.Memo2.SelText:= IntToStr(code); // запись кода символа в Memo2
   Form1.Memo2.SelText:= ' ';            // разделяем коды пробелом
end;

end.

Каким образом можно сделать так, что бы -
1. при переносе строки в 1-м Memo во втором также осуществлялся перенос строки.
2. При удалении символа в первом Memo удалялся код удаленного символа во втором.
На рисунке видно процесс программы.

[SERG1980]

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then memo2.Text:=memo2.Text+#13#10
 else memo2.Text:=memo2.Text+inttostr(ord(Key))+' ';
end;

[DeKot]

SERG1980 спасибо - с переносом строки прекрасно работает.А как насчет удаления?

[VVM]

Я бы вообще бы так сделал, но есть недостаток один. При большом количестве символов притормаживать будет.

procedure TForm1.Memo1Change(Sender: TObject);
var
  I: integer;
begin
  Memo2.Clear;
  for I := 1 to length(Memo1.Text) do
    Memo2.Text := Memo2.Text + IntToStr(Ord(Memo1.Text[i])) + ' ';
end;

Зато можно спокойно удалять любой символ из memo1 =)

P.S. Чтобы не было тормозов, можно выполнять этот по принажатии на кнопку, при необходимости.

[DeKot]

To VVM что то похожее сейчас "изобретаю".Спасибо за подсказку.Предложеную Вами процедуру можно вызывать из Memo1KeyPress по условию

if code = 8 then Memo1Change

И думаю еще над вариантом - при этом условии - фокус в Memo2 , и
стереть последние два значения кода, опять вернуть фокус в Memo1.
Вот только как программно симитировать клавишу удаления?
Тут что то типа создать обработчик Memo2KeyPress и через Sender
вызывать с параметром нажатой клавиши удаления.

[NikLik]

А если юзверь будет удалять не последний символ?)

Пока что единственная идея-- вариант, предложенный VVM.

[VVM]

Вот только как программно симитировать клавишу удаления?

  keybd_event(VK_BACK, 0, KEY_EVENT, 0);

[Arigato]

VVM дал правильное решение. А что бы не тормозило сильно, я бы сделал так:

procedure TForm1.Memo1Change(Sender: TObject);
var
  I: integer;
  Str1, Str2: string;
begin
  Str1 := Memo1.Text;
  Str2 := '';
  for I := 1 to length(Str1) do
  begin
    Str2 := Str2 + IntToStr(Ord(Str1[i])) + ' ';
    if Str1[i] = #13 then Str2 := Str2 + #13#10;
  end; {for}
  Memo2.Text := Str2;
end;

Это должно с переводами строк еще работать.

[DeKot]

To Arigato - То, что требовалось. Большое спасибо! Всем откликнувшимся.