텍스트 내용은

{

12034562 김성준 남 7402051652577 서울시종로구충신동60번지 02367563010165095575

23569874 주수희 여 7512462563145 서울시 종로구 혜화동 1000번지 0115248563

54213654 송 재 열 남 7410251675412 서울시 성동구 화양리 화양리 야시시골목...^^02367536020164285680

#*@(&^!$+@쭈니$,($&%68@4571%(&@#^$(#*@&%!@#><;::"{}[kk {":>?<&*^%$#011*@#&_+|

41264 62 신호진이당 남자여요 78 12413 5647 서울시 종로구 관철동 777-333 번지 0 36 654120185236547



89654745 이 규 진 남자일걸... 7609251682914 서울시 종로구 충신동 60번지 예일 빌딩02367563030115090686



} 입니다.....



procedure TForm1.Button4Click(Sender: TObject);

var

F: TextFile;

S: string;

patnum,patname,patsex,patjumin1,patjumin2,patjuso,pattel1,pattel2:string;



begin

try

AssignFile(F, 'E:AFtpTest.txt');

Reset(F);

While not EOF(F) do

begin

Readln(F, S);

//RichEdit1.Lines.Add(S);

//내용나누기

patnum:=copy(s,1,8);

patname:=copy(s,9,5);

patsex:=copy(s,14,2);

patjumin1:=copy(s,16,6);

patjumin2:=copy(s,22,7);

patjuso:=copy(s,29,50);

pattel1:=copy(s,79,12);

pattel2:=copy(s,91,12);



RichEdit1.Lines.Add('수진번호='+ patnum);

RichEdit1.Lines.Add('이름='+ patname);

RichEdit1.Lines.Add('성별='+ patsex);

RichEdit1.Lines.Add('주민번호='+ patjumin1 + patjumin2);

RichEdit1.Lines.Add('환자주소='+ patjuso);

RichEdit1.Lines.Add('전화번호='+ pattel1);

RichEdit1.Lines.Add('이동전화='+ pattel2);

end;

finally

CloseFile(F);

end;

end;





이렇게 코딩을 했는데요......리치에디터를 사용했는데..

실행을 시키니깐.......< RicEdit line insertion error >

이런 에러가 계속 뜨네요........

고수님들 좀 부탁 드립니다.... 그럼 수거요!! ^^