Hallo Delphi-Gemeinde,
ich habe folgenden Code , um nur bestimmte Zeichen in einem EditFeld(
DB) zuzulassen:
Delphi-Quellcode:
Zeile 298 : { Im Feld PLZ dürfen nur Zahlen oder auch ein Leerzeichen eingegeben werden}
Zeile 299 : procedure TfrmKUNDENVERWALTUNG.cxDBEditPLZKeyPress(Sender: TObject;
Zeile 300 : var Key: Char);
Zeile 301 : begin
Zeile 302 : if not (Key in ['0'..'9', ' ', char(VK_BACK) ]) then
Zeile 303 : key := #0;
Zeile 304 : end;
Das ganze funktioniert auch so wie ich es haben will.
Allerdings bekomme ich beim compilieren folgende Warnmeldungen, was muss ich tun um diese Warnmeldungen wegzubekommen ?
[DCC Warnung] Kunden.pas(302): W1050 WideChar in Set-Ausdrücken auf ByteChar verkürzt. Ziehen Sie die Verwendung der Funktion 'CharInSet' aus der
Unit 'SysUtils' in Betracht.