Q&A

  • text를 리스트뷰로 불러오고싶은데 안되요~~ㅠㅠ

소스올립니다~ 좀 봐주십사..

2  COMMENTS
  • Profile
    미스터큐 2013.02.05 19:19

    저장하는 부분만 바꾸시면 될 것 같습니다.

    procedure TForm3.btnSaveClick(Sender: TObject);

    var

      f : textfile;

      i, j : integer;

    begin

      assignfile(f,'c:\pp.dat');

      rewrite(f);

      for i := 0 to Listview1.Items.Count-1 do begin

        WriteLn(f, ListView1.Items[i].Caption);

        for j := 1 to ListView1.Columns.Count-1 do begin  

          WriteLn(f, Listview1.Items[i].SubItems[j-1]);

        end;

      end;

      CloseFile(f);

    end;


    참고로 Record랑은 저장, 로드하는 부분이 별 상관이 없네요.

    만약 Record로 저장, 로드하시려면

    myAddr : array of TAddr; 로 선언하시고

    로드, 저장하실때 BlockRead나 BlockWrite 하시면 한번에 읽고 쓸 수 있습니다.

  • Profile
    초백 2013.02.05 23:28

    우선 답변 감사드립니다.

    말씀대로 레코드랑은 전혀 연관이 없더라구요.

     

    tedit 컴포넌트를 이용해서 데이터를 record 타입으로 입력받은것을 텍스트로 저장한뒤

    리스트뷰로 이것을 출력하는것을 해보고 싶은데 의도가 잘못된것같네요;..