아래 소스에서.. 생일과 성명을 읽어들이지를 못하는군요.

아시는분 계시면..답변을..좀..ㅠ.ㅠ



파일 내용은..

=====================

11111111111 1 1 1 1111 111 111 1 111 1111 11 1 111 1111 1111 111 111 1 11 111 111 111 111 111 11 1 11 11 1111 1010 홍길동

=====================

이구여..이게 한 줄입니당..공백으로 구분을 짓구여.



procedure TForm1.Button1Click(Sender: TObject);

Var

svl : Array [1..25] of String;

I, K, Total: Integer;

No, Grde, Ban, Sex, Brth, Name : string;

FP : Textfile;

Buf: string;



begin

AssignFile(FP, 'C:Delphi_ExTestans.txt');

Reset(FP);



Total := 0;

While not Eof(fp) do

begin

No := ''; buf := ''; Grde := ''; Ban := ''; Sex := ''; Brth := ''; Name := '';

for i := 1 to 25 do

svl[i] := '';





Readln(FP,Buf);

K := 0;



for i := 1 to length(buf) do //행의 길이만큼 반복



begin

if buf[i] = ' ' then // -> ' ' 구분자

inc(k)

else if k = 0 then

No := No + Buf[i] //응시번호

else if k = 1 then

Grde := Grde + buf[i] //학년

else if k = 2 then

Ban := Ban + buf[i] //수강반

else if k = 3 then

Sex := Sex + buf[i] //성별

else if k in [4..28] then

if buf[i] in ['0'..'9'] then //숫자만 추출

Svl[k - 3] := Svl[k - 3] + buf[i] //답안 배열

else if k = 29 then

Brth := Brth + buf[i] //생일

else if k = 30 then

Name := Name + buf[i] //성명

else

Exit;

end; //For i

inc(Total); // 총 인원 1 증가



No := Trim(No); //응시번호

Grde :=Trim(Grde); //학년

Ban :=Trim(Ban); //수강반

Sex :=Trim(Sex); //성별



for i := 1 to 25 do

Svl[i] :=Trim(Svl[i]); //답안



Brth :=Trim(Brth); //생일 -위에서 값을 못 받아오니깐..여기랑..

Name :=Trim(Name); //성명 -이 부분에 값을 넣지를 못해요.. 물론 위에도 빈 값이죠.

end; //while