นวัตกรรม สิ่งประดิษฐ์ และเทคโนโลยี

กรุณา เข้าสู่ระบบ หรือ สมัครสมาชิก.

เข้าสู่ระบบด้วยชื่อผู้ใช้ รหัสผ่าน และระยะเวลาในเซสชั่น
การค้นหาขั้นสูง  

ผู้เขียน หัวข้อ: write to/read text files  (อ่าน 129 ครั้ง)

NAWATTAKAM

  • Administrator
  • Sr. Member
  • *****
  • กระทู้: 385
write to/read text files
« เมื่อ: กุมภาพันธ์ 11, 2019, 09:17:12 PM »

Delphi

โค๊ด

// Create a new text file and write some text into it

procedure NewTxt;
var
  f: Textfile;
begin
  AssignFile(f, 'c:\ek.txt'); {Assigns the Filename}
  ReWrite(f); {Create a new file named ek.txt}
  Writeln(f, 'You have written text into a .txt file');
  Closefile(f); {Closes file F}
end;

// Open existing text file and append some text
procedure OpenTxt;
var
  F: Textfile;
begin
  AssignFile(f, 'c:\ek.txt'); {Assigns the Filename}
  Append(f); {Opens the file for editing}
  Writeln(f, 'You have written text into a .txt file');
  Closefile(f); {Closes file F}
end;

  // Open existing text file and show first line
procedure ReadTxt;
var
  F: Textfile;
  str: string;
begin
  AssignFile(f, 'c:\ek.txt'); {Assigns the Filename}
  Reset(f); {Opens the file for reading}
  Readln(f, str);
  ShowMessage('1. line of textfile:' + str);
  Closefile(f); {Closes file F}
end;


จาก  http://www.swissdelphicenter.ch/en/showcode.php?id=176

บันทึกการเข้า