Не компилируется (перебор по Edit)

[kta87]

 procedure EditKeyPress(Sender: TObject; var Key: Char);

...

for i:= 1 to 24 do
     begin
      (FindComponent('Edit' + IntToStr(i)) as TEdit).OnKeyPress:= EditKeyPress;
     end;

Unsatisfied forward or external declaration: 'TForm1.EditKeyPress'
Не могу понять что не так делаю?

[KoliyR]

это у тебя 24 Едита??
EditKeyPress(Sender)

честно не совсем понимаю зачем это

[Кольша]

ну вообще то как я понел вы пытаетесь присвоить edit'am процедуру EditKeyPress но вы не учли что он присваиваться при создании , сейчас вы вызываете процедуру OnKeyPress и равняете ее с EditKeyPress вот почему эта ошибка

[ReportCube]

А есть такой обработчик событий в форме TForm1.EditKeyPress ? У формы!!!

[Кольша]

ну так то там в самом верху показано что процедура такая есть

[Пепел Феникса]

процедура или метод?

[kta87]

Я если честно не понимаю, раньше все работало... В новой версии этой софтины понадобилось несколько апгредить функционал, код писал заново и вот теперь перебор не работает. Кстати ошибка то и появляется при объявлении процедуры, хотя все делал по аналогии с предыдущей версии.
П.С. 24 едита нужны...ну ни чего взамен не придумаешь, находятся в разных местах формы имеют разные размеры, что то типа StringGrid и т.п. не приемлемо просто!
А возможно есть более простой способ перебирать по нажатию клавиш эти едиты?

[Stilet]

kta87

Показывай весь модуль. Уверен что этот обработчик у тебя неправильно обьявлен.

[Аватар]

процедура или метод?

Наврядли ТС разницу улавливает.

ну так то там в самом верху показано что процедура такая есть

Что-то не заметно TForm1. вверху. И объявление метода должно быть в классе TForm1 примерно так

...
type
  TForm1 = class(TForm)
    ...
    procedure EditKeyPress(Sender: TObject; var Key: Char);
  private
    ...
  public
    ...
  end;
...
implementation

procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
  ...
end;
...

[kta87]

procedure LoadComboBoxItems;
    procedure FormCreate(Sender: TObject);
    procedure EditKeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    procedure ComboBox2Change(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a: array of Real; 
  b: array of Integer; 

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.LoadComboBoxItems;
begin
 ComboBox1.Items.LoadFromFile('lib\TipTs1.ini');
 ComboBox1.ItemIndex := 0;
 ComboBox2.Items.LoadFromFile('lib\TipTs2.ini');
 ComboBox2.ItemIndex:= 8;
 ComboBox3.Items.LoadFromFile('lib\TipTs3.ini');
 ComboBox3.ItemIndex:= 8;
end;

procedure TForm1.FormCreate(Sender: TObject);
 var
   i: Integer;
begin

 LoadComboBoxItems;
 With StringGrid1 do
  begin
    Cells[0,0]:= 'Время';
    Cells[1,0]:= 'Yc';
    Cells[2,0]:= 'Qc';
    for i:= 1 to 24 do
     begin
      (FindComponent('Edit'+IntToStr(i)) as TEdit).OnKeyPress := EditKeyPress;
      Cells[0,i]:= IntToStr(i); 
     end;
  end;
end;

Ниже рабочий вариант:

procedure LoadComboBoxItems;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure EditKeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2Change(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
  

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  a:array of Real; 
  a1:array of Real;
  b:array of Real; 
  c:array of Real; 

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.LoadComboBoxItems;
begin
 ComboBox1.Items.LoadFromFile('librarys\CBox1.ini');
 ComboBox1.ItemIndex := 0;
 ComboBox2.Items.LoadFromFile('librarys\CBox2.ini');
 ComboBox2.ItemIndex:= 8;
 ComboBox3.Items.LoadFromFile('librarys\CBox3.ini');
 ComboBox3.ItemIndex:= 8;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
  i: integer;
begin
  for i:=1 to 24 do
(FindComponent('Edit'+IntToStr(i)) as TEdit).OnKeyPress := EditKeyPress;
 LoadComboBoxItems;
 with StringGrid1 do begin
   Cells[0,0] := '№';
   Cells[1,0] := 'Наименование остановочного пункта';
   Cells[2,0] := 'Расстояние';
 end;
end;

Все разобрался ... всем спасибо проблема была тут

procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
var
  Num: integer;
begin
 case Key of
  #8:;
  #44:;
  #46: Key := #44;
 '0'..'9':;
  #13:begin
       Num := StrToInt(Copy((Sender as TEdit).Name, Length('Edit')+1, Length((Sender as TEdit).Name)));
       if Num <> 24 then
        (FindComponent('Edit'+IntToStr(Num+1)) as TEdit).SetFocus
       else
        Button1.SetFocus;
      end;
  else Key := #0; end;
end;