이소라 께서 말씀하시기를...

> Readln(파일명,그리고 뭐더라.....)파라미터를 도움말을 봤는데 뭐라고 하느지 알수가 있어야지요.

> 혹시 사용용도를 잘알고 계세요.

> 가르쳐 주시면 정말 고마운데...헤헤

> 그리고 자꾸 'invalid numberic input' 라고 하느데 왜그러죠.

> 부탁할꼐요...

> procedure TForm1.Button1Click(Sender: TObject);

> var

> bible:textfile;

> j,k,m:integer;

> s,P,q,text_line:string;

> line,x:integer;

> begin

>

> s:=trim(edit1.text);

> //m:=0;

> assignfile(bible,'c:bible.txt');

> reset(bible);//파일역기

> readln(bible,line); <----여기에러 가능성 1번.

> for x:=1 to line do

> begin

> readln(bible,line); <----여기에러 가능성 2번.

> listbox1.items.add(text_line);

> q:=listbox1.items.Strings[line]; <----여기에러 가능성 3번.

> j:=pos(s,q);

> if j > 0 then

> begin

> richedit2.lines.add(text_line);

> end;

> end;

> closefile(bible);

> end;



하고자 하는게 뭔진 잘 모르겠습니다만... 텍스트파일에서 총 라인 갯수를 읽어오고, 그 라인수 만큼 읽어오기를 반복하면서 죽죽 읽어다가 리스트박스에 밀어넣고 TEdit에서 입력받은 문자열이 파일에서 읽어오는 문자열중에 들어있으면 RichEdit에 한번더 써주는거라 생각됩니다... 맞나여??

코딩이 뭔가 잘못

하윤철 께서 말씀하시기를...

> 이소라 께서 말씀하시기를...

> > Readln(파일명,그리고 뭐더라.....)파라미터를 도움말을 봤는데 뭐라고 하느지 알수가 있어야지요.

> > 혹시 사용용도를 잘알고 계세요.

> > 가르쳐 주시면 정말 고마운데...헤헤

> > 그리고 자꾸 'invalid numberic input' 라고 하느데 왜그러죠.

> > 부탁할꼐요...

> > procedure TForm1.Button1Click(Sender: TObject);

> > var

> > bible:textfile;

> > j,k,m:integer;

> > s,P,q,text_line:string;

> > line,x:integer;

> > begin

> >

> > s:=trim(edit1.text);

> > //m:=0;

> > assignfile(bible,'c:bible.txt');

> > reset(bible);//파일역기

> > readln(bible,line); <----여기에러 가능성 1번.

> > for x:=1 to line do

> > begin

> > readln(bible,line); <----여기에러 가능성 2번.

> > listbox1.items.add(text_line);

> > q:=listbox1.items.Strings[line]; <----여기에러 가능성 3번.

> > j:=pos(s,q);

> > if j > 0 then

> > begin

> > richedit2.lines.add(text_line);

> > end;

> > end;

> > closefile(bible);

> > end;

>

> 하고자 하는게 뭔진 잘 모르겠습니다만... 텍스트파일에서 총 라인 갯수를 읽어오고, 그 라인수 만큼 읽어오기를 반복하면서 죽죽 읽어다가 리스트박스에 밀어넣고 TEdit에서 입력받은 문자열이 파일에서 읽어오는 문자열중에 들어있으면 RichEdit에 한번더 써주는거라 생각됩니다... 맞나여??

> 코딩이 뭔가 잘못

하윤철 께서 말씀하시기를...

> 이소라 께서 말씀하시기를...

> > Readln(파일명,그리고 뭐더라.....)파라미터를 도움말을 봤는데 뭐라고 하느지 알수가 있어야지요.

> > 혹시 사용용도를 잘알고 계세요.

> > 가르쳐 주시면 정말 고마운데...헤헤

> > 그리고 자꾸 'invalid numberic input' 라고 하느데 왜그러죠.

> > 부탁할꼐요...

> > procedure TForm1.Button1Click(Sender: TObject);

> > var

> > bible:textfile;

> > j,k,m:integer;

> > s,P,q,text_line:string;

> > line,x:integer;

> > begin

> >

> > s:=trim(edit1.text);

> > //m:=0;

> > assignfile(bible,'c:bible.txt');

> > reset(bible);//파일역기

> > readln(bible,line); <----여기에러 가능성 1번.

> > for x:=1 to line do

> > begin

> > readln(bible,line); <----여기에러 가능성 2번.

> > listbox1.items.add(text_line);

> > q:=listbox1.items.Strings[line]; <----여기에러 가능성 3번.

> > j:=pos(s,q);

> > if j > 0 then

> > begin

> > richedit2.lines.add(text_line);

> > end;

> > end;

> > closefile(bible);

> > end;

>

> 하고자 하는게 뭔진 잘 모르겠습니다만... 텍스트파일에서 총 라인 갯수를 읽어오고, 그 라인수 만큼 읽어오기를 반복하면서 죽죽 읽어다가 리스트박스에 밀어넣고 TEdit에서 입력받은 문자열이 파일에서 읽어오는 문자열중에 들어있으면 RichEdit에 한번더 써주는거라 생각됩니다... 맞나여??

> 코딩이 뭔가 잘못

하수인 제가 한마디.

정확한지는 모르지만(하수의 특징)

AssignFile로 만들어진 파일은 ASCII형태의 파일인것 같은데, integer형 변수로 직접 읽어올 수 없다고 생각하는데...



readln(bible,line);



이부분에서 line이 이상한데요.

string으로 형변환을 하던가 아니면 string형변수로 읽어오던가 하는게 낫지 않을까요. 아닌가-^.^-



이소라 께서 말씀하시기를...

> Readln(파일명,그리고 뭐더라.....)파라미터를 도움말을 봤는데 뭐라고 하느지 알수가 있어야지요.

> 혹시 사용용도를 잘알고 계세요.

> 가르쳐 주시면 정말 고마운데...헤헤

> 그리고 자꾸 'invalid numberic input' 라고 하느데 왜그러죠.

> 부탁할꼐요...

> procedure TForm1.Button1Click(Sender: TObject);

> var

> bible:textfile;

> j,k,m:integer;

> s,P,q,text_line:string;

> line,x:integer;

> begin

>

> s:=trim(edit1.text);

> //m:=0;

> assignfile(bible,'c:bible.txt');

> reset(bible);//파일역기

> readln(bible,line);

> for x:=1 to line do

> begin

> readln(bible,line);

> listbox1.items.add(text_line);

> q:=listbox1.items.Strings[line];

> j:=pos(s,q);

> if j > 0 then

> begin

> richedit2.lines.add(text_line);

> end;

> end;

> closefile(bible);

> end;