Q&A

  • 여러개의 숫자중 원하는 숫자가 넘으면 별도로 저장하구 싶은데..
안녕하세요
Edit box에 숫자가 임의로 1,5,3,4,6,1,6,7,5,1,2가 있는데....
여기서 위에서부터 임의로 정한값(10)이 넘지않도록 끊고 싶은데 어떻게 하는게 좋을까요?
결과값은 Memo에
1,5,3,
4,6,
1,6
7,
5,1,2
이런식으로 결과값이 보이게 하고 싶습니다.
쉬운거 같은데 생각처럼 쉽게 안되네요
오늘 하루종일 이거땜시 머리만 아프네요..ㅜㅜ
그럼 좋은 답점 부탁드립니다...^^
1  COMMENTS
  • Profile
    구창민 2003.02.26 04:23
    for 문을 이용해 , 를 제외한 수치를 더해가며

    10을 넘을시 제외하고 아래로 스킵하시면 되겠네여..

    예를 들면..

    var
      str, istr : string
      hap : integer;
    begin
    s := Edit.Text
    hap := 0;
    for i:= 0 to Length(Str) do
    begin
      if str[i] <> ',' then
       istr := str[i];
      hap := hap + IntToStr(istr);
      if hap > 10 then
       DoSomeThing..
      else
       DoSomeThing...

    end;

    대충 이렇게 하시면 되겠네여..

    마구 친거라 에러가 있을수 있으니 참고만하세여~

    그럼 즐거운 프로그래밍 하시구여~