Delphi Заполнение базы данных DBGrid

[tanek]

Здравствуйте уважаемые форумчанины!!!!

Возникла вот такая проблема:

Есть DBGrid... Через нее я делаю добавление данных c помощью метода OnCellEnter... но данные почему то не добавляются((((
Вот исходник:

procedure TFormChangeQuote.ReadTheCellTableQuote();
begin
try
  currentDate := DBGridTableQuote.DataSource.DataSet.FieldValues['currentDate'];
  startOfSales := DBGridTableQuote.DataSource.DataSet.FieldValues['startOfSales'];
  low := DBGridTableQuote.DataSource.DataSet.FieldValues['low'];
  higth := DBGridTableQuote.DataSource.DataSet.FieldValues['higth'];
  closeOfSales := DBGridTableQuote.DataSource.DataSet.FieldValues['closeOfSales'];
  currentPrice := DBGridTableQuote.DataSource.DataSet.FieldValues['currentPrice'];
except
end;
end;

procedure TFormChangeQuote.DBGridTableQuoteOnColEnter(Sender: TObject);
var
  fail:boolean;
begin
    ReadTheCellTableQuote();
  if ((currentDate <> '') AND (startOfSales <> '') AND (low <> '') AND (higth <> '') AND (closeOfSales <> '') AND (currentPrice <> '')) then
  begin
    if switch <> 1 then
      fail := DataBase.AddQuote(idCapitalAssets,currentDate, startOfSales, low, higth, closeOfSales, currentPrice)
    else
      fail := DataBase.ChangeQuote(idQuote,currentDate, startOfSales, low, higth, closeOfSales, currentPrice);
  end;
end;

До условия я даже не дохожу....
Буду очень признательна вам за помощь....
За ранее спасибо

[Krok27]

currentDate
startOfSales
low

и т.д. тип переменных, где объявлены?

Может лучше DBGridTableQuote.DataSource.DataSet .FieldByName('currentDate').AsStrin g или AsFloat или еще как?

[tanek]

Они все глобальные... тип string

[Krok27]

Попробуй DBGridTableQuote.DataSource.DataSet .FieldByName('currentDate').AsStrin g