Q&A
- 최용일님 도와 주세요.
폼이 없는 유닛 코딩
unit Unit2;
interface
function Test_FC(j : string) : integer;
procedure Test_PD();
var
i : string;
implementation
uses unit1;
procedure Test_PD();
begin
i:=Form1.Edit1.Text;
Test_FC(i);
case Test_FC(i) of
1:
begin
Form1.label1.caption:='S';
end;
2:
begin
Form1.label1.caption:='F';
end;
end;
function Test_FC(j : string): integer;
begin
if i='1' then
begin
Test_FC:=1;
end
else
begin
Test_FC:=2;
end;
end;
end.
그런데 프로시저는 문제가 없는데 함수에서 에러가 뜹니다.
에러 메세지:statments expected but 'function' found
unit Unit2;
interface
function Test_FC(j : string) : integer;
procedure Test_PD();
var
i : string;
implementation
uses unit1;
procedure Test_PD();
begin
i:=Form1.Edit1.Text;
Test_FC(i);
case Test_FC(i) of
1:
begin
Form1.label1.caption:='S';
end;
2:
begin
Form1.label1.caption:='F';
end;
end;
function Test_FC(j : string): integer;
begin
if i='1' then
begin
Test_FC:=1;
end
else
begin
Test_FC:=2;
end;
end;
end.
그런데 프로시저는 문제가 없는데 함수에서 에러가 뜹니다.
에러 메세지:statments expected but 'function' found
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 김규억
- •
- 2000.07.22 02:06
- 2 COMMENTS
- /
- 0 LIKES
-
이승우•2000.07.22 03:11김규억 wrote: > 파라독스DB에 그래픽파일(gif, jpg, bmp등..)을 저장하는 방법을 좀 가르쳐 주십시오. >... -
그냥•2001.02.13 01:11이승우 wrote: > 김규억 wrote: > > 파라독스DB에 그래픽파일(gif, jpg, bmp등..)을 저장하는 방법을 좀 ...
-
- rika
- •
- 2000.07.22 01:48
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.07.22 01:58안녕하세요. 최용일입니다. 않될리가 있나요.. 델파이에서 이런걸 Procedual Pointer라고 부릅니다. ...
-
- 김태영
- •
- 2000.07.22 01:46
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.07.22 02:06안녕하세요. 최용일입니다. llf란 함수가 비절베이직에서는 많이 쓰이나보죠? 제 생각엔 별 필요없을것 ...
-
- 이광민
- •
- 2000.07.22 01:37
- 3 COMMENTS
- /
- 0 LIKES
-
강인규•2000.07.22 02:54저도 자세히 알지는 못하지만 그래두 함 적어봅니다. 쿠키를 부여할 때... with response.cookies do...
-
hugehead•2000.07.22 02:30질문이 너무 애매하군요. 좀더 구체적인 질문이었으면 합니다. 이광민 wrote: > 왕왕초보초보델...
-
송인표•2000.07.22 03:57// 여기나오는 방식은 약간 구식입니다. // 그러나 제일 잘되더군요... // 만약 MyCookie=1 , MyCook...
-
- 이강수
- 2000.07.22 01:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 최승선
- 2000.07.22 01:38
- 0 COMMENTS
- /
- 0 LIKES
-
- 방문객
- •
- 2000.07.22 01:02
- 3 COMMENTS
- /
- 0 LIKES
-
BLUE•2000.08.30 19:51방문객 wrote: > 저번에도 여러번 질문을 올렸는데 답변이 없군요... > > stringgrid의 내용을 엑셀로 ...
-
mashall3•2000.07.22 06:29방문객 wrote: > 저번에도 여러번 질문을 올렸는데 답변이 없군요... > > stringgrid의 내용을 엑셀로 ...
-
rika•2000.07.22 01:30방문객 wrote: > 저번에도 여러번 질문을 올렸는데 답변이 없군요... > > stringgrid의 내용을 엑셀로 ...
-
- somoon
- •
- 2000.07.22 00:48
- 3 COMMENTS
- /
- 0 LIKES
-
방석호•2000.07.22 02:49somoon wrote: > > 델에서 > button1을 클릭하면 copy file하는 초보코딩좀 > > copy sourcefile de...
-
Black}{ole•2000.07.22 01:03somoon wrote: > > 델에서 > button1을 클릭하면 copy file하는 초보코딩좀 > > copy sourcefile de...
-
성호종•2000.07.22 01:02somoon wrote: > > 델에서 > button1을 클릭하면 copy file하는 초보코딩좀 > > copy sourcefile de...
-
- 송종영
- 2000.07.22 00:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보..
- •
- 2000.07.21 23:56
- 2 COMMENTS
- /
- 0 LIKES
-
Black}{ole•2000.07.22 00:22왕초보.. wrote: > 큐앤에이란을 아무리 뒤져더 찾을수가 없어서 이렇게 글을올립니다. > Canvas를 이용...
-
왕초보..•2000.07.22 00:38Black}{ole wrote: > 왕초보.. wrote: > > 큐앤에이란을 아무리 뒤져더 찾을수가 없어서 이렇게 글을올립...
-
- 이동근
- •
- 2000.07.21 23:33
- 1 COMMENTS
- /
- 0 LIKES
-
이동근•2000.07.26 18:01답변해 주시는 분들이 없으시네요... 질문 내용이 너무 부실했나보군요. 해결 방법을 생각하다가... ...
-
-
최석기•2000.07.22 03:15김다음 wrote: > dbgrid의 내용을 엑셀의 saveas로저장했습니다. > procedure > var > workbook : Var...
-
정지호•2000.07.22 00:03김다음 wrote: > dbgrid의 내용을 엑셀의 saveas로저장했습니다. > procedure > var > workbook : Var...
-
-
- 정덕
- 2000.07.21 22:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 엑소
- •
- 2000.07.21 21:54
- 1 COMMENTS
- /
- 0 LIKES
-
최석기•2000.07.21 22:01엑소 wrote: > 수고하십니다. > 질문 그대로 새롬데이타맨의 왼쪽 아이콘창(?) 구현방법에 > 대해 알고 ...
-
- 이현우
- •
- 2000.07.21 21:41
- 1 COMMENTS
- /
- 0 LIKES
-
화랑•2000.07.22 00:31이현우 wrote: > 안녕하세요 > 고수님들 > 아켜죠요 > > 다름이 아니라 Web 에서 DATA 을 DLL 에서...
-
-
최용일•2000.07.22 02:12안녕하세요. 최용일입니다. 질문만으로는 무엇이 문제인가 확실히 알 수 없군요. 저도 많이 써봤지만 한...
-
-
- 박성일
- •
- 2000.07.21 20:53
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.07.21 20:58안녕하세요. 최용일입니다. 아래와 같이 하세요... Assign할 때 sndbuf := @aa; sndbuf := @bb...
-
- happykevin
- •
- 2000.07.21 20:50
- 1 COMMENTS
- /
- 0 LIKES
-
성호종•2000.07.21 21:21happykevin wrote: 아래 제가 제작한 소스가 보이는데요~ 저는 DBComboBox말고 그냥 Combobox 사용한 것...
-
- 알로에
- •
- 2000.07.21 20:49
- 2 COMMENTS
- /
- 0 LIKES
-
어린왕자•2000.07.21 22:49안녕하세요..영원한 델초보 어린왕자입니다.. 별루 어려울게 없어요..프로시저아시져? 아래 프로시저는...
-
정지호•2000.07.21 21:03알로에 wrote: > 궁금한게 있어요.. > Sender라는게 있잖아요? > 예를 들면 > procedure TForm1.NewMen...
-
- 김태영
- •
- 2000.07.21 20:46
- 1 COMMENTS
- /
- 0 LIKES
폼이 없는 유닛 코딩 unit Unit2; interface function Test_FC(j : string) : integer; procedure Test_PD(); var i : string; implementation uses unit1; procedure Test_PD(); begin i:=Form1.Edit1.Text; Test_FC(i); case Test_FC(i)...-
최용일•2000.07.21 21:03안녕하세요. 최용일입니다. case문에서 end;가 빠졌네요... case Test_FC(i) of 1: ...
case문에서 end;가 빠졌네요...
case Test_FC(i) of
1:
begin
Form1.label1.caption:='S';
end;
2:
begin
Form1.label1.caption:='F';
end;
end; <<<<<<<<<<<<<<<<<<<<< 추가
위와같이 한줄짜리는 begin ~ end로 안묶어도 됩니다....
case Test_FC(i) of
1: Form1.label1.caption:='S';
2: Form1.label1.caption:='F';
end;
^^ 항상 즐코하세요.
김태영 wrote:
> 폼이 없는 유닛 코딩
> unit Unit2;
>
> interface
> function Test_FC(j : string) : integer;
> procedure Test_PD();
>
>
> var
> i : string;
>
> implementation
>
> uses unit1;
>
> procedure Test_PD();
> begin
> i:=Form1.Edit1.Text;
> Test_FC(i);
> case Test_FC(i) of
> 1:
> begin
> Form1.label1.caption:='S';
> end;
> 2:
> begin
> Form1.label1.caption:='F';
> end;
>
>
> end;
>
> function Test_FC(j : string): integer;
> begin
> if i='1' then
> begin
> Test_FC:=1;
> end
> else
> begin
> Test_FC:=2;
> end;
> end;
>
>
> end.
>
> 그런데 프로시저는 문제가 없는데 함수에서 에러가 뜹니다.
> 에러 메세지:statments expected but 'function' found