Печатную машинку Memo1 Delphi7 использовать для Memo[i]

[zvygin1964]

Есть печатная машинка для Memo1 (Работает. Где украл не помню. Вносил изменения не понимая, что делаю.).

Вызывать её можно так:
begin
Key:= chr(j4 + 48) ;//чего-то делаем, чтобы привести к виду Key:Char;
Typewriter(Key);//процедура печатной машинки для Memo1
end;

Хочу добавить параметр номера Memo[i]:

procedure TForm1.Typewriter(var Key: Char);//заменить на (var Key: Char; i:Integer); {далее по тексту заменю Memo1 на Memo[i] сам.}
begin
 begin
  case Key of
  #8:
    begin
      Memo1.text:=copy(Memo1.text,1,length(Memo1.text)-1);        
    end;
  #13:
    begin
      Memo1.lines.add('');
    end;
  else
    begin
      Memo1.Text:=Memo1.Text+key;
    end;
  end;

  Memo1.SelStart:=length(Memo1.Text);
  sendmessage(Memo1.handle,EM_SCROLLCARET,0,0);  
 end;
end;

[Stilet]

Key:= chr(j4 + 48) ;//чего-то делаем, чтобы привести к виду Key:Char;

Что это еще за финт? О_о

Хочу добавить параметр номера Memo[i]:

Чито чито сделать??

[zvygin1964]

Что это еще за финт?

Это вы у МЕНЯ спрашиваете?!! Я же ничего не понимаю...! Для чего то нужно. Без "+48" работает не правильно. А "j4: Integer;",- просто глобальная переменная, это я её так обозвал.
Хочу эту процедуру использовать для других Memo.
Если не найду как, то буду изменять номера Memo в блокноте (вставлять эту пишущую машинку много раз).

[Аватар]

procedure TForm1.Typewriter(var Key: Char; Memo: TMemo);

Так передавай

[min@y™]

Дядьмиша, всё фигнёй маешься? Съездил бы на рыбалку или внуков навестил, штоли...
Накой хрен тебе этот комп?

procedure TForm1.Typewriter(var Key: Char; AMemo: TMemo);
begin
  if not Assigned(AMemo)
    then Exit;

  case Key of
    #8:  AMemo.text:= copy(AMemo.text, 1, length(AMemo.text) - 1); // bad idea
    #13: AMemo.lines.add('');
  else   AMemo.Text:= AMemo.Text + key;
  end;

  AMemo.SelStart:= length(AMemo.Text);
  sendmessage(AMemo.handle, EM_SCROLLCARET, 0, 0);
end;

А «+48» – это код клавиши «0».

[zvygin1964]

Легче не стало...

Typewriter(Key;AMemo);

Not enough actual parameters.
Теперь бы пример использования "AMemo", как его присваивать (или как это называется...).

[Alex11223]

Что-то по-моему и правда лучше последовать совету про рыбалку.

При вызове вместо второго параметра надо подставить нужный Memo:

Typewriter(Key, Memo1);
Typewriter(Key, Memo2);
Typewriter(Key, Memo[i]);

[zvygin1964]

Typewriter(Key, Memo3);

Да, так работает. Спасибо.