[romka]

Здравствуйте
столкнулся с проблемой при выводе строки stringgrid в edit'ы

Код:

procedure TForm1.Button3Click(Sender: TObject);
begin
with Form2 do
begin
Edit1.Text:=StringGrid1.Cells[StringGrid1.Row,1];
Edit2.Text:=StringGrid1.Cells[StringGrid1.Row,2];
Edit3.Text:=StringGrid1.Cells[StringGrid1.Row,3];
Combobox6.Text:=StringGrid1.Cells[StringGrid1.Row,5];
Edit5.Text:=StringGrid1.Cells[StringGrid1.Row,7];
Edit4.Text:=StringGrid1.Cells[StringGrid1.Row,6];
Combobox4.Text:=StringGrid1.Cells[StringGrid1.Row,8];
showmodal;
end;
end;

из этого всего работает только

Edit2.Text:=StringGrid1.Cells[StringGrid1.Row,2];

что я не так делаю?

[angvelem]

Свосйство Cells адресуется как [Колонка, Строка]. У вас [Строка, Номер].

[romka]

понял, благодарю

[romka]

еще такая проблема:

Код:

procedure TForm2.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['a'..'z','A'..'Z','а'..'я','А'..'Я','-',' ', #8, #39, 'ё', 'Ё', 'Ї', 'ї', 'є', 'Є', 'І', 'і']) then Key := #0;
end;

не определяет русские символы
Delphi XE2

[cotseec]

а не проще сделать наоборот? (вам же только цифры надо)

Код:

procedure TForm2.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0'..'9':;
#8:;// чтобы и BackSpace воспринимался
else Key := #0;
end;
end;

[angvelem]

Судя по всему хочется сделать Edit, воспринимающий только цифры? Для этого имеется свойство NumbersOnly.

[romka]

нет, там ведь "not", нужно только символы, что в условии