님과 같은 방법으로 했더니 첨엔 form1이라고 가지고 오더군요..

황당해서...

그리고 아래처럼 했더니 text를 잘 가지고 오더군요...

아참 이대로 하실필요는 없습니다..

값을 보려고 풀어놓은것이니깐요.


var
  ss : String;
  TempEdit : TEdit;
begin
  TempEdit := TEdit.Create(self);

  TempEdit := TEdit(FindComponent('FEdit' + '1'));

  ss := TempEdit.Text;

  Memo1.Lines.Add(Format(' %s  %s  NULL,' , ['ZZ_'+FormatFloat('0000',1),
  ss]));

end;

죄송하지만 다시한번 봐주시겠습니까?
위쪽에 어떤걸 할려는지 다시 올렸습니다.
답변에 ㄳ합니다...

var
  ss : string;
  TempEdit : TEdit;     <= 굳이 말리 필요 없습니다. ^^
begin
  TempEdit := Edit.Create(self);  <= 왜 했을까요(하지 않았으면
                                                   이 소스는 문제 없습니다.)

  TempEdit := TEdit(FindComponent('FEdit' + '1'));  
  
   // 결정적으로 잘못한 곳입니다.(위의 생성자 쓴것이 맞다면)
   // TempEdit 는 Pointer입니다.
   // 아까 TEdit.Create(self) 해서 그 어드레스를 담았는데
   // 그 어드레스는 버리고
   // 폼에 있는 EDITBOX의 어드레스를 담았습니다.

  ss := TempEdit.Text;

  Memo1.Lines.Add(Format(' %s  %s  NULL,' , '+FormatFloat '0000',1),
  ss]));

  // 여기서 TempEdit는 생성을 했으니 소멸을 해야 합니다.
  // 그러나 안됩니다.
  // TempEdit에는 폼에 있는 EDITBOX의 어드레스를 담았기에
  // 그것을 소멸하면 폼에 있는 EDITBOX도 사라지기에...


  // 그럼 상기 EDITBOX 생성한것은 어디 있을까요
  // 폼 종료할때까지

질문이 너무 난해해요..
어떤걸 원하는지 이해가 안되네요..
쉽게 설명해 주세요..

위쪽에 어떤걸 질문하는지 다시 올렸습니다...

왜 에러처리 루틴이 빠졌나요..
찾지 못했을때 처리가 전혀 되어있지 않습니다.
그것이 우선입니다..

With FindComponent('잘못된컴퍼넌트이름') as TEdit do
begin
  caption := text;
end;
위의 문장 에러메세지 없습니다.
이것이 무슨 뜻인지 아실것입니다.
그럼 이만 즐코...

그럼 어떻게 사용을 해야하나여...
위쪽에 다시 어떻게 했나 올려거던여..
글구 답변에 ㄳ드립니다

아래 문장에서 보시듯 컴퍼넌트를 못찾아도 에러 없이 통과된다는 뜻입니다.

if  FindComponent('잘못된컴퍼넌트이름')  is TEdit then
begin
  With FindComponent('잘못된컴퍼넌트이름') as TEdit do
  begin
    caption := text;
  end;
end
else
  MessageDlg('이궁 코딩잘못이네 잘못했습니다', ...);

질문한 내용에서는 아무 문제가 없습니다만

님께서 주변 코딩에 문제가 있어 컴퍼넌트를 못 찾는 것입니다.