읽어온 스트링의 길이를 구하려면



if Length(S) = (원하는 길이) then Begin <==== 이렇게 해주시면 되겠네요..

...

...



end;

그럼 즐프하세요...





초보델피언.... wrote:

> =============소스입니다...=====================

> While not EOF(Reader) do

> begin

> Readln(Reader,S);

> Try

> if Length <===여기에 적당한 걸 잡아 넣어야 하는데...??

> if copy(s,1,1) = 'K' then <===이렇게 Copy함수를 사용해서 잘라 DB에 넣고 있는데요..

> 여긴 텍스트파일이 규칙적으로 만들어져서 읽고 있는데.... 글구 라인별로 길이는 정해져 있습니다.. 갈켜 주세요??

> begin 만약에 텍스트파일의 라인이 이 규칙대로 들어 오지 않았다고

> juminno := copy(s,2,13); 한칸씩 밀렸다던가 한칸씩 잘려서 텍스트파일이 만들어 졌다고

> Data[1] := copy(s,15,10); 가정할때 어떻게 처리를 해주어야 될지 책을 찾아 봐도..

> 없던에요...... 고수님들 좀 갈켜 주세요???

> m_name := Data[1]; 부탁드립니다... 초보에게 약간의 조언 부탁 드립니다..

> Data[2] := 'kr';

> Data[3] := copy(s,25,6);

> Data[4] := copy(s,31,40);

> Data[5] := copy(s,71,12);

> // p_add := copy(s,85,40);

> // liv_chk := copy(s,125,1);

> // con-tel := copy(s,126,12);

> // fam_bos := copy(s,138,10);

> Data[6] := '710';

> // author := copy(s,151,2);

> // lice_no := copy(s,153,10);

> sujinno := copy(s,83,12);

> // card_is := copy(s,175,2);

> // end; //3

>

> ///////// DB 작업 //////////

> .

> .

> .

> .

> ======================================================

>

> 이 소스에서 화살표 표시 좀 봐주세요!!! ^^;