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
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);