- 博客(3)
- 资源 (1)
- 收藏
- 关注
原创 Delphi选择指定路径作为操作路径
if SelectDirectory('选择文件提取路径', 'd:\', Str) thenbegin Memo1.Lines.Add('已选定[' + Str + ']为检索目录'); Edit1.Text := Str;endelsebegin Exit;end;
2019-12-19 11:19:19 348
原创 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 1308
原创 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 979
HALCON-13-DLL--.rar
2019-12-07
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人