IF EXISTS('C:\BarCodes\result.txt') THEN BEGIN importFile.WRITEMODE(TRUE); importFile.TEXTMODE(TRUE); importFile.OPEN('C:\BarCodes\result.txt'); WHILE importFile.READ(FileText) > 0 DO BEGIN IF FileText=NSText THEN FileText:=FileText+'111111'; END; importFile.CLOSE; END ELSE MESSAGE('File does not exist');
Comments
http://mibuso.com/blogs/mohana/2011/09/11/how-to-create-a-text-file-and-writeappend-text-into-the-file/
-Mohana
http://mohana-dynamicsnav.blogspot.in/
https://www.facebook.com/MohanaDynamicsNav