Bestimmte Schlüssel in einer Bearbeitungsbox stoppen

Question

So habe ich bereits Code. Aber wenn es ausgeführt wird, lässt es den Rückschrittschlüssel nicht zu, ich brauche es, um den Rückschrittschlüssel zuzulassen und die Leertaste zu entfernen, da ich keine Leerzeichen möchte.

procedure TForm1.AEditAKeyPress(Sender: TObject; var Key: Char); 
var s:string; 
begin 
s := ('1 2 3 4 5 6 7 8 9 0 .'); //Add chars you want to allow 
if pos(key,s) =0 then begin Key:=#0; 
showmessage('Invalid Char'); 
end; 

Brauchen dank Hilfe: D

Answer 1

Notieren Sie sich den Kommentar, die bereits in Ihrem Code ist:

procedure TForm1.AEditKeyPress(Sender: TObject; var Key: Char); 
var s:string; 
begin 
    s := ('1234567890.'#8); //Add chars you want to allow 
    if pos(key,s) =0 then begin 
    Key:=#0; 
    showmessage('Invalid Char'); 
    end; 
end; 

Answer 2

Es ist besser, Ihre erlauben Schlüssel in einem Satz als Konstante (Geschwindigkeit, Optimierung) zu setzen :

Aktualisiert # 2 Erlauben Sie nur ein Dezimalzeichen und die Handhabung von DecimalSeparator.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
const 
    Backspace = #8; 
    AllowKeys: set of Char = ['0'..'9', Backspace]; 
begin 
    if Key = '.' then Key := DecimalSeparator; 
    if not ((Key in AllowKeys) or 
    (Key = DecimalSeparator) and (Pos(Key, Edit1.Text) = 0)) then 
    begin 
    ShowMessage('Invalid key: ' + Key); 
    Key := #0; 
    end; 
end; 

Für bessere Ergebnisse zu sehen TNumericEdit Komponenten, die in DevExpress, JVCL, EhLib, RxLib und vielen anderen Bibliotheken.

Answer 3

Mit psychic powers prognostiziere ich, dass Sie versuchen, einen Gleitkommawert zu validieren.

Sie können die OnExit-Ereignis des Steuerelements verwenden oder die Ok/Save Einrichtung Ihrer Form das richtige Format wie folgt zu überprüfen:

procedure TForm1.Edit1Exit(Sender: TObject); 
var 
    Value: Double; 
begin 
    if not TryStrToFloat(Edit1.Text, Value) then begin 
    // Show a message, make Edit1.Text red, disable functionality, etc. 
    end; 
end; 

Dieser Code geht davon aus, dass Sie ein länderspezifisches Dezimaltrennzeichen verwenden möchten . Wenn Sie nur einen zulassen möchten, können Sie einen TFormatSettings Datensatz als dritten Parameter an TryStrToFloat übergeben.