heimdal wrote:

> 95 37

> 108 32

> 98 32

> 102 38

> 74 45

> 이런식으로 데이터파일이 있는데 그걸 스트링그리드로 읽을려고하는데여..

> 자꾸 이상하게 읽혀지네여..

> 어디를 바꿔야하는건지..

>

> while not EOF(f) do begin

> readln(f, s1, s2);

> for i:=1 to linecount do //linecount 파일의 라인수

> begin

> for j:=1 to 2 do

> begin

> list.Cells[i,j]:=inttostr(s1);

> list.Cells[i, j+1]:=inttostr(s2);

> readln(f, s1, s2);

> end;

> end;

> end;

> Closefile(f);

>

> 알려주세여..











var

TextF : TextFile;





i := 0;

AssignFile(TextF,Edit1.TEXT);

Reset(TextF);

REPEAT

Readln(TextF, STR1);

inc(i);

s1:= copy(STR1,1,13);

s2:= copy(STR14,??);

list.Cells[i,1]:=inttostr(s1);

list.Cells[i,2]:=inttostr(s2);

UNTIL EOF(TextF);

CloseFile(TextF);