letztes Zeichen löschen

OliverN_26 · Beiträge: 252 Win7 64-Bit, WinXP SP3 Delphi 7 Enterprise

Hi Leute

Ich breche mir hier gerade die Zähne an was eigentlich total banalem aus.
Ich schreibe in einem RichEdit Feld und habe ich Zeichenanzahl auf 200 begrenzt.
Jetzt will ich dass bei Zeichen 201 das Letzte einfach nur gelöscht wird und der Cursor
natürlich automatisch wieder einen zurück springt.

ich habs mit folgendem probiert:

markieren

Quelltext

1:	if Length(RichEdit1.Text) > 200 then

markieren

Quelltext

1:
2:
3:

SetLength(s,200);
oder
Delete(s,200,1);

Aber nix davon geht. Den Code habe ich im OnKeyUp oder OnKeyPress versucht.
Warum geht das nich? Oder übersehe ich was?

lg

Bergmann89 · Verfasst: Do 09.12.10 16:34

Hey,

prüf im OnKeyPress einfach ob die Länge größer als 200 ist. Wenn ja dann "lösch" den Tastendruck einfach:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure OnKeyPress(Sender: TObject; var Key: Char);
begin
  if Length(RichEdit1.Text) > 200 then
    Key := #0;
end;

MfG Bergmann.

_________________
Ich weiß nicht viel, lern aber dafür umso schneller^^

OliverN_26 · Beiträge: 252 Win7 64-Bit, WinXP SP3 Delphi 7 Enterprise

hey danke .. genau das habe ich gesucht :-)

Bergmann89 · Verfasst: Do 09.12.10 16:41

Hey,

evtl musst du das ganze noch etwas anpassen un die Backspace-Taste und solche Funktionstasten wieder zulassen, damit der User den Text weiterhin noch bearbeiten kann, ohne dessen Länge zu ändern.

MfG Bergmann.

_________________
Ich weiß nicht viel, lern aber dafür umso schneller^^

OliverN_26 · Beiträge: 252 Win7 64-Bit, WinXP SP3 Delphi 7 Enterprise

Nein. Das passt so, da, wenn der Text länger 200 Zeichen ist der letzte Tastendruck einfach nicht gewertet wird.
Da bei Backspace sind die Textlänge ja wieder um 1 verringert, geht das alles genau so wie ich es wollte :-)

Danke nochmal

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme