Code Optimierung und Frage zur Tastaturabfrage einer Memobox

[Jerry]

Hallo zusammen

Ich habe eine Memobox und möchte diese auf eine gewisse Zeilenanzahl beschränken.
Also ab der 4. Zeile darf "Enter" nicht mehr funktionieren.
Ich muss aber innerhalb meiner Memo-Box mit CTRL-Enter drücken, damit eine zusätzliche Zeile generiert wird.
Im Anhang mein Code:

Delphi-Quellcode:

procedure Tfrm_Test.mem_TestChange(Sender: TObject);
begin
  inherited;
  if mem_Test.Lines.Count > 4 then
    mem_Test.Lines.Delete(mem_Test.Lines.Count - 1);
end;

procedure Tfrm_Test.mem_TestKeyPress(
  Sender: TObject; var Key: Char);
begin
  inherited;
  if (mem_Test.Lines.Count = 4) and (Key = #$A) then  // hier Frage Wieso muss mit #$A statt #13 abgefragt werden? Ich weiss nicht was #$A ist? Habe ich mit Debug herausgefunden.
  begin
    Key := ' ';  // hier statt ' ' würde ich gerne auf Blank stellen geht aber nicht...
  end;

end;

Frage 1: Was ist #$A ? (habe ich mit Debuggen herausgefunden...
Frage 2: Statt Key auf ' ' zu setzen würde ich Key einfach gerne auf Blank setzen. '' geht aber nicht..

Kann das ganze etwas eleganter programmiert werden?

Vielen Dank!

[Sir Rufo]

1. $A => 13 (Decimal 13 ist Hex 0A oder eben A)
2.

Delphi-Quellcode:

Key := #0;

[Jerry]

Hi Sir Rufo

Vielen Dank, sehr einfach, wenn man's weiss. :-) !

[DeddyH]

$0A = 13 :?:

Ich dachte immer, $0A = 10, $0D = 13 :roll:

[himitsu]

oder auch ganz einfach #13

[Sir Rufo]

Zitat:

Zitat von DeddyH (Beitrag 1095308)

$0A = 13 :?:

Ich dachte immer, $0A = 10, $0D = 13 :roll:

Freitags unterschlage ich halt gerne 3 :mrgreen:

[Blup]

Die Taste Enter besser im OnKeyDown abfangen.
Dort kann man Key auf VK_RETURN (13 oder $0D) prüfen und wenn erforderlich auf 0 setzen.