Q&A

  • 텍스트 파일에서 라인별로 읽어서 출력하려면??
안녕하세요..
텍스트 파일에서 라인별로 읽어서 출력시키려고 하는데요..
예를들어 Test.TXT파일의 내용이 아래와 같다면
라인1>안녕하세요?
라인2>반갑습니다.
라인3>Hello
위에 보이는 Test.TXT파일과 버튼1과 버튼2,버튼3이 있다면..

버튼 1을 누르면
안녕하세요?
버튼2를 누르면
반갑습니다.
버튼3을 누르면
Hello

이렇게 출력을 하려고 하는데 어떻게 해야 하나요?
텍스트 파일에는 여러줄의 라인이 있을 수 있구여..

아래는 제가 하다가 막혀서 그러는데.
고칠부분이 있다면 답변좀...
var
F:TextFile;
S:String;
begin
  AssignFile(F,'C:Test.TXT');
  Reset(F);
while not Eof(F) do
begin
  Readln(F,S);
  Label1.Caption:=S;
end;
end.

이렇게 작성하니까 파일의 제일 마지막 줄을 출력하던데...
가운데 중간부분을 읽어들이고 싶은데요...  라벨1에 반갑습니다.가 출력되게..
답변좀 부탁드립니다...
이 게시물을
2  COMMENTS
  • Profile
    미소나눔 • 2002.11.14 08:59
    procedure TForm1.Button1Click(Sender: TObject);
    var
        Fp : TextFile;
        Line : String;
        Str : TStrings;
    begin
        try
            Str := TStringList.Create ;

            AssignFile(Fp, 'c:iTopMem.txt');
            Reset(Fp);

            while not Eof(Fp) do begin
                Readln(Fp, Line);
                Str.Add(Line)
            end;

            ShowMessage(Str[10]);   // 이렇케 특정 라인 접근하시면 됩니다.

        finally
            CloseFile(Fp);
            Str.Free;
        end;

    end;

    즐푸하세용... ^^
  • Profile
    문재욱 • 2002.11.15 02:32
    도움이 되었네요.. 감사합니다.. 꾸벅(__)
←First Page
815 816 817 818 819 820 821 822 823 824
Last Page→
한델 로그인 하기