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.