словари для таблицы из массива

[Dmitriy84S]

Задача:
в mysql таблице хранятся данные ввиде индексов (только цифры)
все словари находятся в массиве

a[1]:='Куплю';
a[2]:='Продам';
a[3]:='Обменяю';
a[4]:='Сдам';

Как сделать так чтобы в ДБГриде вместо цифр появились значения из этого массива.

[Serge_Bliznykov]

самый простой вариант - через вычисляемой поле.
Добавляешь в датасет вычисляемое поле (например, calcTypeOper, потом на
OnCalcFields вешаешь процедуру примерно такую:

DataSet.FieldByName('calcTypeOper').asString :=
  A[DataSet.FieldByName('MyType').AsInteger];

[Stilet]

в mysql таблице хранятся данные ввиде индексов (только цифры)
все словари находятся в массиве

Ух.... Накручено, а чего все не хранить в БД?

[Dmitriy84S]

procedure TForm2.CRDBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var
    A:array[1..4] of string[7];//Вид операций
begin
  if Column.Field.FieldName = 'operation_type' then
  begin
          a[1]:='Куплю';
          a[2]:='Продам';
          a[3]:='Обменяю';
          a[4]:='Сдам';
          myquery1.Edit; 
     myquery1.Fields.FieldByName('operation').AsString:=a[Column.Field.AsInteger]
    end;
    end;

этот код работает, но только из грида...
мне нужно чтобы эта процедура работала не из грида..чтоб не зависила от него,и чтоб можно было распечатать отчет через фаст репорт..а то с этой процедурой при формировании отчета поле operation пустое получается, есть вариант чтоб в таблице при запуске автоматически создавалось поле и сохранялись туда данные из грида,тогда печать работает, а при выходе удалялось....с настоящим полем процедура работает на отлично...

еще одна процедура по этой теме

var
    A:array[1..4] of string[7];//Вид операций
    b:integer;
begin
          a[1]:='Куплю';
          a[2]:='Продам';
          a[3]:='Обменяю';
          a[4]:='Сдам';
          myquery1.Edit;
          b:=strtoint(myquery1.Fields.FieldByName('operation_type').AsString);
          myquery1.Fields.FieldByName('operation').Value:=a[b];
  end;

но при запуске идет зацикливание...я хз как ее оптимизировать чтоб работало...уже все варианты перепробовал..млин....кто-нить знает решение мое траблы...очень нужно
заранее спасибо всем прогерам за помощь

[Stilet]

Мне кажется тебе лучше всетки пересмотреть этот подход к решению, и запихнуть все данные в БД...

[Dmitriy84S]

все нормально работает..просто лишний код сунул myquery1.edit; когда убрал все заработало...респект и уважуха всем