Q&A

  • 검색해 봤는데 이런문제는 없는거 같아서..ㅡ.ㅡ
다름이 아니라

폼에 100개의 TDBEdit 가 있습니다.

이 100개중 90개만 초기화 시키고자 합니다.

보니깐 100개는 초기화 할수 있는데 90개만은 어떻게하는지요..

제발 아시는분 계신면 알려주세요...



100 개는 아래와 같이 하던데..



for i := 1 to ComponentCount-1 do

if components[i] is TDbEdit Then

(components[i] as TDbEdit).Text := '';



이걸 이렇게 고쳐 보았는데 안되던군요..ㅜ.ㅜ



for i := 1 to ComponentCount-1 do

if (components[i] is TDbEdit)

and components[i].name <> DBEInday then

(components[i] as TDbEdit).Text := '0';



어떤부분이 틀렸을까요 ???



읽어 주셔서 감사합니다..

그럼.



1  COMMENTS
  • Profile
    kylix 2001.04.15 11:59
    뭔가 공통점이 있다면 가능하죠... 아마도 그 90개의 에디트가 DBEInday란 이름으로 시작하는거 같은데 아래와 같이 해보세요...



    for i := 1 to ComponentCount-1 do

    if (Components[i] is TDbEdit) then

    if Pos('DBEInday', Components[i].Name) <> 0 then

    // 컴포넌트 이름에 DBEInday란 문자열이 들어있다면

    TDBEdit(components[i]).Text := '0';



    궁금이 wrote:

    > 다름이 아니라

    > 폼에 100개의 TDBEdit 가 있습니다.

    > 이 100개중 90개만 초기화 시키고자 합니다.

    > 보니깐 100개는 초기화 할수 있는데 90개만은 어떻게하는지요..

    > 제발 아시는분 계신면 알려주세요...

    >

    > 100 개는 아래와 같이 하던데..

    >

    > for i := 1 to ComponentCount-1 do

    > if components[i] is TDbEdit Then

    > (components[i] as TDbEdit).Text := '';

    >

    > 이걸 이렇게 고쳐 보았는데 안되던군요..ㅜ.ㅜ

    >

    > for i := 1 to ComponentCount-1 do

    > if (components[i] is TDbEdit)

    > and components[i].name <> DBEInday then

    > (components[i] as TDbEdit).Text := '0';

    >

    > 어떤부분이 틀렸을까요 ???

    >

    > 읽어 주셔서 감사합니다..

    > 그럼.

    >