Как можно в cheklistbox вставить имена поля на с русскими буквами если в бд имя поля с латинскими букв

[Shingis]

Загружаю с таблицы имена поля в чеклистбоксу:

Checklistbox1.clear;
For i=0  to AQ1.fieldcount-1 do
begin
CheckListBox1.Items.Add (AQ1.Fields.fields[i].fieldname;
end;

У меня в таблице имена поля с латинскими буквами. В чеклистбоксу тоже загружаются латинами. И я ихние русские название сделал так--- взяв с дбгрида тайтл.капшн:
Побежал по count' у чеклистбокса и...
Cheklistbox.items.strings[i]:= dbgrid.columns[i].title.caption;
Все нормально с дбгрида тайтл капшн загружают. Но при экпорте в ексел уже не могут найти поля, ругаются с русскими названиями. Надеюсь обзяснил нормально. Что и как советуете господа проггеры

[Stilet]

Надеюсь обзяснил нормально

Я мало что понял...

вставить имена поля на с русскими буквами если в бд имя поля с латинскими букв

Сложная фраза. Если прямо отвечать на нее то никак. Или кодировать транслитом.
С другой стороны дай я угадаю - ты в ListBox записал некие названия неких полей, но на другом языке. А потом из этого списка выбираешь чтоб использовать в качестве имен полей?

[xxbesoxx]

procedure TfrmMain.Button1Click(Sender: TObject);
begin
   // Загружаю ИЗ ADOQuery имена поля в CheckListBox
  ADOQuery1.GetFieldNames(CheckListBox1.Items);
   // -----------  Для русский названий полей 
   with CheckListBox1  do
   begin
     Items[0] := '№ заказа';
     Items[1] := '№ Клиента';
     Items[2] := '№ сотрудника';
     Items[3] := 'Дата приема заказов';
     Items[4] := 'Дата отправки';
      // продолжайте 
   end;
end;

end.

[Shingis]

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

Я мало что понял...

Сложная фраза. Если прямо отвечать на нее то никак. Или кодировать транслитом.
С другой стороны дай я угадаю - ты в ListBox записал некие названия неких полей, но на другом языке. А потом из этого списка выбираешь чтоб использовать в качестве имен полей?

Да Stilet, но не на другом языке. проста с латинскими буквами. например FIO. Pol. datarojdeniа итд в таблице а мне в листбокс ФИО, Пол, Дата рождения.
Я такое уже получил как надо, и теперь при экспорте в ексел уже ФИО Пол ДР не понимает.

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

procedure TfrmMain.Button1Click(Sender: TObject);
begin
   // Загружаю ИЗ ADOQuery имена поля в CheckListBox
  ADOQuery1.GetFieldNames(CheckListBox1.Items);
   // -----------  Для русский названий полей 
   with CheckListBox1  do
   begin
     Items[0] := '№ заказа';
     Items[1] := '№ Клиента';
     Items[2] := '№ сотрудника';
     Items[3] := 'Дата приема заказов';
     Items[4] := 'Дата отправки';
      // продолжайте 
   end;
end;

end.

Я это уже сделал вот здесь

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

Побежал по count' у чеклистбокса и...

Cheklistbox.items.strings[i]:= dbgrid.columns[i].title.caption;

Все нормально с дбгрида тайтл капшн загружают. Но при экпорте в ексел уже не могут найти поля, ругаются с русскими названиями

Все равно спасибо Вам!

[xxbesoxx]

теперь при экспорте в ексел уже ФИО Пол ДР не понимает.

Чудеса ...

procedure TfrmMain.FormShow(Sender: TObject);
begin
  with  ADOQuery1 do
  begin
    Fields[0].DisplayLabel:= '№ заказа';
    Fields[1].DisplayLabel:= '№ Клиента';
    Fields[2].DisplayLabel:= '№ сотрудника';
    Fields[3].DisplayLabel:= 'Дата приема заказов';
    Fields[4].DisplayLabel:= 'Дата отправки';
  end;
end;

[Shingis]

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

Чудеса ...

procedure TfrmMain.FormShow(Sender: TObject);
begin
  with  ADOQuery1 do
  begin
    Fields[0].DisplayLabel:= '№ заказа';
    Fields[1].DisplayLabel:= '№ Клиента';
    Fields[2].DisplayLabel:= '№ сотрудника';
    Fields[3].DisplayLabel:= 'Дата приема заказов';
    Fields[4].DisplayLabel:= 'Дата отправки';
  end;
end;

Это на подобие так да? :
for i:=0 to AQ1.Fields.Count-1 do
begin
CheckListBox.Items.Add(AQ.Fields[i].DisplayLabel);
end; Если так то тоже ругается. Например у АДОКУЕРИ Fieldname:='FIO' и сделать Displaylabel:='ФИО' то полюбому ругается
Проблема в том что в таблице имена поля на латын букв и его переименовал на русских букв в листбоксе и теперь с листбокса эти имена хотел использовать как имена поля и экспортировать в екселлллл

[xxbesoxx]

1) зачем цикл FOR я не понимаю если AQ.GetFieldNames сразу заполняет ваши CheckListBox
2) смотря как вы делайте экспорт в Excel -е если там цикл копируйте все запись тогда Fields[0].DisplayLabel:= ХХХХ надо. Но, можно без него описывать каждое поля

 Sheet.Cells[2,1]:='Имя поля';

На все учебнике написано и на форуме много пример ............ код который на #1 я промолчу , А вы говорите что делали и работает

[Shingis]

я экспортирую в ексел по выбранному полю в чеклистбоксе

[xxbesoxx]

Можно ваши код и проекту посмотреть ? или пример делайте отдельно что вы делайте и что не получается . это тайна ?

Checklistbox1.clear; //это почему писали скажите пожалуйста

[Stilet]

теперь при экспорте в ексел уже ФИО Пол ДР не понимает.

И правильно делает. Это ж глупость...
Тебе получается нужно назад конвертировать. В цикле искать в гриде элемент по русски и запоминать его поле.
А вообще это делается проще - именам полей даются алиасы, и уже они становятся именами в запросах. Я не знаю как это правильно описать кроме как

select
 Field1 as "Поле по русски"
,Field2 as "Поле по русски 2"
...