hallo,
das mitdem code funzt nicht !
Delphi-Quellcode:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = DecimalSeparator then
key := 0;
end;
Delphi-Quellcode:
[Warnung] Unit1.pas(743): Symbol '
Range' ist plattformspezifisch
[Fehler] Unit1.pas(967): Inkompatible Typen: '
Char' und '
Integer'
[Fataler Fehler] Project1.dpr(91): Verwendete
Unit '
Unit1.pas' kann nicht compiliert werden
mfg vader