Q&A

  • [급함]파일의 내용을 한글자씩 불러들일땐 어떻게...
아직 미숙하여 그러니 많은 도움 부탁합니다.



만약에 불러들이려는 파일이 다음과 같을때에...



0 1 1 0 0 0 0 1 1 1

0 0 0 0 1 1 1 0 0 1

1 1 1 0 0 1 0 0 1 0

.

.

.

.

0 1 0 1 0 1 0 1 1 1



과 같이 있을때 이 숫자 하나하나를 어떻게 읽어들여야 합니까?



1  COMMENTS
  • Profile
    최현일 1999.08.22 13:29
    이상현 께서 말씀하시기를...

    > 아직 미숙하여 그러니 많은 도움 부탁합니다.

    >

    > 만약에 불러들이려는 파일이 다음과 같을때에...

    >

    > 0 1 1 0 0 0 0 1 1 1

    > 0 0 0 0 1 1 1 0 0 1

    > 1 1 1 0 0 1 0 0 1 0

    > .

    > .

    > .

    > .

    > 0 1 0 1 0 1 0 1 1 1

    >

    > 과 같이 있을때 이 숫자 하나하나를 어떻게 읽어들여야 합니까?

    >



    보니까 직교표 같기도 하고 해서 이렇게 답을 합니다.

    0 과 1 사이에 공백이 하나 있다는 것으로 가정하고 말이죠..

    그럼 제가 코딩했던것을 보여 드리죠...

    var

    temp_first,ch : String;

    i,j : Integer;

    countrc : integer;

    Countrcarray : Integer;

    tmp_array : String;

    rc : array [0..2] of integer;



    //쓸데 없는 변수가 너무 많죠..^^



    begin

    //그 파일을 메모장에 로드를 일단 해놓고 말이죠

    라인 0번에는 행과 열의 크기가 있습니다.

    temp_First := moOACall.Lines[0];



    //=============================================

    tmp_array := '';

    //=============================================

    for i := 1 to Length(temp_first) do

    begin

    ch := copy(temp_First,i,1);

    if ch <> ' ' then

    begin

    tmp_array := tmp_array+ch;

    rc[Countrc] := strtoInt(tmp_array);

    end else

    if ch = ' ' then

    begin

    rc[Countrc] := strtoInt(tmp_array);

    Countrc := countrc+1;

    tmp_array := '';

    end;

    end;

    여기까지가 크기에 대한 정보를 입력하는 것이죠..

    //=============================================

    .......



    //=============================================

    // 메모의 0번째 열은