Memo Feld Eingabe

[TStringlist]

Zitat von renekr:

Hi,
Danke das wäre ne Idee,aber sowas wie memo1.text -1 gibt es nciht ,oder?

doch fast:

Delphi-Quellcode:

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if  (Key = '-')
  and (Memo1.Text[Memo1.SelStart] = '-') then beep;
end;

Hier nur "Memo1.SelStart" (ohne -1), weil der Char ja zu diesem Zeitpunkt noch nicht "dazuaddiert" wurde.