03-05-2012, 09:12 PM
كود :
procedure TForm1.Button1Click(Sender: TObject);
var i : byte;
s : string;
begin
s := edit1.Text;
for i := 1 to length(s) do
begin
if s[i] in [' ','/'] then
delete(s,i,1);
end;
edit1.Text := s;
end;