- 博客(3)
- 资源 (1)
- 收藏
- 关注
RSS订阅原创 Delphi选择指定路径作为操作路径
if SelectDirectory('选择文件提取路径', 'd:\', Str) then begin Memo1.Lines.Add('已选定[' + Str + ']为检索目录'); Edit1.Text := Str; end else begin Exit; end;
2019-12-19 11:19:19
459
原创 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
1446
原创 Delphi快速从文件流读取数据存入本地txt
Delphi快速从文件流读取数据存入本地 var： fs:TFileStream; Path:string; Buf4:array[0…3] of byte; Str:string; begin fs := TFileStream.Create(Path+’*.map’, fmOpenRead or fmShareExclusive); with fs do begin position:=0; ...
2019-12-19 11:14:20
1124
HALCON-13-DLL--.rar
2019-12-07
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人