Delphi не показывает подсказки объекта/компонента, когда я кодирую

У вас есть два разных стиля единиц измерения Delphi, смешанные в один. Модуль, с которым вы работаете, — это файл модуля (.pas) за формой. Однако основной файл проекта (.dpr) имеет другой стиль.

Главный файл проекта — единственный, который должен включать раздел begin..end.. С другой стороны, остальные модули должны иметь раздел implementation, в котором находится фактический код для нескольких функций/процедур/методов и т. д.

Итак, в вашем случае вам нужно сохранить блок формы по умолчанию в том виде, в котором он был создан по умолчанию.

Новый основной файл проекта Delphi выглядит примерно так:

program Project1;

uses
  Vcl.Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

А новый файл стандартного модуля Delphi выглядит примерно так:

unit Unit2;

interface

implementation

end.

Новый файл vcl form unit в Delphi выглядит примерно так:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.

И если вы реализуете какой-либо код...

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure DoSomething;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.DoSomething;
end;

procedure TForm1.DoSomething;
begin
  //Do Something...

end;

end.

Одна из ошибок, которую вы, вероятно, допустили, заключалась в том, что исходный код, который вы добавили в модуль формы, был в форме примера консольного приложения, которое отличается от приложения VCL Forms. Консольное приложение в основном основано на командной строке, которая, кажется, очень распространена для демонстрации примера кода. Однако вы никогда не должны смешивать этот стиль кода со стилем любого другого стандартного стиля модуля.

Это называется завершением кода. Возможно, вы случайно отключили его в настройках. Посмотрите в разделе Инструменты/Параметры/Параметры редактора/Code Insight и убедитесь, что завершение кода отмечено.

Я немного предполагаю, предполагая, что этот код, вставленный выше, не отредактирован.

Я подозреваю, что вам нужно добавить procedure TForm1.ButtonGOClick(Sender: TObject); перед первым begin в вашем коде:

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;

implementation

{$R *.dfm}

procedure TForm1.ButtonGOClick(Sender: TObject); // <--- added line
var
  SL: TStringList;                               // <-- moved variables from global to local scope. Form1 needs to remain global
  Count: Integer;
  Appwin : hWnd;
  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;



begin
  TextoCompleto:= EditTexto.Text;
  Appwin:= FindWindow(PChar(0),'Banrisul');
  if Appwin <> 0 then**

Как легко заметить, я начал программировать без функции или процедуры. Вот почему «подсказки» (на самом деле называемые «Code Insights», как я также узнал с помощью других) не работали. Delphi не распознавала код как часть чего-либо и поэтому не могла дать представление о коде.