Q&A
- 파일을 읽어서 그래픽을 그리는 소스입니다.. 문제의 원인을 찾아주세요..
안녕하세요..
지금..쫌..급해서..그런데여..소스좀..봐주세여..
procedure TForm1.Button1Click(Sender: TObject);
var
fp : TextFile;
i:Integer;
s:array[1..20] of Integer;
begin
i:=1;
Image1.Canvas.Pen.Color := clRed;
Image1.Canvas.Pen.Width := 5;
Image1.Canvas.MoveTo(50,10);
assignfile(fp,'c:22.txt');
reset(fp);
while not Eof(fp) do
begin
read(fp,s[i]);
memo1.lines.add(IntToStr(s[i]));
if ((i mod 2) = 0) then
begin
Image1.Canvas.LineTo(s[i-1],s[i]);
Image1.Canvas.MoveTo(s[i-1],s[i]);
end;
i:=i+1;
end;
end;
위의 소스를..보면..파일에서..값을 읽어서..
만약..하나를..읽으면..다시..다음을 읽고..
두개를 다 읽으면..라인을 그려주고......
이러한..프로그램인데여..프로그램을..실행하면
먼저 파일에서..모두읽고..라인을 그려주더군여..
저는..두개의 값을 읽으면..그려주려고 하는데..
알고리즘..상으로는.. 문제가 없는 것 같은데..
실제로..컴파일해서..보면..안돼더군여...
좋은..생각..부탁합니다..엉엉~~~
즐거운..하루되세요..
지금..쫌..급해서..그런데여..소스좀..봐주세여..
procedure TForm1.Button1Click(Sender: TObject);
var
fp : TextFile;
i:Integer;
s:array[1..20] of Integer;
begin
i:=1;
Image1.Canvas.Pen.Color := clRed;
Image1.Canvas.Pen.Width := 5;
Image1.Canvas.MoveTo(50,10);
assignfile(fp,'c:22.txt');
reset(fp);
while not Eof(fp) do
begin
read(fp,s[i]);
memo1.lines.add(IntToStr(s[i]));
if ((i mod 2) = 0) then
begin
Image1.Canvas.LineTo(s[i-1],s[i]);
Image1.Canvas.MoveTo(s[i-1],s[i]);
end;
i:=i+1;
end;
end;
위의 소스를..보면..파일에서..값을 읽어서..
만약..하나를..읽으면..다시..다음을 읽고..
두개를 다 읽으면..라인을 그려주고......
이러한..프로그램인데여..프로그램을..실행하면
먼저 파일에서..모두읽고..라인을 그려주더군여..
저는..두개의 값을 읽으면..그려주려고 하는데..
알고리즘..상으로는.. 문제가 없는 것 같은데..
실제로..컴파일해서..보면..안돼더군여...
좋은..생각..부탁합니다..엉엉~~~
즐거운..하루되세요..
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 초보
- 2000.11.16 19:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 꼴통
- •
- 2000.11.16 19:38
- 1 COMMENTS
- /
- 0 LIKES
-
이채성•2000.11.16 22:15델파이 수퍼페이지에서 scroll로 한번 찾아보시면 소스 많습니다. 혹은 www.torry.net에도 꽤 많은것으로 ...
-
- 열시미
- 2000.11.16 19:24
- 0 COMMENTS
- /
- 0 LIKES
-
- young
- •
- 2000.11.16 19:04
- 1 COMMENTS
- /
- 0 LIKES
-
한하눌•2000.11.16 20:46young wrote: > 초보라서 그러는데요...... > 인쇄할때 페이지헤더를 두번째장부터 나오게 하려면 > 어...
-
- 기다려라 델
- 2000.11.16 18:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- •
- 2000.11.16 18:10
- 1 COMMENTS
- /
- 0 LIKES
-
이채성•2000.11.16 18:16프로그램을 열심히 봤는데 주석이 없으니까 잘 알수 없네요. 제 경험으로는 이런 경우 흔히 폼3이 Close...
-
- 김명호
- 2000.11.16 17:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보맨
- •
- 2000.11.16 16:39
- 3 COMMENTS
- /
- 0 LIKES
-
이채성•2000.11.16 18:09ms-word프로그램을 Automation서버로 이용하여 저장하시면 어떨까요? 초보맨 wrote: > 안녕하세요...초보...
-
강경희•2000.11.16 22:12헤헤... 질문좀... 오토맨션 써버는 어떤건지.. 궁금합니다... 자세한 설명을 부탁드립니다.
-
이채성•2000.11.16 22:18후후.. 이건 굉장히 복잡한데요.. 데모에 ActiveX에 OleAuto를 참조하시지요.. 항상 솔루션이 먼데 있지...
-
- 강경희
- •
- 2000.11.16 15:52
- 3 COMMENTS
- /
- 0 LIKES
-
이채성•2000.11.16 18:12리스트뷰의 경우 동적으로 생성하는 게 올바릅니다. 그렇게 하시면 속도도 빨라지고 1,000,000개도 하실 ...
-
강경희•2000.11.16 21:00*^^* 먼저 답변 감사합니다. ^^; 동적으로 만들면 된다구요.... 헤헤... 그런데 동적으로 만드는 방...
-
이채성•2000.11.16 22:12델파이 데모에 VirtualListView라구 있어요 거기서 보면 procedure TForm1.ListViewData(Sender: TObje...
-
- 김성은
- •
- 2000.11.16 10:59
- 1 COMMENTS
- /
- 0 LIKES
-
김일영•2000.11.16 11:02http://www.delphi.co.kr/cgi-bin/cwb/CrazyWWWBoard.cgi?mode=read&num=31380&db=newqa&backdepth=1
-
- 최지수
- •
- 2000.11.16 10:53
- 1 COMMENTS
- /
- 0 LIKES
-
허춘•2000.11.16 15:01최지수 wrote: > 이것은 가능한지요 > 답변좀 꼭 부탁드립니다. > > 차일드폼 1, 2, 3, 4, 여러개의 ...
-
- 임하나
- •
- 2000.11.16 10:51
- 8 COMMENTS
- /
- 0 LIKES
-
권영길•2000.11.16 21:03
-
임하나•2000.11.17 01:58
-
허춘•2000.11.16 12:52
-
임하나•2000.11.16 14:06
-
허춘•2000.11.16 14:59
-
임하나•2000.11.16 19:53
-
허춘•2000.11.17 08:32
- • • •
-
- 이성윤
- •
- 2000.11.16 09:01
- 6 COMMENTS
- /
- 0 LIKES
-
이성윤•2000.11.16 09:55답변 주신 두분 모두 감사드립니다. 밤도 늦었는데... 헌데 첫번째 답변 주신분 말씀대로 그 이벤트...
-
이성윤•2000.11.17 00:01error message는 이렇게 뜨네요. Project Project2.exe raised exception class EsocketError with mes...
-
김상호•2000.11.17 05:55아래 에러코드에 의하면 11001 은 서버를 찾을수 없다고 한것 같은데 ASync Lookup 이라고 한것을 보면 전...
-
이성윤•2000.11.17 19:34잊지않고 답변주심 점 거듭 감사드립니다. 답변주신대로 제 아마 그렇게 컴퓨터가 예외를 발생시켰는지 ...
-
권민홉•2000.11.16 09:22이성윤 wrote: > ClientSocket을 가지고 작업중인데 > 한가지 문제가 있습니다. > 인터넷 연결이 않된 ...
-
김상호•2000.11.16 09:13만약 네트워크에 Tcp/ip를 설정하지 않았다면 에러가 생길수 있습니다. 네트워크등록정보에서 TCP/IP를을 ...
-
- 왕초보
- •
- 2000.11.16 10:56
- 1 COMMENTS
- /
- 0 LIKES
-
김일영•2000.11.16 10:59안녕하세요. 델파이 팁모아에서 'binary'로 검색하면 제일 처음에 아래와 같은 심동훈님의 팁이 나오는...
-
- 한병화
- •
- 2000.11.16 08:34
- 2 COMMENTS
- /
- 0 LIKES
-
천석우•2000.11.16 21:25dbms수준에서 해결하심이.... 원하시는 대답이 될지는 의문이구요.... 혹시 님께서 oracle이나 mssqlserve...
-
linuxwiz•2000.11.16 18:391. 한번만 하면 될때... 디비가 몬지모르지만..(이런건 써주야 함다..^^;) import, export 아님 ...
-
- 두깡이
- •
- 2000.11.16 11:01
- 1 COMMENTS
- /
- 0 LIKES
안녕하세요.. 지금..쫌..급해서..그런데여..소스좀..봐주세여.. procedure TForm1.Button1Click(Sender: TObject); var fp : TextFile; i:Integer; s:array[1..20] of Integer; begin i:=1; Image1.Canvas.Pen.Color := clRed; Image1.Can...-
흐르는산•2000.11.16 11:01두깡이 wrote: > 안녕하세요.. > 지금..쫌..급해서..그런데여..소스좀..봐주세여.. > > procedure TFo...
-
- 이성윤
- •
- 2000.11.16 10:49
- 2 COMMENTS
- /
- 0 LIKES
-
김일영•2000.11.16 10:49보이고 싶지 않은 속성은 다음과 같이 합니다. class A에서 property P: Integer ... 이런 것이 있을 경우...
-
이성윤•2000.11.17 05:58답변 감사드립니다. 어제 새벽에 글을 올렸는데 바로 답변을 주셨군요. 헌데,잘 않되네요. 현재 제...
-
-
Mr.Q•2000.11.16 09:07혹시.. 비슷한 질문을 다른곳에 올리신분 아니신가요? var tmp:String; procedure TForm2.Timer...
-
-
- 김희진
- •
- 2000.11.16 07:48
- 2 COMMENTS
- /
- 0 LIKES
-
김일영•2000.11.16 08:00안녕하세요. 요즘 이곳에선 그냥 소스 주세요~ 하시는 분들께 좀 냉랭한 분위기였습니다. 제 탓(?)이 크...
-
Mr.Q•2000.11.16 07:49김희진 wrote: > 안녕하십니까? > 저는 경남 마산에서 대학을 다니고 있는 학생입니다 > 제가 이번에 델...
-
- 방문현
- 2000.11.16 07:00
- 0 COMMENTS
- /
- 0 LIKES
> 안녕하세요..
> 지금..쫌..급해서..그런데여..소스좀..봐주세여..
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> fp : TextFile;
> i:Integer;
> s:array[1..20] of Integer;
> begin
> i:=1;
> Image1.Canvas.Pen.Color := clRed;
> Image1.Canvas.Pen.Width := 5;
> Image1.Canvas.MoveTo(50,10);
> assignfile(fp,'c:22.txt');
> reset(fp);
> while not Eof(fp) do
> begin
> read(fp,s[i]);
> memo1.lines.add(IntToStr(s[i]));
>
> if ((i mod 2) = 0) then
> begin
> Image1.Canvas.LineTo(s[i-1],s[i]);
> Image1.Canvas.MoveTo(s[i-1],s[i]);
> end;
> i:=i+1;
> end;
> end;
> 위의 소스를..보면..파일에서..값을 읽어서..
> 만약..하나를..읽으면..다시..다음을 읽고..
> 두개를 다 읽으면..라인을 그려주고......
> 이러한..프로그램인데여..프로그램을..실행하면
> 먼저 파일에서..모두읽고..라인을 그려주더군여..
> 저는..두개의 값을 읽으면..그려주려고 하는데..
> 알고리즘..상으로는.. 문제가 없는 것 같은데..
> 실제로..컴파일해서..보면..안돼더군여...
> 좋은..생각..부탁합니다..엉엉~~~
> 즐거운..하루되세요..
아무래도 화면 갱신에 관련된 문제로 보이네요
실제로 해보면 안되는 이유는 이벤트를 처리하지 않기 때문에 그렇게 보입니다.
실제로는 그리지만 어떤 프로지저 또는 함수를 완전히 처리하기 전까지는 다른 이벤트를
처리하지 않습니다. 비록 Canvas에는 그림을 그렸지만 실제 화면에 보이기 위한
이벤트는 해당하는 for 문자이 안 끝났기 때문에 보이지는 않습니다.
중간에 Application.ProcessMessages를 넣어보세요 그럼 그려지는 것이 보일것입니다.
그렇지만 순식간에 일어나는 일이니까 실제로 보이지는 않을겁니다.