Hallo Delphi-Gemeinde,

ich habe folgenden Code , um nur bestimmte Zeichen in einem EditFeld(DB) zuzulassen:

markieren

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.

Es steht doch in der Meldung: CharInSet verwenden.

Hallo DeddyH,

das habe ich auch gelesen. Vielleicht hab ich meine Frage falsch gestellt.

Wie muss ich wo im Code etwas ändern ?

So geht´s nicht !

markieren

Delphi-Quellcode:

procedure TfrmKUNDENVERWALTUNG.cxDBEditPLZKeyPress(Sender: TObject;
  var Key: CharInSet);
begin
  if not (Key in ['0'..'9', ' ', charInSet(VK_BACK) ]) then
    key := #0;
end;

[DCC Fehler] Kunden.pas(304): E2250 Es gibt keine überladene Version von 'CharInSet', die man mit diesen Argumenten aufrufen kann

Wo? (Ein Blick in die OH sollte das eigentlich erklären)
Na, du mußt dein Key in ['0'..'9', ' ', charInSet(VK_BACK)] gegen den Aufruf des CharInSet austauschen.

Und Eventuell auch AnsiChar(VK_BACK) .
Ein Set kann nur maximal 256 Werte aufnehmen, was dann auch erklärt, warum Unicode (65536 Werte) dort nicht reinpaßt.

Wobei Embarcadero das auch beheben könnte, wenn man nicht den langsamen Assemblerbefehl (hat nur eine Byte-Adressierung) verwenden würde. (oder zumindestens nicht, bei größeren Sets)

Hallo himitsu,

gemäß Deinem Hinweis und meiner Änderung im Code :

markieren

Delphi-Quellcode:

//==============================================================================
//Im Feld PLZ dürfen nur Zahlen od. auch ein Leerzeichen eingegeben werden (11)
//==============================================================================
procedure TfrmKUNDENVERWALTUNG.cxDBEditPLZKeyPress(Sender: TObject;
  var Key: Char);
begin
  if not CharInSet(Key,[ '0'..'9', ' ', AnsiChar(VK_BACK) ]) then
    key := #0;

end;

funktioniert es jetzt einwandfrei. Keine Warnmeldungen beim Compilieren, zur Laufzeit funktioniert auch alles.

Besten Dank an Dich und DeddyH