Zitat von
turboPASCAL:
@
FB 
Delphi-Quellcode:
procedure TfrmPcEkg.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
// if Key in ['0'..'9', Chr(VK_BACK)] then Key := #0;
// oder :
if Ord(Key) in [0..9, VK_BACK] then Key := #0;
// if (Key <> '0') and (Key <> '1') and (Key <> '2') and (Key <> '3') and
// (Key <> '4') and (Key <> '5') and (Key <> '6') and (Key <> '7') and
// (Key <> '8') and (Key <> '9') and (Ord(Key) <> VK_BACK) then
// Key := #0;
end;
Besser ?
Mist. Ich hatte
if Key in [0..9, Chr(VK_BACK)] then Key := #0;
und da hat der Compiler gemeckert. Deswegen hab ich es so umständlich gemacht. Einfach nur die ' vergessen.
Zitat:
Ach, worum ich euch bitten möchte, wenn ihr eine neue Version hochladet, macht das immer in dem selben Beitrag und verlinkt dann darauf.
Ist glaube ich besser, man nimmt immer einen neuen Beitrag, da man als User, der selbst etwas modifizieren will zuerst ganz hinten nach der neusten Version sucht.