Q&A

  • 텍스트 파일에서 자료 읽어오기
몇일을 생각해도 잘 모르겠네요 ㅜㅡ
아래처럼 구분자를 | 로 두고 데이터를 텍스트 파일로 저장했습니다.

01|홍길동|빨강
02|박길동|노랑
03|김길동|파랑
'
'
'

파일을 읽어들여서 화면에 하나씩 뿌려줘야거든요..

-----------------------------------
| 번호: 01  이름:홍길동  색상:빨강 |
| 번호: 02  이름:박길동  색상:노랑 |
| 번호: 03  이름:김길동  색상:파랑 |
------------------------------------

이렇게요..
파일을 읽어들여서 필드별로 텍스트박스에 뿌려야는데 감도 안와요ㅜㅡ
좀 알려주세요ㅜㅜ
이 게시물을
1  COMMENTS
  • Profile
    Diablo • 2005.09.22 04:16
      procedure fileread(str:string);
      var
        fData         : TextFile;
        S            : string;
        sTemp        : string;
      begin
        sTemp := ExtractFilePath(Application.ExeName) + '원하는 텍스트파일명';
        if FileExists(sTemp) then
        begin
          AssignFile(fLog, sTemp);
          Reset(fData);
          while not EOF(fData) do
          begin
            Readln(fData, S); //한줄
            //s를 가지고 그리드 또는 어딘가에 넣어 주기
          end;
          CloseFile(fData);
        end;
    end;
←First Page
276 277 278 279 280 281 282 283 284 285
Last Page→
한델 로그인 하기