| Цитата(rnycop @ 15.2.2006, 15:04) | Вот исходник по которому пробывал сделать это =) тока тут про покупку
| Код |
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0' .. '9',#8: ; // цифры и <Backspace>
#13: Summa; // вычислить стоимость покупки
else Key := Chr(0); // символ не отображать
end;
end;
|
т.е. при нажатии клавиши enter запускается процедура Summa собствено где я вводил фильтр и поиск, НО ПОЧЕМУ то не работает, выдает ошибку =(
DimW, Я не заню как пользоваться OnChange собитеем =(( можно какой нибудь пример, пожалуста.. А со вторым не знаеш что мона придуматЬ? |
Лучше пользоваться такой функцией:
| Код |
procedure TForm1.Edit1KeyPress(Sender : Tobject; var Key : Char);
begin
if not (Key in ['0'..'9', #8,#13]) then Key := #0;
if Key = #13 then Summa;
end;
|
По второй части вопроса:
Все, что у тебя написано в Button1.OnClick, перенеси в Edit1.OnChange;
Добавлено @ 13:51
| Цитата(rnycop @ 18.2.2006, 13:39) | 1. Сложение дат. Как можно сложить текущюю дату с датой в базе. Например, 18.02.2006 + 24 мес = 18.02.2008, или 18.02.2006 + 3 мес = 18.05.2006 ?? Очень нужно!
2. С какой базой данных лучше работать в среде делфи (Parodox , dBase и т.д.) подскажите пожалуста.
3. Как в базе данных сделать индексированые поля или поле? (bBase) допустем если были выдены изменение или добавление. |
1.
| Код |
var
CurDate, CurDate_2 : TDateTime; //Сложившаяся дата
dd, mm, yyyy : Word;
begin
...
CurDate := BaseData + Now; //Складываем дату из базы данных с сейчашешней датой
DecodeDate(Now, dd, mm, yyyy);
mm := mm + 3;
EncodeDate(CurDate_2, dd, mm, yyyy); //прибавляем к дате 3 месяца
end;
{Писал без проверки, поэтому могут быть ошибки в DecodeDate, EncodeDate}
|
2. Смотря для чего. Я бы посоветовал Paradox
3. Среди тех баз, которые ты перечислил, индексировать можно только Paradox |
- это для общего развития. А вообще хотель бы как нибуть через listbox1 сделать это, мне с listbox1 легче работать нежиля с stringgrid1 т.к. не разу не работал с ним. Для того чтоб было понятно о чем хочу спросить, кидаю скрины form1, form2: 
