Kako da sprijecim da u npr Edit1 onemogucim unos znakova / i " (koji mi smetaju u sql) a da ostale a da ostale znakove mogu normalno unositi.
Sprecavanje unosa pojedinih znakova
Zaključano
Zakačeno
Code:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key in [#34, #47] then //#34 = " #47 = /
Key:=#0;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key in [#34, #47] then //#34 = " #47 = /
Key:=#0;
end;