이상현 께서 말씀하시기를...

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

>

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

>

> 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번째 열은