StringGrid.

[Антон Лысенко]

Начинаю вводить текст с 1 рядка 2 колонки.
1 ряд ввожу название ингредиентов;
2 ряд - цена;
эти строки я заполняю таблицей что весит у меня в DBGrid
сначала заполняю одну таблицу с ингредиентами.
потом когда заполняю вторую таблицу(с DBGrid). И цену на ряд ниже заполняю.
Проверяю, если ингредиенты одинаковые то я не вписываю его название заново. А пишу цену в столбик под таким же только с первой таблицы (с DBGrid) .
по идее у меня такой алгоритм: если одинаковое беру только цену, нет пишу всё.
вот мой код но он у меня не работает корректно. он первый ингредиент норм сравнивает а остальные не сравнивает. И если во второй таблице меньше значений то он последним значением дописывает столько раз нужно до размеров первой.

procedure TForm1.CB1Change(Sender: TObject);
var i,i_:integer;

begin
  SG1.Cells[SG1.Col,SG1.Row]:=CB1.Items[CB1.ItemIndex];
  CB1.Visible:=False;
  SG1.SetFocus;
  DataModule2.ADOQuery1.Close;
  DataMOdule2.ADOQuery1.Parameters.ParamByName('name').Value:=CB1.Items[CB1.ItemIndex];
  DataModule2.ADOQuery1.Open;
  DataModule2.ADOQuery1.Active:=true;
  DataMOdule2.ADOQuery1.First;
   i:=iCol;
  while (not(DataModule2.ADOQuery1.Eof)) do
   begin
    if flag=true then   begin
                       for i_:=2 to iCol do
                         if DataMOdule2.ADOQuery1.Fields[0].AsString=SG1.Cells[i_,1] then
                             begin
                              SG1.Cells[i_,jRow]:=DataModule2.ADOQuery1.Fields[1].AsString ;
                               DataMOdule2.ADOQuery1.Next;
                             end
                          else
                           begin
                              SG1.Cells[i,1]:=DataMOdule2.ADOQuery1.Fields[0].AsString;
                              SG1.Cells[i,jRow]:=DataModule2.ADOQuery1.Fields[1].AsString;
                              inc(i);
                              DataMOdule2.ADOQuery1.Next;
                           end;
                        end
               else
                  begin
                     SG1.Cells[i,1]:=DataMOdule2.ADOQuery1.Fields[0].AsString;
                     SG1.Cells[i,jRow]:=DataModule2.ADOQuery1.Fields[1].AsString;
                     inc(i);        DataMOdule2.ADOQuery1.Next;
                  end;


   end;
   flag:=true;
 iCol:=i;
end;

В файле скрин того что получаеться.

[Stilet]

Опиши функцию поиска съестного:

function ingry(name:string):Integer;
var i:integer;
begin result:=-1;
 with SG1 do
  for i:=2 to iCol do if [i_,jRow]=name then begin result:=i;exit;end;
end;

А в цикле используй эту функцию чтоб найти колонку:

 jCol=ingry(DataMOdule2.ADOQuery1.Fields[0].AsString);
 if jCol=-1 then дописать вправо
 else Sg.Cells[jCol,новая строка]:=DataModule2.ADOQuery1.Fields[1].AsString;

Идея понятна?

[Антон Лысенко]

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

Идея понятна?

Да понятно, спасибо!