摘要: procedure TMainForm.InputChange(Sender: TObject);var I: Integer; S, Number: string;begin Output.Text := ''; S := Input.Text; if CheckBox.Checked then begin Number := ''; for I := 1 to Length(S) do beg... 阅读全文
posted @ 2010-05-19 13:30 bingege 阅读(248) 评论(0) 推荐(0) 编辑