왜 델파이가 객체를 인식하지 못합니까? 내가하려고 할 때 EditTexto 이후

Question

은 (내가 일하고 있어요) Form1의 목적, 이유가 인식되지이다 :

Texto:= EditTexto.Text; 

을 ????

Form1.EditTexto.Text를 사용하는 경우이를 수락하는 것 같습니다.

Answer 1

텍스트 코드가 양식의 개체 범위에 포함되지 않았습니다. 그것은 단지 단위에 불과했습니다. 그게 문제라고 생각합니다. 버튼의 "onclick"이벤트로 텍스트를 이동 한 후 editTexto 객체를 인식하기 시작했습니다. 그게 말이 되니?

는 전에 :

unit Banri; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, StdCtrls, Clipbrd; 

type 
    TForm1 = class(TForm) 
    EditTexto: TEdit; 
    ButtonGO: TButton; 
    procedure ButtonGOClick(Sender: TObject); 
    private 
    { Private declarations } 
    public 
    { Public declarations } 
    end; 

var 
    Form1: TForm1; 
    SL: TStringList; 
    Count: Integer; 
    Appwin : hWnd; 

implementation 

{$R *.dfm} 

    var 
    TextoCompleto: String; 


begin 
    TextoCompleto:= EditTexto.Text; 
    Appwin:= FindWindow(PChar(0),'Banrisul'); 
    if Appwin <> 0 then 
    begin 
     StringReplace(TextoCompleto, '.', '', [rfReplaceAll, rfIgnoreCase]); 

     SL:= TStringList.Create; 
     try 
     ExtractStrings([' '], [], PChar(TextoCompleto), SL); 
     WriteLn(SL.Text); 
     ReadLn; 
     finally 
     SL.Free; 
    end; 
     Count:= 0; 
     while Count <> SL.Count - 1 do 
     begin 
      Clipboard.AsText:= SL[Count];; //place text in clipboard 
      //if Clipboard.HasFormat(CF_TEXT) then 
      //do something with text 
      ShowMessage(Clipboard.AsText); 
      Clipboard.AsText:= SL[Count + 1];; //place next line text in clipboard 
      //if Clipboard.HasFormat(CF_TEXT) then 
      //do something with text 
      inc(Count); 
     end; //while Count <> SL.Count - 1 do 
     SL.Free; 
    end; //if Appwin <> 0 then 

end. 

후 :

unit Banri; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, StdCtrls, Clipbrd; 

type 
    TForm1 = class(TForm) 
    EditTexto: TEdit; 
    ButtonGO: TButton; 
    procedure ButtonGOClick(Sender: TObject); 
    private 
    { Private declarations } 
    public 
    { Public declarations } 
    end; 

var 
    Form1: TForm1; 
    SL: TStringList; 
    Count: Integer; 
    Appwin : hWnd; 

implementation 

{$R *.dfm} 

    var 
    TextoCompleto: String; 


procedure TForm1.ButtonGOClick(Sender: TObject); 
begin 
    TextoCompleto:= EditTexto.Text; 
    Appwin:= FindWindow(PChar(0),'Banrisul'); 
    if Appwin <> 0 then 
    begin 
     StringReplace(TextoCompleto, '.', '', [rfReplaceAll, rfIgnoreCase]); 

     SL:= TStringList.Create; 
     try 
     ExtractStrings([' '], [], PChar(TextoCompleto), SL); 
     WriteLn(SL.Text); 
     ReadLn; 
     finally 
     SL.Free; 
    end; 
     Count:= 0; 
     while Count <> SL.Count - 1 do 
     begin 
      Clipboard.AsText:= SL[Count];; //place text in clipboard 
      //if Clipboard.HasFormat(CF_TEXT) then 
      //do something with text 
      ShowMessage(Clipboard.AsText); 
      Clipboard.AsText:= SL[Count + 1];; //place next line text in clipboard 
      //if Clipboard.HasFormat(CF_TEXT) then 
      //do something with text 
      inc(Count); 
     end; //while Count <> SL.Count - 1 do 
     SL.Free; 
    end; //if Appwin <> 0 then 
end; 

end.