2007 年 11月 24 日随笔档案 - 万一

2007年11月24日

摘要： procedure DelFiles(f: string); var SearchRec: TSearchRec; begin ChDir(ExtractFilePath(f)); //进入文件路径 FindFirst(f, faAnyFile, SearchRec); repeat if FileExists(SearchRec.Name) then begi... 阅读全文

posted @ 2007-11-24 23:43 万一阅读(3203) 评论(2) 推荐(0)

Memo 的当前行、当前列与当前字符

摘要： procedure TForm1.Memo1Click(Sender: TObject); begin Text := Format('当前列:%d, 当前行:%d', [Memo1.CaretPos.X, Memo1.CaretPos.Y]); end; //用 API 实现 procedure TForm1.Memo1Click(Sender: TObject); var Line... 阅读全文

posted @ 2007-11-24 23:04 万一阅读(6872) 评论(11) 推荐(0)

Edit 的使用

摘要： //让 Edit 只接受数字 //方法1： procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in ['0'..'9']) then Key := Chr(0); end; //方法2： procedure TForm1.Edit1KeyPress(Sender: T... 阅读全文

posted @ 2007-11-24 11:48 万一阅读(6412) 评论(20) 推荐(0)