|
Registriert seit: 15. Feb 2006
Ort: Hechingen
504 Beiträge
Delphi 10.2 Tokyo Professional
|
Re: Zahleneingabe in Edit verhindern ?
26. Jan 2010, 16:27
Zitat von himitsu:
...
Delphi-Quellcode:
procedure TForm1.Edit1Change(Sender: TObject);
var s: String;
i: Integer;
begin
s := TEdit(Sender).Text;
for i := Length(s) downto 1 do
if s[1] in ['0'..'9'] then // <------- s[i] oder s[1]?
Delete(s, i, 1);
//...
end;
//...
... Sollte es an der Stelle nicht s[i] heißen? 
Christian E. Es gibt 10 Arten von Menschen, die die Binär lesen können und die die es nicht können 
Delphi programming rules
|