Q&A
- 파일에서 Readln 말고 한글자씩 읽어오려면
Readln의 경우 한라인씩 읽어오는데 저는요 한글자씩 읽어오고 싶습니다.
방법이 없습니까.
filename:=bible;
assgn(bible,' 경로명');
reset(bible);
readln(bible,textline);
for i:=0 to filesize-1 do
begin
cha:=textline;
if(ord(cha[i]=94) then (j>0) then
begin
onejul:=tempstring;
memo1.lines.add(onejul);
tempstring='';
end
else
tempstring:=tempstring+cha[i];
j:=pos(edit1.text,richedit1.text);
end;
end;
즉 찾는문자열을 하나씩하나씩 비교하는겁니다.
방법이 없습니까.
filename:=bible;
assgn(bible,' 경로명');
reset(bible);
readln(bible,textline);
for i:=0 to filesize-1 do
begin
cha:=textline;
if(ord(cha[i]=94) then (j>0) then
begin
onejul:=tempstring;
memo1.lines.add(onejul);
tempstring='';
end
else
tempstring:=tempstring+cha[i];
j:=pos(edit1.text,richedit1.text);
end;
end;
즉 찾는문자열을 하나씩하나씩 비교하는겁니다.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
-
신인재•1999.06.26 18:56ActiveX컨트롤이라면 델파이 내부로 일딴 임포트를 하셔야 합니다.. 컴포넌트 메뉴에 import activex...
-
-
- 박성훈
- •
- 1999.06.26 17:23
- 1 COMMENTS
- /
- 0 LIKES
-
최석기•1999.06.26 17:39박성훈 께서 말씀하시기를... > 에디트컴포넌트에서 코드상으로 undo기능을 구현하려면 어떻게 합니까? >...
-
- 박성훈
- •
- 1999.06.26 17:10
- 1 COMMENTS
- /
- 0 LIKES
-
최석기•1999.06.26 17:37박성훈 께서 말씀하시기를... > panel1.caption:=formatfloat('#,##0',strtofloat(s)); > > 여기서 pan...
-
- 박성훈
- 1999.06.26 17:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 이한나(소라동생)
- •
- 1999.06.26 14:07
- 2 COMMENTS
- /
- 0 LIKES
-
김영대•1999.06.26 20:16이한나(소라동생) 께서 말씀하시기를... > 리치에디터에서 콜럼값과 라인값을 리턴받아 그에 해당하는 문...
-
이한나(소라동생)•1999.06.27 12:08김영대 께서 말씀하시기를... > 이한나(소라동생) 께서 말씀하시기를... > > 리치에디터에서 콜럼값과 라...
-
- 이태호
- 1999.06.26 11:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 이소라
- 1999.06.26 09:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 이소라
- •
- 1999.06.26 06:13
- 1 COMMENTS
- /
- 0 LIKES
Readln의 경우 한라인씩 읽어오는데 저는요 한글자씩 읽어오고 싶습니다. 방법이 없습니까. filename:=bible; assgn(bible,' 경로명'); reset(bible); readln(bible,textline); for i:=0 to filesize-1 do begin cha:=textline; if(ord(ch...-
이정욱•1999.06.26 08:55Readln말고 Read나 BlockRead를 사용하시면 원하는 만큼 읽어오실 수 있습니다. 이소라 께서 말씀하시기...
-
- 임재문
- •
- 1999.06.26 05:04
- 1 COMMENTS
- /
- 0 LIKES
-
김대원•1999.07.03 05:59임재문 께서 말씀하시기를... > query된 내용을 액셀로 변환할때, > 액셀에서 처럼 합계나 계산식을 값(...
-
- 문보석
- •
- 1999.06.26 04:44
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.06.26 09:02다음의 예는 TImage에 있는 BMP를 JPG로 변환하는 예제 입니다. var Jpeg1: TJpegImage; Image1: TIma...
-
- 왕초
- 1999.06.26 04:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 이소라
- 1999.06.26 04:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 한상훈
- •
- 1999.06.26 03:59
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.06.26 04:38BDE를 같이 포함하셔서 셋업을 만드셔야 합니다. BDE가 설치가 안되어있는 컴퓨터에는 BDE를 설치해주어야...
-
- 오인균
- •
- 1999.06.26 02:44
- 1 COMMENTS
- /
- 0 LIKES
-
홍희석•1999.06.28 22:52오인균 께서 말씀하시기를... > 델파이4에서 DB2를 이용하여 테이블을 작성하는데 > 아래의 파일이 없다...
-
- 시리
- •
- 1999.06.26 02:34
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.06.26 08:59입력하자마자 변하게 하는것은 아마도 힘들것 같습니다. 만약 서버쪽에서 클라이언트에게 신호를 해주지 ...
-
- 이주흥
- 1999.06.26 01:33
- 0 COMMENTS
- /
- 0 LIKES
-
-
이정욱•1999.06.26 04:40만약 P라는 변수에 넣을것이라면.. If CheckBox.Checked then P := 1 else P := 0; 해주시면 되지만....
-
-
- 장연태
- •
- 1999.06.26 01:09
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.06.26 09:05Out of Bounds 라는 에러는 리스트 박스 같은데서 실제로 존재하지 않는 인덱스를 사용하려고 할때 에러가 ...
-
- 우민석
- 1999.06.25 23:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 김지건
- •
- 1999.06.25 23:37
- 2 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.06.26 00:01아래 코드에서는 당연히 바이너리코드가 들어가게 되어 있습니다. 쓰레기 값은 아니구요.. 사실 Read로 Out...
-
김지건•1999.06.26 00:37정말 감사합니다. 정욱님의 빠른 답변이 저에게 엄청난 도움이 되었답니다.. 정말 감사합니다....
이소라 께서 말씀하시기를...
> Readln의 경우 한라인씩 읽어오는데 저는요 한글자씩 읽어오고 싶습니다.
> 방법이 없습니까.
> filename:=bible;
> assgn(bible,' 경로명');
> reset(bible);
> readln(bible,textline);
> for i:=0 to filesize-1 do
> begin
> cha:=textline;
> if(ord(cha[i]=94) then (j>0) then
> begin
> onejul:=tempstring;
> memo1.lines.add(onejul);
> tempstring='';
> end
> else
> tempstring:=tempstring+cha[i];
> j:=pos(edit1.text,richedit1.text);
> end;
> end;
> 즉 찾는문자열을 하나씩하나씩 비교하는겁니다.