Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];




Вниз

Помогите 


Snake2000   (2001-12-12 17:50) [0]

Помогите написать прогу: В начале вводишь
число в первую ячейку, жмешь Enter, переходишь во вторую, вводишь
там число, жмешь Enter, в третей появляется произведение двух этих
чисел, а ты переходишь на другую строку и так далее пока строки
не кончатся. Какое там будет окно и с какими кнопками - не важно.
Очень надо до пятницы.



Snake2000   (2001-12-12 19:09) [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;




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.011 c
14-32324          Dim!S                 2001-12-21 12:30  2002.02.11  
Распространение программы


6-32300           Sectoid               2001-11-21 13:15  2002.02.11  
У меня есть исходный код HTML ки. Как мне его глянуть в нормальном виде (как страничку, а не как код)???


1-32234           Andger                2002-01-27 15:23  2002.02.11  
Delphi виснет при палитре > 16 цветов


7-32356           Строр                 2001-11-04 19:00  2002.02.11  
Тоже про форматирование...


1-32194           daosv                 2002-01-26 13:34  2002.02.11  
Как узнать на какие экранные координаты переместился левый и правый верхний угол формы при перетаскивании самой формы?