ponowna deklaracja komponentów w procedurach

0

Mam procedurę operującą na danych 9oraz komponentach formatki:
procedure Imi1do4iScal;
begin
If MaskEdit201.Text<>' 'then
begin
MultiTranzIm1;
Warunek1:=true;
end;
end;
Kompilator żąda ponownej deklaracji MaskEdit201 wewnątrz tej procedury.
Niestety różne moje próby zapisu takiej deklaracji nie powiodły się .
Może ktoś mi podpowie.

0
if Form1.MaskEdit201.Text <> ' ' then {...}
// btw. masz na Formie 201 MaskEditów ? :P
0

Mam około 60. Nazwy nie odzwierciedlaja ilości. Ale jest to sprawa drugorzędna.

0

jeśli procedura Imi1do4iScal jest <ort>wykożystywana </ort>tylko dla formy, na której są te MaskEdity to do sekcji private dodaj jej deklaracje, mniej więcej tak:

interface
type 
  TForm1 = class(TForm)
  ...
  private
    procedure Imi1do4iScal;
  ...
  end;

implementation
...
procedure TForm1.Imi1do4iScal;
begin
  //tu możesz spokojnie odwoływać się do komponentów leżących na formie
end;
...

jeśli natomiast używasz jej z innymi formami to MaskEdit przekaż jako parametr, np. tak

procedure Imi1do4iScal(MaskEdit: TMaskEdit);
begin
  If MaskEdit.Text<>' 'then 
  begin
    MultiTranzIm1;
    Warunek1:=true;
  end;
end;

i wywołanie gdzieś w kodzie

Imi1do4iScal(MaskEdit201);

1 użytkowników online, w tym zalogowanych: 0, gości: 1