在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
procedure TForm1.btn1Click(Sender: TObject); var sFile,sLine: TStrings; r,c:Integer; begin sFile := TStringList.Create; sFile.LoadFromFile('d:\1.txt'); sLine := TStringList.Create; for r:=0 to sFile.Count-1 do begin sLine.CommaText := sFile[r]; for c:=0 to sLine.Count-1 do begin mmo1.Lines.Add(sLine[c]); end; end; sLine.Free; sFile.Free end;
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论