[Nicoman]

Помогите плиз!

Есть такая процедура:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

procedure TForm4.BitBtn1Click(Sender: TObject);  Var i:Integer;      k:Byte; begin  If (MaskEdit2.Text<>' , ') and (MaskEdit3.Text<>' , ') and  (MaskEdit1.Text<>'    ') and (MaskEdit4.Text<>' , ') and  (MaskEdit5.Text<>' , ') and (MaskEdit6.Text<>' , ') Then    If (StrToFloat(MaskEdit2.Text)<=6.0) and       (StrToFloat(MaskEdit3.Text)<=6.0) and       (StrToFloat(MaskEdit4.Text)<=6.0) and       (StrToFloat(MaskEdit5.Text)<=6.0) and       (StrToFloat(MaskEdit6.Text)<=6.0) Then         Begin          k:=0;          For i:=1 To Form3.StringGrid1.RowCount-1 Do           If MaskEdit1.Text=Form3.StringGrid1.Cells[1,i] Then            Begin             k:=1;             Break;            End;          If k=0 Then           Begin            Form3.StringGrid1.RowCount:=Form3.StringGrid1.RowCount+1;            Form3.StringGrid1.Cells[Form3.StringGrid1.RowCount-1,1]:=MaskEdit1.Text;            Form3.StringGrid1.Cells[Form3.StringGrid1.RowCount-1,2]:=Edit1.Text;            Form3.StringGrid1.Cells[Form3.StringGrid1.RowCount-1,3]:=Edit2.Text;            Form3.StringGrid1.Cells[Form3.StringGrid1.RowCount-1,4]:=Edit3.Text;            Form3.StringGrid1.Cells[Form3.StringGrid1.RowCount-1,5]:=MaskEdit2.Text;            Form3.StringGrid1.Cells[Form3.StringGrid1.RowCount-1,6]:=MaskEdit3.Text;            Form3.StringGrid1.Cells[Form3.StringGrid1.RowCount-1,7]:=MaskEdit4.Text;            Form3.StringGrid1.Cells[Form3.StringGrid1.RowCount-1,8]:=MaskEdit5.Text;            Form3.StringGrid1.Cells[Form3.StringGrid1.RowCount-1,9]:=MaskEdit6.Text;            Close;           End           Else Label10.Visible:=True;         End  Else Label10.Visible:=True  Else Label10.Visible:=True; end;

По выполнению данной процедуры строка в Stringrid остается пустой, а должна заполняться...

[moo2k]

А на какой форме (имя формы) находятся Edit'ы? Попробуй в uses добавь имя модуля к которому ты обращаешься + добавь перед именем Edit'a название формы, где он находится. Например так: Form1.Edit1 и т.д.

[Nicoman]

в uses указан используемый юнит, в едитах пробовал ставить название формы,но все равно не помогает...

[san-46]

Код:

1 2	//здесь неправильно: Form3.StringGrid1.Cells[Form3.StringGrid1.RowCount-1,1]:=MaskEdit1.Text;

Индексы в Cells[ACol, ARow], т.е. сначал индекс колонки, затем строки, а НЕ Cells[ARow, ACol].
И еще надо бы проверить, а заходим ли мы вообще по этому громоздкому условию чтоб сделать присвоения ячейкам.

[Nicoman]

Спасибо огромное за помощь! Все уже перепробовал, а это не замечал...)))

[YERokez]

Хорошо что получилось. А вообще все плохо, потому что при данной конструкции необходимо блокировать исходную форму, а полтом разблокировать и т. д.
Иначе, если при нажатии кнопки "родительская" форма будет закрыта, то это вызовет ошибку.
Лучше значения Едитов передавать параметрами, но для этого вместо стандартного Create для формы надо использовать конструктор.

[Ivanius]

а как мне передать из 1 формы в другую по проэкту потому что когда я обьявляю к примеру так в одной форме и в другой:
public
var
maxmp : integer;
maxhp : integer;
heal: integer;
man : integer;
ydar:integer;
i : integer;
k : integer;
j : integer;
healBPAr: integer;
manBPAr: integer;
maxmpBPAr:integer;
maxhpBPAr:integer;
end;
и используе одни и теже переменный данные отличаются

[Ivanius]

а как мне передать из 1 формы в другую по проэкту потому что когда я обьявляю к примеру так в одной форме и в другой:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

public    var    maxmp  : integer;    maxhp  : integer;    heal:    integer;    man :    integer;    ydar:integer;    i   :  integer;    k   :  integer;    j   :  integer;    healBPAr: integer;    manBPAr:  integer;    maxmpBPAr:integer;    maxhpBPAr:integer;   end;

и используе одни и теже переменный данные отличаются

[san-46]

Интересно, к чему относится этот кусок кода?
Если переменные объявлены в модуле, то причем тут pablic, если объявлены в классе формы, то причем здесть var.
И чего конкретно мы хотим передать из одной формы в другую?

Объявленные в классе формы переменные принадлежат этому классу, даже если есть класс формы с переменными, у которых имена повторяются. Поэтому объявленные в разных классах (впрочем как и в разных модулях) переменные с одинаковыми наименованиями - это совершенно разные переменные, занимающие разные участки памяти.

form1.maxmp <> form2.maxmp