현재 메모장에 아래와 같이 문자들을 나열 했습니다.
========
552615
내부
충남
지방도
신설
아무개.txt
552614
내부
충남
지방도
신설
아무개.txt
552603
내부
충남
일반
신설
아무개.txt
552613
내부
충남
일반
신설
아무개.txt
==================
보시면 아시겠지만 6줄 단위로 같은 형식으로 반복되어 지는것인데..
이것을 스티링 그리드에 넣으려고 합니다.. 물론
552615|내부|충남|일반|신설|아무개.txt
552614|내부|충남|일반|신설|아무개.txt
.
.
어떤 방식으로 넣어야 하는지요...
두개의 루프를 어케 돌려야 할지 난감 해졌습니다..
원리는... 잘 생각해 보십시오.
종이위에 컬럼과 로우를 증가하면서 적어보시면
이해가 되실겁니다.
RowNo:=-1;
ColNo:=-1;
repeat
readln(f,str);
if copy(str,1,1)='5' then begin
inc(RowNo);
ColNo:=0;
end;
stringgrid1.cells[ColNo,RowNo]:=str;
Inc(ColNo);
until eof(f);