История сообщений по стрелке вверх.

[The SCS]

Есть поле ввода мемо1.
Необходимо организовать показ ранее отправленных сообщений по кнопке вверх, как в консоли.

Вот такой код по идее работать должен безотказно, а выходит как-всегда:
Переменная pmsgcnt подставляет "ячейку" массива для присваивания.

var
prevmsg: array[0..10] of string;
pmsgcnt: Integer = 0;
...
if Key = VK_UP then begin
  if pmsgcnt=10 then pmsgcnt:=0;
  memo1.Text:=prevmsg[pmsgcnt];
  pmsgcnt:=pmsgcnt+1;
  Exit;
end;
 if Key = VK_RETURN then begin
prevmsg[pmsgcnt]:=memo1.Text;
...
end;

[black_catt]

Код не логичный.
По идее нужно работать подобно стековому алгоритму
А у вас получается если нажал 3 раза вверх а потом enter то засрал 4-ю ячейку массива...
Уж молчу что не выполняется проверка на пустые ячейки команд...

[The SCS]

Это да =). В час ночи все что угодно напишешь..

[3D Hunter]

пустые сообщения можно не добвлять простой проверкой.