안녕하세요..영원한 델초보 어린왕자임다..

답변이 쫌 그렇더라도 이해해주세염..저두 초보라서..

a가 소수라고 하면..

소수첫째짜리가 안남게 10을 계속 곱해주구

마지막에 심심하게 10을 곱해주면 되잖아요..



while ((a-trunc(a))>0) do

begin

a:=a*10

end;

a:=a*10;

showmessage(IntToStr(a));



Trunc()함수는 정수부분만 리턴합니다.

원하시는 답변이 이게 맞나요?

그럼 즐코하셔요





바보감자 wrote:

> 안녕 하세요 바보감자 입니다.

> 제가 테이블에 있는 자료들을 txt 로 뽑을려구 하는데요

> 그 자료중에 소수점이있어요

> 그런데 그 소수점 대신에 다른 문자를 집어 넣을려구 하거든요

> 어케 조건문을 주어야 할까요

> 제발 좀 알려주세요

> 급한겁니다 부디 부탁 드립니다..

> 점심시간이 다 되어 가는군요...

> 델파이 를 좋아하시는 여러분 좋은 점심 시간 가지세염 그럼 꾸우벅...

>

>

>

> 즐코 즐코 즈을 코 즐즐즐즐코 즐즐 코 즐즐 코 즐즐 코 ~~~~~~~~~

> 언제나 비를 기다리는 바보감자 올림.

>

>

> p.s 아 그리구요..

> 위에꺼랑. 질문 하나 더 드릴께요 ^^;;

> 1.2 라는 숫자가 있어요 소수예요..

> 이거를 120 으로 출력 하는방법.. 0을 프라스 시키는거예요

> 대신 1.20 이런 데이타는 그냥 120

> 으로 ...

> 좀 알려 주세엽~~~~~~~~~~~~~~

>

>

StringReplace라는 함수가 있습니다.

응용하시면 원하는 결과를 얻을 수 있을겁니다.

var

sm : string;

begin

sm := '1.2'

sm := StringReplace(sm,'.','따른문자',[rfReplaceAll]);

end;



sm은 1따른문자2 가됩니다.



즐프하세여~ ^-^



바보감자 wrote:

> 안녕 하세요 바보감자 입니다.

> 제가 테이블에 있는 자료들을 txt 로 뽑을려구 하는데요

> 그 자료중에 소수점이있어요

> 그런데 그 소수점 대신에 다른 문자를 집어 넣을려구 하거든요

> 어케 조건문을 주어야 할까요

> 제발 좀 알려주세요

> 급한겁니다 부디 부탁 드립니다..

> 점심시간이 다 되어 가는군요...

> 델파이 를 좋아하시는 여러분 좋은 점심 시간 가지세염 그럼 꾸우벅...

>

>

>

> 즐코 즐코 즈을 코 즐즐즐즐코 즐즐 코 즐즐 코 즐즐 코 ~~~~~~~~~

> 언제나 비를 기다리는 바보감자 올림.

>

>

> p.s 아 그리구요..

> 위에꺼랑. 질문 하나 더 드릴께요 ^^;;

> 1.2 라는 숫자가 있어요 소수예요..

> 이거를 120 으로 출력 하는방법.. 0을 프라스 시키는거예요

> 대신 1.20 이런 데이타는 그냥 120

> 으로 ...

> 좀 알려 주세엽~~~~~~~~~~~~~~

>

>

감사 하무니다~ ^^

정말 감사하구염

언제나 즐 코 하세염 헤헤헤

즈을 코 즐즐즐 코 즈을코 즐즐즐즐코 ~

즈을코.( 콧물.?)

*^.^*;;

정말 감사해염 꾸벅~