Delphi自学
绍兴老鼠
这个作者很懒,什么都没留下…
展开
-
Delphi选择指定路径作为操作路径
if SelectDirectory('选择文件提取路径', 'd:\', Str) thenbegin Memo1.Lines.Add('已选定[' + Str + ']为检索目录'); Edit1.Text := Str;endelsebegin Exit;end;原创 2019-12-19 11:19:19 · 348 阅读 · 0 评论 -
Delphi Opendialog用法
// Dlgopen1 := TOpenDialog.Create(nil);// try// //Dlgopen1.Filter := ‘TEL Marking File(.map)|.map’;// //Dlgopen1.DefaultExt := ‘*.map’;// if Dlgopen1.Execute then// begin// St...原创 2019-12-19 11:17:35 · 1310 阅读 · 0 评论 -
Delphi快速从文件流读取数据存入本地txt
Delphi快速从文件流读取数据存入本地var:fs:TFileStream;Path:string;Buf4:array[0…3] of byte;Str:string;beginfs := TFileStream.Create(Path+’*.map’, fmOpenRead or fmShareExclusive);with fs dobeginposition:=0;...原创 2019-12-19 11:14:20 · 986 阅读 · 0 评论