delphi中怎么逐行读取文本文件的数据并将每行分别写入指定的不同编...

FileName:string;f:Textfile;s:string;FileName:="C:\this.log"; AssignFile(f,FileName)；//关联文件Reset(f);Readln(f,s)； //读一行memo1.Lines.Add(s)； //写到MEMO1ReadLn(f,s)； //再读一行memo2.Lines.Add(s)；//写到MEMO2CloseFile(f)；//关闭

delphi 怎么把TXT里面的内容逐行分割读取到listview里面。

procedure TForm1.Button2Click(Sender: TObject);varresult_txt, save_txt : tstrings;substr, str : String;i, j, sub_i1, sub_i2 : Integer;beginresult_txt := tstringlist.Create;result_txt.LoadFromFile(ExtractFilePath(application.ExeName)+"result.txt");save_txt := tstringlist.Create;substr ：= "|"； //张三|80分|数学for i:=0 to result_txt.Count-1 dobeginstr := result_txt[i];sub_i1 := 0;save_txt.Clear;while pos(substr,str)>0 dobeginsub_i2 := pos(substr,str);save_txt.Add(copy(str,sub_i1+1,sub_i2-(sub_i1+1)));str := copy(str,pos(substr,str)+1,length(str)-pos(substr,str)+1);end;save_txt.Add(str);with lv_result.Items.Add dobeginCaption := save_txt[0];for j:=1 to save_txt.Count-1 dobeginlv_result.Items[i].SubItems.Add(save_txt[j]);end;end;end;save_txt.Free;result_txt.Free;end;列数不限，查找无限制，即只要是“|”为分隔符的都可以找到。

另外： HJ_3000 的答案有 BUG，如果内容含有空格的话，就找不到了。

delphi中怎么逐行读取文本文件的数据并分别写入指定的位置

使用vba来指定保存的文件格式为pdf，当然前提必须已安装MS Office的PDF输出插件（默认应该有）procedure TForm1.btn1Click(Sender: TObject);varwdo,wdoc,wdocs : OleVariant;beginwdo := CreateOleObject("Word.Application");wdocs := wdo.Documents;wdoc := wdocs.Open("d:\test.docx");wdoc.ExportAsFixedFormat(OutputFileName:="d:\test.pdf", ExportFormat:=17);//查word的宏帮助{ OpenAfterExport:="True", OptimizeFor:="wdExportOptimizeForPrint", Range:="wdExportAllDocument", From:=1, To:=1, Item:="wdExportDocumentContent",IncludeDocProps:="True", KeepIRM:="True", CreateBookmarks:="wdExportCreateNoBookmarks", DocStructureTags:="True", BitmapMissingFonts:="True", UseISO19005_1:="False"); }end;