OpenDialog1.Filter := 'txt文件|*.txt|所有文件|*.*';
if OpenDialog1.Execute then begin
// 得到打开的文件名
edit1.Text := OpenDialog1.FileName;
end;本回答被提问者和网友采纳
第二步 是打开这个文件，不同的文件有同的打开方法，如果是文本文件，使用组件直接载入即可。
获取文件路径的代码，楼下帖了。
delphi opendialog如何打开文件并把路径显示在tedit?
if OpenDialog1.Execute then begin \/\/ 得到打开的文件名 edit1.Text := OpenDialog1.FileName;end;
在delphi中如何取出数据库中的图片显示在image上
if OpenDialog1.Execute then img1.Picture.LoadFromFile(OpenDialog1.FileName);end;procedure TForm1.btn3Click(Sender: TObject);var ms:TMemoryStream;jpg:TJPEGImage;begin if not qry2.FieldByName('PPHOTO').IsNull then begin ms:=TMemoryStream.Create;jpg:=TJPEGImage.Create;TBlobField(qry...
用delphi做了一个系统,现在需要做一个数据库的备份和恢复,怎么写?
OpenDialog1.Execute;Edit1.Text:=OpenDialog1.FileName;\/\/需要还原的数据库的路径 end;end.
Psock是什么?
Filename为文件名（包括路径）,参数Mode为打开文件的方式，它包括文件的打开模式和共享模式，其可能的取值和意义如下：打开模式：fmCreate :用指定的文件名建立文件，如果文件已经存在则打开它。fmOpenRead :以只读方式打开指定文件 fmOpenWrite :以只写方式打开指定文件 fmOpenReadWrite:以写写方式打开指定...
在线等 Delphi逐行读取文本文件报错
直接用一个memo控件将文本文件打开，然后再逐行读取，TStringList.可能有行的限制，memo可能要大的多，打开文本文件可达2GB，一般来说是没有问题的，我搞过一福彩双色球筛选对比软件，有上千万行，没有问题。
