Delphi - Hỏi về cách browse, select đường dẫn trog Delphi
Hỏi đáp, trao đổi về lập trình Delphi.Chú ý: Pascal/Delphi FAQs
(Page
1
)
1
(Page
1
)
1
(Page
1
)
1
| Hỏi về cách browse, select đường dẫn trog Delphi | |||||||||||||||
|
Member
Member since
22:40 20-03-2009 Posts:
37
Fantasy Points: 128 
|
Các bác chỉ tui cách làm thế nào mà nhấn vào nút trên form thì 1 cửa sổ mới hiện lên cho phép ta chọn file/chọn đường dẫn? Ở đây dùng kiểu dữ liệu gì?
||
This post has been viewed
1,209
time(s).
1 direct repli(es)
and
0 indirect repli(es).
|
||||||||||||||
Posted at
00:26 10-08-2009
| Re: Hỏi về cách browse, select đường dẫn trog Delphi | |
|
Member
Member since
03:14 25-03-2010 Posts:
6
Fantasy Points: 22
|
 Posted at
09:57 27-03-2010
Reply to
Hỏi về cách browse, select đường dẫn trog Delphi
(ntan)
Mình có phần code đầu để đọc file dữ liệu này.Mọi người tham khảo xem.Cái này còn phải tuỳ định dạng file dữ liệu mình cần đọc thì phần mã sau sẽ khác nhau.
procedure TGiao_dien_chinh.Docfilesolieu1Click(Sender: TObject); var st:array[0..25]of string[12]; i,j:integer; Function GetCurrentDirectory:string; Var nBufferLength: DWORD; lpBuffer : PChar; begin nBufferLength:=MAX_PATH +1; GetMem(lpBuffer,nBufferLength); try if Windows.GetcurrentDirectory(nBufferLength,lpBUffer)>0 then Result:=lpBuffer; finally FreeMem(lpBuffer); end; end; begin Opendialog1.Title:='Mo file so lieu'; Opendialog1.InitialDir:=GetCurrentDirectory; if opendialog1.execute then try Assignfile(f,Opendialog1.FileName); ten1:=extractfilename(Opendialog1.FileName); reset(f); .............................
This post has been viewed
506
time(s).
0 direct repli(es)
and
0 indirect repli(es).
|
(Page
1
)
1
| Permissions: Create Topic: No | Reply Topic: No | Attach File: No | Make Poll: No |
