Q&A
- TEdit의 값을 Single로 받고 싶은데여...
procedure TFormInst43.EDPUNG1Exit(Sender: TObject);
var
MyNum : Single;
Pung : Single;
Total : Single;
begin
MyNum := 3.305;
Pung := StrToFloat(EDPUNG1.Text);
Total := Pung * MyNum;
_____________________ <--요부분을 어떻게 해야할지 TT;
end;
평의 값을 받아서여... ㎡로 바꾸고 싶은데여....
Edit1에서 Exit이벤트를 주어서 Edit2에는 ㎡값이 들어가려고여...
EDPUNG2.Text에 Total의 값을 어떻게 너어야할지여...
EDPUNG2.Text는 String값이고 Total의 값은 Single이라서여..
var
MyNum : Single;
Pung : Single;
Total : Single;
begin
MyNum := 3.305;
Pung := StrToFloat(EDPUNG1.Text);
Total := Pung * MyNum;
_____________________ <--요부분을 어떻게 해야할지 TT;
end;
평의 값을 받아서여... ㎡로 바꾸고 싶은데여....
Edit1에서 Exit이벤트를 주어서 Edit2에는 ㎡값이 들어가려고여...
EDPUNG2.Text에 Total의 값을 어떻게 너어야할지여...
EDPUNG2.Text는 String값이고 Total의 값은 Single이라서여..
2
COMMENTS
-
-
최용일 wrote:
> 안녕하세요. 최용일입니다.
>
> StrToFloat의 반대 역활을 하는 함수(FloatToStr)를 쓰면 되죠...
>
> procedure TFormInst43.EDPUNG1Exit(Sender: TObject);
> var
> MyNum : Single;
> Pung : Single;
> Total : Single;
> begin
> MyNum := 3.305;
> Pung := StrToFloat(EDPUNG1.Text);
> Total := Pung * MyNum;
> EDPUNG2.Text := FloatToStr(Total);
> end;
>
> ^^ 항상 즐코하세요...
>
> zerodog wrote:
> > procedure TFormInst43.EDPUNG1Exit(Sender: TObject);
> > var
> > MyNum : Single;
> > Pung : Single;
> > Total : Single;
> > begin
> > MyNum := 3.305;
> > Pung := StrToFloat(EDPUNG1.Text);
> > Total := Pung * MyNum;
> > _____________________ <--요부분을 어떻게 해야할지 TT;
> > end;
> > 평의 값을 받아서여... ㎡로 바꾸고 싶은데여....
> > Edit1에서 Exit이벤트를 주어서 Edit2에는 ㎡값이 들어가려고여...
> > EDPUNG2.Text에 Total의 값을 어떻게 너어야할지여...
> > EDPUNG2.Text는 String값이고 Total의 값은 Single이라서여..
> >
(NOTICE) You must be logged in to comment on this post.
-
- nurihong
- 2001.03.24 06:30
- 0 COMMENTS
- /
- 0 LIKES
-
- choboja
- 2001.03.24 06:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 김진호
- •
- 2001.03.24 20:10
- 1 COMMENTS
- /
- 0 LIKES
-
감초•2001.03.24 20:11procedure Reset(var F [: File; RecSize: Word ] ); 너무 많은 파라메터를 보냈군요. 김진호 wrote: ...
-
- 김지훈
- 2001.03.24 05:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보자
- •
- 2001.03.28 11:39
- 2 COMMENTS
- /
- 0 LIKES
-
윤광석•2001.03.28 11:39초보자 wrote: > 퀵리포트 미리보기를 제가 만들었거든요,, > 그런데 인쇄범위를 전체출력, 현재면출력, ...
-
초보자•2001.03.28 11:40윤광석 wrote: > 초보자 wrote: > > 퀵리포트 미리보기를 제가 만들었거든요,, > > 그런데 인쇄범위를 ...
-
- 김인수
- •
- 2001.03.24 04:11
- 3 COMMENTS
- /
- 0 LIKES
-
임형호•2001.03.24 07:34한델 우측메뉴에 도구보이세요? 거기 누르면...아스키코드란이 나올겁니다. 참조하세요. 그럼...
-
김인수•2001.03.26 21:53임형호 wrote: > 한델 우측메뉴에 도구보이세요? 거기 누르면...아스키코드란이 나올겁니다. > 참조하세...
-
최용일•2001.03.26 22:39안녕하세요. 최용일입니다. 한델우측메뉴는 이곳 웹페이지의 오른쪽에 있는 메뉴를 말합니다. 델파이 Q&...
-
- zerodog
- •
- 2001.03.24 03:57
- 1 COMMENTS
- /
- 0 LIKES
-
감초•2001.03.24 12:14Label의 AutoSize를 False로 넣으시고 크기를 조절하면 됩니다. zerodog wrote: > 감 > 사 > 합 > ...
-
- 설창원
- 2001.03.24 03:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 천사양아
- •
- 2001.03.24 03:29
- 2 COMMENTS
- /
- 0 LIKES
-
감초•2001.03.24 12:24일반적으로 원하는 컴포넌트레 active control을 주려고 할때는 YourComponent.SetFocus; 하시면 됩...
-
천사양아•2001.03.24 19:47음.. 그건요... 컴포넌트를 어딘가에 붙여놓고 거기서 이벤트를 줄때 하는거 아닌가요? 그게 아니구요.....
-
- 병찬
- 2001.03.24 03:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 구리구리
- 2001.03.24 03:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 김길남
- 2001.03.24 03:13
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- 2001.03.24 02:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 김명찬
- 2001.03.24 02:45
- 0 COMMENTS
- /
- 0 LIKES
-
- Magnet
- •
- 2001.03.24 02:23
- 3 COMMENTS
- /
- 0 LIKES
-
kylix•2001.03.24 02:27hThread1 := CreateThread(nil, 0, @refr...
-
Magnet•2001.03.24 19:28고맙습니다..글구 감사함다. 근데 넘 간단히 답해주시에영.. 딱 10자만 적어주시다닝...ㅡ..ㅜ) 덤...
-
kylix•2001.03.24 19:34뭘 더 써달라는 것인지? 거기에다가 들어갈 파라매터를 써주시면 되는데... nil대신에 파라매터를 넣어...
-
- lancelee
- 2001.03.24 02:21
- 0 COMMENTS
- /
- 0 LIKES
-
- newag77
- •
- 2001.03.24 01:55
- 1 COMMENTS
- /
- 0 LIKES
-
kylix•2001.03.24 02:06혹시 C++에서 그 함수를 export안 시커주신건 아닌지... newag77 wrote: > C++ Builder(버전4.0)에서 ...
-
- 카오스@@
- •
- 2001.03.24 01:37
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.03.24 01:42안녕하세요. 최용일입니다. 한델(여기), 델코(www.delphikorea.com), 델마당(www.delmadang.com)에서 게...
-
- zerodog
- •
- 2001.03.24 01:21
- 2 COMMENTS
- /
- 0 LIKES
procedure TFormInst43.EDPUNG1Exit(Sender: TObject); var MyNum : Single; Pung : Single; Total : Single; begin MyNum := 3.305; Pung := StrToFloat(EDPUNG1.Text); Total := Pung * MyNum; _____________________-
최용일•2001.03.24 01:45안녕하세요. 최용일입니다. StrToFloat의 반대 역활을 하는 함수(FloatToStr)를 쓰면 되죠... proced...
-
zerodog•2001.03.24 03:55최용일 wrote: > 안녕하세요. 최용일입니다. > > StrToFloat의 반대 역활을 하는 함수(FloatToStr)를 ...
-
-
최용일•2001.03.24 01:40안녕하세요. 최용일입니다. 실수로 변환해서 검사하세요. 정수도 실수의 한 부분이니까... if (StrTo...
-
송길수•2001.03.24 01:14저두 잘은 모르는데여... 혹시 StrToFloat을 하면 되지 안을까여..?? 정확한건 아니지만 저의 생각은...
-
StrToFloat의 반대 역활을 하는 함수(FloatToStr)를 쓰면 되죠...
procedure TFormInst43.EDPUNG1Exit(Sender: TObject);
var
MyNum : Single;
Pung : Single;
Total : Single;
begin
MyNum := 3.305;
Pung := StrToFloat(EDPUNG1.Text);
Total := Pung * MyNum;
EDPUNG2.Text := FloatToStr(Total);
end;
^^ 항상 즐코하세요...
zerodog wrote:
> procedure TFormInst43.EDPUNG1Exit(Sender: TObject);
> var
> MyNum : Single;
> Pung : Single;
> Total : Single;
> begin
> MyNum := 3.305;
> Pung := StrToFloat(EDPUNG1.Text);
> Total := Pung * MyNum;
> _____________________ <--요부분을 어떻게 해야할지 TT;
> end;
> 평의 값을 받아서여... ㎡로 바꾸고 싶은데여....
> Edit1에서 Exit이벤트를 주어서 Edit2에는 ㎡값이 들어가려고여...
> EDPUNG2.Text에 Total의 값을 어떻게 너어야할지여...
> EDPUNG2.Text는 String값이고 Total의 값은 Single이라서여..
>