[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", нужно только символы, что в условии

[cotseec]

Сообщение от romka

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

в каком случае тогда сработает условие?
только если код нажатой клавиши НЕ входит во множество

[romka]

Сообщение от cotseec

в каком случае тогда сработает условие?
только если код нажатой клавиши НЕ входит во множество

когда будет введено что-то кроме

Код:

'a'..'z','A'..'Z','а'..'я','А'..'Я','-',' ', #8, #39, 'ё', 'Ё', 'Ї', 'ї', 'є', 'Є', 'І', 'і'

так вот, русские символы никак не хочет воспринимать
менял

procedure TForm2.Edit2KeyPress(Sender: TObject; var Key: Char);
>>
procedure TForm2.Edit2KeyPress(Sender: TObject; var Key: AnsiChar);

с горем пополам компилилось(и работало), но только пока не сделаю так же еще с одним эдитом, и некоторые символы все равно не воспринимало

[angvelem]

Так?

if not CharInSet(AnsiChar(Key), ['a'..'z', 'A'..'Z', 'а'..'я', 'А'..'Я', '-', ' ', #8, #39, 'ё', 'Ё', 'Ї', 'ї', 'є', 'Є', 'І', 'і']) then
Key := #0;

........

[romka]

да, еще раз спасибо

upd: йкенгзвапролджмиб не воспринимает

что делать?)

[romka]

и еще, можно ли в messagedlg русские кнопочки сделать? или надо новую форму создавать?

[angvelem]

1. Проще заблокировать ненужные символы.
2. MessageBox - язык системы.