OnKeyPress und EIngabe prüfen

[MrDevil]

So weit so gut habe folgenden MiniCode zum prüfen der Eingabe

Delphi-Quellcode:

  
const
  ForbinndenChars = ['"', '<', '>', '|', '*', '/', '\', '?'];


if (key in ForbinndenChars) then key := #0;

Funktioniert - ABER wenn ich in das EditFeld die Verbotenenzeichen eingeben per EINFÜGE a la Zwischenablage so frisst das Edit sie - wie kann ich also auch das "Einfügen von Zeichen" prüfen?!

[mkinzler]

Versuch mal im Change-Event

[MrDevil]

Geht ja nicht da ich im OnChange die Variable Key nicht mehr habe

[Aurelius]

Dann mach doch ne Schleife for i := 1 to Length(Edit.Text) und überprüfe dort den jeweiligen Buchstaben an Position i. Vielleicht kann man das auch mit Stringreplace mach und als einzufügenden String '' nehmen.

[MrDevil]

habe es so gelöst

Delphi-Quellcode:

var
  b: byte; S, t: string;
begin
  S := Edit1.Text;
  for b := 1 to Length(S) do
    if S[b] in ForbinndenChars then
    begin
      t := Copy(s, 0, Length(S) - 1);
      S[b] := #0;
      Edit1.Text := t + S[b];
      Edit1.SelStart := Length(Edit1.Text);
      Edit1.SelText := '';
    end;