Q&A

  • txt파일 추가할대
기존의 text파일에 새로운 내용을 추가할때

제일 밑에 넣지말고 상단 첫줄에 넣고 싶은데

방법좀 가르쳐 주세요

1  COMMENTS
  • Profile
    최용일 2000.04.07 01:03
    안녕하세요. 최용일입니다.



    TStringList를 이용하시면 쉽게 구현하실 수 있습니다.



    procedure TForm1.AppendToFirst;

    var

    StringList: TStringList;

    I:Integer;

    begin

    StringList := TStringList.Create;

    // 텍스트 파일을 읽어 들인다.

    StringList.LoadFromFile('C:Delphi5Projects1234.txt');

    for I := 0 to 9 do

    // 맨처음 위치에 스트링을 추가시킨다.

    // index를 바꾸면 원하는 위치에 스트링을 추가 시킬 수 있습니다.

    StringList.Insert(0, IntToStr(I));

    // 텍스트 파일을 저장한다.

    StringList.SaveToFile('C:Delphi5Projects1234.txt');

    StringList.Free;

    end;



    황영철 wrote:

    > 기존의 text파일에 새로운 내용을 추가할때

    > 제일 밑에 넣지말고 상단 첫줄에 넣고 싶은데

    > 방법좀 가르쳐 주세요