Warten bis Event OnKeyDown abgearbeitet ist

[Jasocul]

Zitat von concept2015:

Umsetzung für Sonderzeichen ????
Hier ?

Code:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  // Tasteneingabe nur Numerisch
  if not (key in [#8,#13,#48..#57]) then key := #0;
end;

Nein, hier:

Inp.ki.wVk := Ord(UpCase(Str2[i])); Wenn du an dieser Stelle auf ein Komma triffst, wird der Ordinal-Wert (44) vom Komma übergeben. Du musst aber VK_SEPARATOR (108) übergeben.