Q&A
- 스트링값 더해주는 방법좀 알려주세요.
Label1.Caption := FormatFloat('#,;-#,', value[3]);
Label2.Caption := FormatFloat('#,;-#,', value[4]);
와같이 Label1 과 Label2에 값이 각각 100,200 이 들어가있습니다.
Label3.Caption에 Label1과Label2를 더할려고하는데 그냥더하면 100200식으로나오던가 실수형으로 바꿔서 더해주면 자꾸에러가 납니다. 고수님들 가르켜주세요.
Label2.Caption := FormatFloat('#,;-#,', value[4]);
와같이 Label1 과 Label2에 값이 각각 100,200 이 들어가있습니다.
Label3.Caption에 Label1과Label2를 더할려고하는데 그냥더하면 100200식으로나오던가 실수형으로 바꿔서 더해주면 자꾸에러가 납니다. 고수님들 가르켜주세요.
2
COMMENTS
-
-
Rain Boy님 그냥 함수알려드릴려고 했습니다. 달리 생각마세요.
//문자에서 특정문자를 다른문자로 대체하는 함수가 있습니다, ''로하면 삭제도 되요
StringReplace(str, ',', '', [rfReplaceAll]);
Label3.Caption := FormatFloat('#,;-#,',StrToFloat(
StringReplace(Label1.Caption, ',', '', [rfReplaceAll])) +
StrToFloat(StringReplace(Label2.Caption, ',', '', [rfReplaceAll])));
///////////////////////////////////////////////////////////////////////////
Rain Boy wrote:
> Rain Boy wrote:
> > Function Str_Replace(Source: String): String;
> > var cData: String;
> > i : Integer;
> > begin
> > For i := 1 to Length(Source) do begin
> > if (Copy(Source, i, 1) = ',') Then
> > cData := cData + ''
> > end;
> > Result := cData;
> > end;
> >
> > 위 함수(','를 제거해줌)를 선언한뒤
> >
> > Label3.Caption := FloatToStr(StrToFloat(Str_Replace(Label1.Caption)) +
> > StrToFloat(Str_Replace(Label2.Caption)));
> > 를 해보세여~
> >
> >
> > 초보자 wrote:
> > > Label1.Caption := FormatFloat('#,;-#,', value[3]);
> > > Label2.Caption := FormatFloat('#,;-#,', value[4]);
> > > 와같이 Label1 과 Label2에 값이 각각 100,200 이 들어가있습니다.
> > > Label3.Caption에 Label1과Label2를 더할려고하는데 그냥더하면 100200식으로나오던가 실수형으로 바꿔서 더해주면 자꾸에러가 납니다. 고수님들 가르켜주세요.
(NOTICE) You must be logged in to comment on this post.
-
- 김정식
- •
- 2001.11.10 00:50
- 3 COMMENTS
- /
- 0 LIKES
-
최용일•2001.11.10 01:17안녕하세요. 최용일입니다. 델5에서는 EmptyParam이 System유닛에 선언되어있습니다. 델6에서는 유닛...
-
김정식•2001.11.10 01:47답변에 감사드립니다. EmptyParam Undefined Error는 잘해결되었습니다. 그런데 이번엔 VarArrayCreate U...
-
최용일•2001.11.10 01:55헉~~~ 제가 델6은 써본적이 없어서... ㅠ'ㅠ... 아무래도 헬프에서 찾아보시는 것이 좋을거 같네요.....
-
- 짱아
- 2001.11.10 00:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 홍성호
- 2001.11.09 23:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 이보학
- •
- 2001.11.09 23:48
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.11.10 02:26이보학 wrote: > 텍스트 파일을 생성해서 > 로그를 남기려구 합니다. > 그런데 텍스트 파일은 잘 생성되...
-
- 이제 조금..
- 2001.11.09 23:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보자
- •
- 2001.11.09 22:57
- 2 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.11.09 23:24초보자 wrote: > Label3.Caption := FormatFloat('#,;-#,',StrToFloat( > StringReplace...
-
느티나무•2001.11.09 23:18초보자 wrote: > Label3.Caption := FormatFloat('#,;-#,',StrToFloat( > StringReplace...
-
- 궁금이
- •
- 2001.11.09 22:34
- 6 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.11.10 05:27
-
궁금이•2001.11.10 05:46
-
홍성락•2001.11.10 06:05
-
최용일•2001.11.10 10:32
-
궁금이•2001.11.10 17:38
-
궁금이•2001.11.10 05:41
-
- smileye
- 2001.11.09 22:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 지훈
- 2001.11.09 22:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 이재현
- •
- 2001.11.09 21:53
- 1 COMMENTS
- /
- 0 LIKES
-
test•2001.11.10 04:05FilterIndex 사용해보세요 .. procedure TForm1.Button1Click(Sender: TObject); var I: int...
-
- 철
- •
- 2001.11.09 21:16
- 1 COMMENTS
- /
- 0 LIKES
-
LostJuly•2001.11.09 21:55철 wrote: > 오라클 서버에 로그인 한후 현제 연결된 세션이 > 끊어진 상태인지 연결된 상태인지 테이블...
-
- 델파이언
- 2001.11.09 21:11
- 0 COMMENTS
- /
- 0 LIKES
-
- rainsad@hihome.com
- 2001.11.09 21:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보*규리*
- 2001.11.09 20:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 김지홍
- •
- 2001.11.09 20:42
- 1 COMMENTS
- /
- 0 LIKES
-
김지홍•2001.11.17 00:23김지홍 wrote: > 쓰레드를 사용하지 않고 DHTML Edit 컴포넌트를 사용했을때는 > 에러없이 잘돌아가는데....
-
- 초보자
- •
- 2001.11.09 20:24
- 6 COMMENTS
- /
- 0 LIKES
-
빅용철•2001.11.10 00:14Table과 DBGrid의 ReadOnly가 False이어야 합니다. (Query의 경우 RequestLive속성) 초보자 wrote: >...
-
빅용철•2001.11.10 00:20Query의 경우 RequestLive속성은 True여야 합니다. 빅용철 wrote: > > Table과 DBGrid의 ReadOnly가 ...
-
초보자•2001.11.10 01:54빅용철 wrote: > Query의 경우 RequestLive속성은 True여야 합니다. > > 빅용철 wrote: > > > > Tab...
-
빅용철•2001.11.13 01:37Token 에러가 난나면, Query의 SQL문에 오류가 있기 때문이죠. SQL문을 바로 잡으세요. RequestLive를 안...
-
Rain Boy•2001.11.09 20:38edit 박스의 MaxLength를 살펴보세요 아마 자리수 때문인것 같은데.. 초보자 wrote: > dbgrid에 뿌려...
-
초보자•2001.11.09 22:20Rain Boy wrote: > edit 박스의 MaxLength를 살펴보세요 > 아마 자리수 때문인것 같은데.. > > 초보자...
-
- 초보자
- •
- 2001.11.09 20:18
- 2 COMMENTS
- /
- 0 LIKES
Label1.Caption := FormatFloat('#,;-#,', value[3]); Label2.Caption := FormatFloat('#,;-#,', value[4]); 와같이 Label1 과 Label2에 값이 각각 100,200 이 들어가있습니다. Label3.Caption에 Label1과Label2를 더할려고하는데 그냥더...-
Rain Boy•2001.11.09 20:31Function Str_Replace(Source: String): String; var cData: String; i : Integer; begin ...
-
홍성락•2001.11.09 20:42Rain Boy님 그냥 함수알려드릴려고 했습니다. 달리 생각마세요. //문자에서 특정문자를 다른문자로 대체하...
-
- 나초보
- •
- 2001.11.09 20:17
- 1 COMMENTS
- /
- 0 LIKES
-
지나가는넘•2001.11.09 21:49if lenth(SU) > 50 then temp_SU := copy(SU,1,49); else temp_SU := SU; 대충 이렇게 하면 되겠...
-
- moon
- •
- 2001.11.09 20:38
- 2 COMMENTS
- /
- 0 LIKES
-
bingyou•2001.11.09 20:19moon wrote: > 그냥 소스를 올려놓으면... > > Procedure LibraryCall(Mainapp : TApplication; Const ...
-
moon•2001.11.09 20:51bingyou wrote: > moon wrote: > > 그냥 소스를 올려놓으면... > > > > Procedure LibraryCall(Mainap...
-
- 짱아
- 2001.11.09 19:53
- 0 COMMENTS
- /
- 0 LIKES
var cData: String;
i : Integer;
begin
For i := 1 to Length(Source) do begin
if (Copy(Source, i, 1) = ',') Then
cData := cData + ''
end;
Result := cData;
end;
위 함수(','를 제거해줌)를 선언한뒤
Label3.Caption := StrToFloat(Str_Replace(Label1.Caption)) +
StrToFloat(Str_Replace(Label2.Caption))
를 해보세여~
초보자 wrote:
> Label1.Caption := FormatFloat('#,;-#,', value[3]);
> Label2.Caption := FormatFloat('#,;-#,', value[4]);
> 와같이 Label1 과 Label2에 값이 각각 100,200 이 들어가있습니다.
> Label3.Caption에 Label1과Label2를 더할려고하는데 그냥더하면 100200식으로나오던가 실수형으로 바꿔서 더해주면 자꾸에러가 납니다. 고수님들 가르켜주세요.