Помогите [D5, Win95/98]
Snake2000 © (2001-12-12 17:50:00)
Помогите написать прогу: В начале вводишь
число в первую ячейку, жмешь Enter, переходишь во вторую,
вводишь
там число, жмешь Enter, в третей появляется произведение двух
этих
чисел, а ты переходишь на другую строку и так далее пока
строки
не кончатся. Какое там будет окно и с какими кнопками - не
важно.
Очень надо до пятницы.
Snake2000 (2001-12-12 19:09:00) [1]
Я сам справился - :)))))))))))))
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key:
Char);
begin
if key=#13 then Stringgrid1.RowCount:=Strtoint(edit1.text);
end;
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var
Key: Char);
begin
if key=#13 then
begin
key:=#0;
if StringGrid1.col=0 then
begin
StringGrid1.col:=1;
exit;
end;
if StringGrid1.col=1 then
begin
StringGrid1.Cells[2,StringGrid1.row]:=floattostr(Strtofloat(StringGrid1.Cells[0,StringGrid1.row])*Strtofloat(StringGrid1.Cells[1,StringGrid1.row]));
StringGrid1.col:=0;
if StringGrid1.row=Stringgrid1.RowCount-1 then
begin
StringGrid1.row:=0;
exit;
end;
StringGrid1.row:=StringGrid1.row+1;
end;
end;
end;
Наверх 
ЧАТ |
Орешник |
|
