安 安安 Unregistered / Unconfirmed GUEST, unregistred user! 2006-05-18 #1 就是现在任意输入一个字符串，但是我要求只保留数字，其他的都去掉，请问有什末方法吗?
D dreamisx Unregistered / Unconfirmed GUEST, unregistred user! 2006-05-18 #2 太简单了： for i:=Length(S) downto 1 do //S就是字符串 if not (S in ['0'..'9']) then Delete(S, i, 1); 其实你可以在输入时控制只输入数字。
太简单了： for i:=Length(S) downto 1 do //S就是字符串 if not (S in ['0'..'9']) then Delete(S, i, 1); 其实你可以在输入时控制只输入数字。
安 安安 Unregistered / Unconfirmed GUEST, unregistred user! 2006-05-18 #3 我把s:string; 报错string和char不匹配，请问怎末改？
刘 刘卫民 Unregistered / Unconfirmed GUEST, unregistred user! 2006-05-18 #4 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in ['0'..'9',#8]) then Key:=#0; end; // #8为退格键，你还可以加上#46(表示小数点)
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in ['0'..'9',#8]) then Key:=#0; end; // #8为退格键，你还可以加上#46(表示小数点)
Y yuzk2005 Unregistered / Unconfirmed GUEST, unregistred user! 2006-05-18 #5 for i:=Length(S) downto 1 do //S就是字符串 if not (S in ['0'..'9']) then Delete(S, i, 1);
