Q&A

  • Edit1, Edit2....등에서 얻은 값을..
안녕하세요.
또 궁금한게 있어서 질문을 올립니다.

Edit1, Edit2, Edit3, Edit4, Edit5, Edit6
이 있다면.
Edit1에 출력되는 숫자 Edit2에 출력되는 숫자 ~ Edit6에 출력되는
숫자의 값을
나중에  RichEdit에 Edit1 + Edit2 + Edit3 + Edit4 + Edit 5 + Edit6의 값을
뿌려주려구 하는데요?

이방법은 어케해야할지 가물가물해서

델파이한지 며칠 안되어서요... 조언 부탁드립니다.

Edit1은  For문을 통하여 integer값으로 출력됩니다.
Edit2도 마찬가지고요
Edit3도 동일합니다. Edit4, Edit5, Edit6도 동일하게 출력되고요.

그래서 이 출력된 값을 RichEdit에 그 출력 결과 값을 00 00 00 00 00 00
이런식으로 뿌려줄려구 하는데 방법이 없을가요?
2  COMMENTS
  • Profile
    구창민 2003.01.27 21:26
    안녕하세요~ 구창민입니다.

    함수를 하나 간단히 만들어 쓰세여..

    예를 들면 아래처럼..

    function TForm.AddingAllEditValue : string;
    var
      Hap : integer;
      i : integer;
    begin
      Hap := 0;
      for i := 1 to 6 do
      begin
        with Self.FindComponent('TEdit' + IntToStr(i)) as TEdit do
        begin
          try
            Hap := Hap + StrToInt(Text);
          except
          end;
        end;
      end;
      result := IntToStr(Hap);
    end;

    //호출은
    RichEdit.Lines.Add(AddingAllEditValue);
    //하시면 되겠지여

    원하시는 결과가 나오길 기원합니다.

    그럼~ 항상 즐거운 프로그래밍 하시길~~



  • Profile
    우주천왕 2003.01.27 21:43
    앗 ~~~ 무지 감사합니다.
    구현하니깐 무지 잘되네요~~ ^^