Ich möchte gerne in einen TMemo nur 255 zeichen zulassen. Sowohl Tabs wie auch Enter sind ausgeschaltet. WordWrap eingeschaltet. In der ersten zeile gibt es keien Probleme. in der Zweiten wird jede Leertaste als zwei in jeder Dritten als Drei Zeichen usw gezählt.
Auch der automatische Zeilenumbruch wird mitgezählt (mit unterschiedlicher anzahl an zeichen), wobei der doch eigenlich nur visuell ist (oder nicht?).
Wer kann helfen?
Delphi-Quellcode:
procedure TSchritt1.KurzbeschreibungKeyPress(Sender: TObject;
var Key: Char);
var s : string;
i : integer;
begin
s := '';
for i := 0 to (kurzbeschreibung.lines.count -1) do
s := s + kurzbeschreibung.lines.text;
i := 255 - Length(s);
label4.caption := inttostr(i);
if i = 0 then begin
key := #0;
Showmessage('Sie können nicht mehr als 255 Zeichen eingeben');
end;
end;