also du kannst einfach durch den Strign durchgehen und nach Buchstaben suchen lassen,
etwa so:
Delphi-Quellcode:
function sortiereBuchstabenaus (Edit1:string):string;
var i : integer;
helpstring1, helpstring2 : string;
begin
helpstring1 := uppercase(Edit1);
helpstring2 := '';
for i = 1 to length(helpstring1) do
begin
if not((copy(helperstring1,i,1) in ['A','B','C','D','E' ....usw.!]) then
helperstring2 := helperstring2 + copy(Edit1,i,1);
end;
result := helperstring2;
end;
So sollten keine Buchstabeneingaben mehr funktionieren, sie werden einfach aussortiert. Hoff ich, hab es nicht getestet und der Vergleich muss noch komplett gemacht werden.
[EDIT=thomasdrewermann]Rechtschreibfehler entfernt.[/EDIT]