Как обратиться к полю запроса?

[cordek]

после проб и ошибок не получается получить имя поля из столбца

Код: Выделить всё

  procedure QueriesMerge(Sender: TObject);

var r, x: string;
n: integer;

begin
dxQueryGrid1.MoveFirst;
r:='';
   while not dxQueryGrid1.Eof do
   begin
          n:=dxQueryGrid1.Columns.Count;
          while n>0 do
               begin
             /// x:= GetFieldName(dxQueryGrid1.Columns.Items[n]) as string; // пока не работает
                 r:= r + '1'+#13#10;// #13#10 - для переноса строки
                 n:=n-1;
               //   end
               end;
              r:= r + '2'+#13#10;
     dxQueryGrid1.MoveNext;
   end;
   Self['Заметка']:=r;
end;

procedure Form_Create;
begin
    dxButton1.OnClick := @QueriesMerge;
end;


[admin]

Имя поля столбца запроса = заголовок столбца запроса.

Код: Выделить всё

dxQueryGrid1.Columns[i].Title.Caption

[WPAS]

Всем спасибо, что-то получилось.
cordek, Только я for для цикла использовал

Код: Выделить всё

 for i:=0 to dxQueryGrid1.Columns.Count-1  do

[cordek]

Имя поля столбца запроса = заголовок столбца запроса.

Код: Выделить всё

dxQueryGrid1.Columns[i].Title.Caption

Думал про Титл капшн для заголовка столбца, только вчера уже устал, не успел попробовать. ну и я еще подумал, что в гриде же можно кастумное имя заголовка поставить, не совпадающие с именем поля.

[cordek]

полный код для формы

Код: Выделить всё

 
  procedure QueriesMerge(Sender: TObject);

var r, x: string;
n: integer;

begin
dxQueryGrid1.MoveFirst;
r:='';
   while not dxQueryGrid1.Eof do
   begin
         for n:=0 to dxQueryGrid1.Columns.Count-1  do
               begin
                x:= dxQueryGrid1.Columns[n].Title.Caption as string; // пока не работает
                 r:= r +dxQueryGrid1.AsS[x]+' ';  // #13#10 - для переноса строки
               end;
              r:= r + #13#10;
     dxQueryGrid1.MoveNext;
   end;
   Self['Заметка']:=r;
end;

procedure Form_Create;
begin
    dxButton1.OnClick := @QueriesMerge;
end;


[WPAS]

А можно как-то получить номер столбца,в том месте где установлен курсор?

[cordek]

А можно как-то получить номер столбца,в том месте где установлен курсор?

Конечно можно, в расширении DX plus же есть действие двойной клик по запросу.