Q&A
- IF문을 줄이는 기초적인 질문입니다.
가령
if edit1.text='' then a1:=0;
if edit2.text='' then a2:=0;
if edit3.text='' then a3:=0;
.
.
.
if edit50.text='' then a50:=0;
이것을 줄일수 있는 방법은 없을까염???
if edit1.text='' then a1:=0;
if edit2.text='' then a2:=0;
if edit3.text='' then a3:=0;
.
.
.
if edit50.text='' then a50:=0;
이것을 줄일수 있는 방법은 없을까염???
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 김대훈
- 2004.03.13 01:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 김승재
- •
- 2004.03.13 01:03
- 2 COMMENTS
- /
- 0 LIKES
-
방순한•2004.03.13 01:26Table1PAY_SEQ.asString := ''; 이렇게 해보시죠..... 제가 알기로는 Value는 해당 필드의 타입으로 값을...
-
장태원•2004.03.13 02:54Table1PAY_SEQ.Value := ''; 앞부분에 // 를 넣어주셔서 넘어가면 됩니다.
-
- 박수영
- •
- 2004.03.13 00:18
- 2 COMMENTS
- /
- 0 LIKES
-
Crazy•2004.03.13 00:43Key := #0;
-
박수영•2004.03.13 01:28그렇게 했는디요...
-
- goodlsw
- •
- 2004.03.12 23:32
- 1 COMMENTS
- /
- 0 LIKES
-
장태원•2004.03.13 00:27Option 에 Rowselect 가 True 로 되어 있어서 그런듯합니다.ㅏ var Form1: TForm1; ...
-
- 3번째 감자
- •
- 2004.03.12 23:02
- 1 COMMENTS
- /
- 0 LIKES
-
방순한•2004.03.13 01:32제가 알기로 Union join은 order by를 제일 마지막 쿼리문에만 사용할수 있는걸로 알고 있습니다... 마...
-
- 박대원
- 2004.03.12 22:45
- 0 COMMENTS
- /
- 0 LIKES
-
- namsick
- 2004.03.12 22:07
- 0 COMMENTS
- /
- 0 LIKES
-
- Del_WOW
- 2004.03.12 19:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 송승호
- •
- 2004.03.12 19:20
- 1 COMMENTS
- /
- 0 LIKES
-
장태원•2004.03.15 18:50Try Except End 문을 사용하세요 . Databaseerror()
-
- 허영식
- •
- 2004.03.12 05:19
- 1 COMMENTS
- /
- 0 LIKES
-
장태원•2004.03.12 18:07딱 두가자만 이야기 하겠습니다. 사용 편리한 컴퍼넌트 및 디자인. 데이타베이스 디자인시 사용 편함...
-
- 박준영
- •
- 2004.03.12 03:17
- 1 COMMENTS
- /
- 0 LIKES
-
장덕곤•2004.03.12 04:58제가 알기로는 query를 close시킨후 동적으로 쿼리를 생성했을경우 쿼리의 메모리를 해제해줘야되는걸로...
-
- 제거반
- 2004.03.12 03:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 피터팬
- 2004.03.12 03:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 박수영
- •
- 2004.03.12 01:46
- 5 COMMENTS
- /
- 0 LIKES
-
김춘경•2004.09.07 05:05Property의 Visible 이 False 인지 확인해 보세요. 그게 True로 되어 있으면 FormCreate 가 실행이 안됩니...
-
장태원•2004.03.12 18:08어떻게 하셨나요?
-
박수영•2004.03.12 18:18다른 사람의 프로그램을 수정중인디... 원본은 생성이 되는디 제가 수정하고 있는 부분에서는 안되요...
-
장태원•2004.03.12 18:29-_- 말로는 이렇게 이야기 할수 있겠네요.. 잘만들면 됩니다. 소스를 올려주세요.
-
Crazy•2004.03.13 00:52특별한 사유가 있을것 같은데요 ㅡ.ㅡ 가령..생성됐는데 안보이던가 등등...한번 살펴보시길.
-
- 윤상현
- •
- 2004.03.12 00:41
- 2 COMMENTS
- /
- 0 LIKES
-
박수영•2004.03.12 01:39우선 edit는 여러개의 문자를 입력할거니까 문자의 길이만큼 하나하나 비교를 하면 되는데... if not...
-
윤수아•2004.03.19 20:46if not ( ( char in ['0'..'9'] ) or ( char in ['A'..'F'] ) or ( char in ['a'..'f'] )) then
-
- 나상원
- 2004.03.12 00:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 애채
- •
- 2004.03.12 00:18
- 1 COMMENTS
- /
- 0 LIKES
-
Crazy•2004.03.13 00:46팁란에서 프린터로 검색을 해보세요..
-
- 정경철
- 2004.03.11 21:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 몰파이
- •
- •
- 2004.03.11 21:48
- 1 COMMENTS
- /
- 8 LIKES
가령 if edit1.text='' then a1:=0; if edit2.text='' then a2:=0; if edit3.text='' then a3:=0; . . . if edit50.text='' then a50:=0; 이것을 줄일수 있는 방법은 없을까염???-
최성준•2004.03.11 23:16이렇게 하시면 별 문제 없겠는데요...... procedure TForm1.Button1Click(Sender: TObject); var ...
-
- 진돌
- •
- 2004.03.11 21:23
- 2 COMMENTS
- /
- 0 LIKES
-
진돌•2004.03.11 23:35요렇게 하면 되더군요.. ^^;; type // since IPv4 address consists of four octets or si...
-
김대혁•2004.03.11 21:55FORMAT 함수를 이용하심이 어떠한지요...
이렇게 하시면 별 문제 없겠는데요......
procedure TForm1.Button1Click(Sender: TObject);
var
j, i : integer;
My: TComponent;
aVal : array [1..50] of integer;
begin
for j:= 0 to ComponentCount - 1 do begin
My:= Components[j];
if (My is TEdit) then begin
if (My as TEdit).Name = ( 'Edit' + intToStr(j)) then begin
if (My as TEdit).Text = '' then begin
aval[j] := 0;
end;
end;
end;
end;
end;
그럼 즐코하세요...