[kerby666]

Здравствуйте! Есть DBGrid. Есть переменные (например Х), которым нужно присваивать значение столбца ('Price' например) ASCyrrency построчно в цикле. Т.е. перебираем построчно значения ячеек нужного столбца и значение первой строки столбца 'Price' присваиваем переменной Х. Значение Х соответственно с переходом на новую строку тоже меняется. Не могу никак разобраться . Или можно просто запихать значения всего столбца в MEMO без мультиселекта. Это тоже не могу вкурить.

[poli-smen]

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

Здравствуйте! Есть DBGrid. Есть переменные (например Х), которым нужно присваивать значение столбца ('Price' например) ASCyrrency построчно в цикле. Т.е. перебираем построчно значение ячейки нужного столбца и значение первой строки столбца 'Price' присваиваем переменной Х. Значение Х соответственно с переходом на новую строку тоже меняется. Не могу никак разобраться . Спасибо!

У таблиц не строки, а записи.

Код:

  DataSet.Next; // Перейти к следующей записи
  DataSet.Prior; // Перейти к предыдущей записи
  DataSet.First; // Перейти к первой записи
  DataSet.Last; // Перейти к последней записи

  DataSet.Edit; // Начать редактирование записи
  DataSet.FieldByName('Price').AsCurrency := X; // Внести данные
  DataSet.Post; // Сохранить запись в базу

[Yurk@]

Код:

Table1.First;
while not Table1.Eof do 
  begin
  Table1.Edit;
  x:=Table1.FieldByName('price').AsCurrency;
  Tabel1.Next;
  end;

[kerby666]

Сообщение от Yurk@

Код:

Table1.First;
while not Table1.Eof do 
  begin
  Table1.Edit;
  x:=Table1.FieldByName('price').AsCurrency;
  Tabel1.Next;
  end;

Забито две строки. Заносит значение последней записи только. Т.е. второй
P.S. Допилил! И все как надо! Спасибо!!!

[poli-smen]

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

Или можно просто запихать значения всего столбца в MEMO без мультиселекта. Это тоже не могу вкурить.

"Просто" нельзя, нужно "вручную" в цикле "запихивать":

Код:

begin
  Memo1.Lines.Clear;
  Table1.First;
  while not Table1.Eof do
  begin
    Memo1.Lines.Add(Table1.FieldByName('Price').AsString);
    Table1.Next;
  end;
end;

Сообщение от Yurk@

Код:

Table1.First;
while not Table1.Eof do 
  begin
  Table1.Edit;
  x:=Table1.FieldByName('price').AsCurrency;
  Tabel1.Next;
  end;

Table1.Edit тут лишний. Первоначально было правильно.

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

Забито две строки. Заносит значение последней записи только. Т.е. второй

А что должно заносить? Переменная одна, а записи две, понятно что в этой переменной останется то, что заносили последним.

[kerby666]

Сообщение от poli-smen

"Просто" нельзя, нужно "вручную" в цикле "запихивать":

Код:

begin
  Memo1.Lines.Clear;
  Table1.First;
  while not Table1.Eof do
  begin
    Memo1.Lines.Add(Table1.FieldByName('Price').AsString);
    Table1.Next;
  end;
end;

Table1.Edit тут лишний. Первоначально было правильно.
А что должно заносить? Переменная одна, а записи две, понятно что в этой переменной останется то, что заносили последним.

Это понятно, что последнее останется. Но первая запись и не попадала никуда. Сейчас все ОК! Я безумно рад!!!

[poli-smen]

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

Это понятно, что последнее останется. Но первая запись и не попадала никуда.

Она попадала в переменную X, просто потом эта переменная затиралась содержимым второй записи. (У тебя 2 записи, поэтому содержимое цикла while..end срабатывает дважды)

Забыл ещё дописать :

А чтобы переменная X не затиралась, а например суммировалась, нужно делать так:

Код:

begin
  x := 0;
  Table1.First;
  while not Table1.Eof do
  begin
    x := x + Table1.FieldByName('Price').AsCurrency;
    Table1.Next;
  end;
end;

[kerby666]

Сообщение от poli-smen

Она попадала в переменную X, просто потом эта переменная затиралась содержимым второй записи. (У тебя 2 записи, поэтому содержимое цикла while..end срабатывает дважды)

Забыл ещё дописать :

А чтобы переменная X не затиралась, а например суммировалась, нужно делать так:

Код:

begin
  x := 0;
  Table1.First;
  while not Table1.Eof do
  begin
    x := x + Table1.FieldByName('Price').AsCurrency;
    Table1.Next;
  end;
end;

Мне и нужно было, чтоб затиралась.

[poli-smen]

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

Мне и нужно было, чтоб затиралась.

Нужно было чтобы переменная X затиралась? Т.е. тебе нужно чтобы в переменной X было значение из последней записи что-ли?

[kerby666]

Сообщение от poli-smen

Нужно было чтобы переменная X затиралась? Т.е. тебе нужно чтобы в переменной X было значение из последней записи что-ли?

Именно! Я же написал, что все работает так как надо. Спасибо!

[poli-smen]

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

Именно! Я же написал, что все работает так как надо. Спасибо!

Ну если тебе нужно значение только последней записи тогда всё ещё проще :

Код:

  Table1.Last;
  x := Table1.FieldByName('Price').AsCurrency;