Txt 파일에 대한 Delphi 작업

{$APPTYPE CONSOLE} {By: 천하제일천인}uses Windows;{새 TXT 문서} Procedure NewTxt(FileName:String);Var F : Textfile; {정의 F는 Textfile} Begin Assign File(F, FileName)입니다.{파일 이름을 변수 F와 연결} ReWrite(F){Txt 문서를 만들고 "FileName"} Closefile(F) 으로 명명합니다.{파일 F} End 닫기;
 
 
{지정된 TXT 문서 읽기} Procedure ReadTxt(FileName:String);Var F : Textfile; Str : String; Begin AssignFile(F, FileName); Reset(F);  Readln(F, Str); {컨텐트를 읽고 Str} Closefile(F)에 값을 지정합니다.End; {새 내용을 쓰기 위한 원래 내용을 첨부합니다} Procedure AppendTxt (Str:String, FileName:String).Var F:Textfile; Begin AssignFile(F, FileName); Append(F); {원본이 비워지지 않도록 원본을 첨부합니다} Writeln (F,Str).{파일 F} Closefile (F) 에 컨텐츠 Ser 쓰기End;{한 줄씩 읽기, 말 그대로 한 줄씩 읽는 내용} Procedure ForTxt(FileName:String);Var F:Textfile; S:String; Ser:String; begin AssignFile(F,FileName); Reset(F); while not EOF (F) do {순환 읽기} begin Readln (F, S);Ser:=Ser+S+#13#10;  end; CloseFile(F); end; Begin//NewTxt ('i:\내 문서\데스크톱\Delphi Txt에 대한 기본 작업.Txt');//ForTxt('i:\내 문서\데스크톱\Delphi 대 Txt의 기본 작업.Txt');//ReadTxt('i:\내 문서\데스크톱\Delphi 대 Txt의 기본 작업.Txt');//AppendTxt('aaaaaaaaaaaaaaaaaaaaaaaaaa','i:\내 문서\데스크톱\Delphi가 Txt에 대한 기본 작업.Txt');Readln; End.、
 
 

Delphi      

Delphi         :     、    、     。

             、  。             ，                 ，         。

               ，                、        。

             ：1.          ；2.     。

1.          :
AssignFile(VarTxt, FileName);
FileName              。

2.          :
(1) Reset:     ,        ;
(2) Rewrite:         ,   ;
(3) Append:      ,         。

         Reset   Append      I/O  。

    CloseFile     。

     ，Delphi        Assign     ,   Close     。

--------------------------------------------------------------------------------


//    : 
unit Unit1; 
interface 
uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls; 
type  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton; 
    Button7: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  private    { Private declarations }
  public    { Public declarations }
  end;
 
var  Form1: TForm1; 
implementation 
{$R *.dfm} 
var
  F: Text;  //TextFile   Text     
  FileName: string = 'c:\temp\test.txt'; 
//   
procedure TForm1.Button1Click(Sender: TObject);
begin
  AssignFile(F,FileName);
  Rewrite(F);  //          
  Writeln(F, '   ');
  Writeln(F, '   '); 
  CloseFile(F);
end; 
//   (      )
procedure TForm1.Button2Click(Sender: TObject);
var
  s: string;
begin
  AssignFile(F,FileName);
  Reset(F);       //     
  Readln(F, s);   //  
  ShowMessage(s); //  :    
  Readln(F, s);   //    
  ShowMessage(s); //  :     
  CloseFile(F);
end; 
//  
procedure TForm1.Button3Click(Sender: TObject);
begin
  AssignFile(F,FileName);
  Append(F);  //       
  Writeln(F, '   ');
  Writeln(F, '   '); 
  CloseFile(F);
end; 
//    (  Memo    )
procedure TForm1.Button4Click(Sender: TObject);
var
  s: string;
begin
  AssignFile(F,FileName);
  Reset(F);  //     
  Memo1.Clear;
  while not Eof(F) do
  begin
    Readln(F, s);
    Memo1.Lines.Add(s);
  end; 
  CloseFile(F);
end; 
//    
procedure TForm1.Button5Click(Sender: TObject);  //           :      s    n      

function AddSpace(s: string; n: Word): string;
  begin
    while Length(s) < n do
    begin
      s := s + ' ';
    end;
    Result := s;
  end;
var
  name: string[8];
  address: string[16];
begin
  AssignFile(F, FileName);
  Rewrite(F);
  name := '  ';
  name := AddSpace(name,8);
  address := '    ';
  address := AddSpace(address,16);
  Writeln(F, name, address);
  name := '   ';
  name := AddSpace(name,8);
  address := '        ';
  address := AddSpace(address,16);
  Writeln(F, name, address);
  name := '    ';
  name := AddSpace(name,8);
  address := AddSpace(address,16);
  Writeln(F, name, address); 

  CloseFile(F);

{      :                                       }

end; 
//    
procedure TForm1.Button6Click(Sender: TObject);
var  name: string[8];
  address: string[16];
begin
  AssignFile(F, FileName);
  Reset(F); 
  Memo1.Clear;
  while not Eof(F) do
  begin
    Readln(F, name);
    Memo1.Lines.Add(name);
  end; 
  CloseFile(F);
  Reset(F); 
  while not Eof(F) do
  begin
    Readln(F, name, address);
    Memo1.Lines.Add(address);
  end; 
  CloseFile(F);

{    :                                                         }
end; 
//            
procedure TForm1.Button7Click(Sender: TObject);
var  name: string[6];
  age: Word;
  birthday: TDate;
begin
  AssignFile(F,FileName);
  Rewrite(F); 
  name := '    ';  //       6   
  age := 18;
  birthday := StrToDate(DateToStr(Now-18*365));  //        
  Writeln(F,name,age,birthday); 
  CloseFile(F);
  Reset(F); 
  Readln(F,name,age,birthday);
  Memo1.Clear;
  Memo1.Lines.Add(name);
  Memo1.Lines.Add(IntToStr(age));
  Memo1.Lines.Add(DateToStr(birthday)); 
  CloseFile(F); 

{    :      18  1989-12-23}

//                   ,                 ?

end; 
end.