[dize]

Программе необходимо на основе данных из бд выводила отчет в файл с рашрирением *.txt с заданными параметрами, для того чтобы этот отчет можно было импортировать в другую программу, которая читает текстовые файлы определенного содержимого. Возник вопрос как создать условия сохранения этого файла, для того, чтобы другая программа могла его прочитать.

[TOJluK]

Что ты понимаешь под условиями сохранения?

[PiboDIE]

Если "другая программа" так же реализуется Вашими силами - можно придумать свой формат (Тут уже на что фантазии хватит), ну а если эта программа не подлежит модификации, то в этом случае - выяснить форматы, которые она "понимает" и реализовать соответствующий механизм в своем творении.

[dize]

Необходимо, чтобы каждую ячейку таблицы программа записывала в определенной форме, понятной для другой со своим языком. Пример:
ACCOUNT=L01-00000F00;CLIENT_CODE=24838/10001;TRANS_ID=4461480;CLASSCODE=EQNL;ACTION=KILL_ ALL_ORDERS;
ACCOUNT=L01-00000F00;CLIENT_CODE=24838/10001;TRANS_ID=0;CLASSCODE=EQBR;ACTION=KILL_ALL_OR DERS;
ACCOUNT=L01-00000F00;CLIENT_CODE=24838/10001;TRANS_ID=0;CLASSCODE=EQBS;ACTION=KILL_ALL_OR DERS;
ACCOUNT=L01-00000F00;CLIENT_CODE=24838/10001;TRANS_ID=0;CLASSCODE=EQNE;ACTION=KILL_ALL_OR DERS;
ACCOUNT=L01-00000F00;CLIENT_CODE=24838/10009;TRANS_ID=4461480;CLASSCODE=EQNL;ACTION=KILL_ ALL_ORDERS;
ACCOUNT=L01-00000F00;CLIENT_CODE=24838/10009;TRANS_ID=0;CLASSCODE=EQBR;ACTION=KILL_ALL_OR DERS;
ACCOUNT=L01-00000F00;CLIENT_CODE=24838/10009;TRANS_ID=0;CLASSCODE=EQBS;ACTION=KILL_ALL_OR DERS;
ACCOUNT=L01-00000F00;CLIENT_CODE=24838/10009;TRANS_ID=0;CLASSCODE=EQNE;ACTION=KILL_ALL_OR DERS;

Где account это номер счета, Trans_ID уникальный идентификационный номер заявки и т.д.

[PiboDIE]

Что подразумевается под "определенной формой". В данном случае Вы представили один из способов форматирования, другой программе остается все это разобрать, но поскольку структура базы данных известна - в чем собственно заключается проблема?

[dize]

Проблема заключается в том, что я не в курсе как использовать форматирование. Поэтому и описал проблему таким трудноудобоваримым языком.

[lmikle]

У тебя имена полей совпадают с тем, что ты написал?
Если да, то так и выводи:

Код:

var
  L : TStringList;
  S : Buffer;
  I : Integer;
begin
  ...
  L := TStringList.Create;
  Query.Active := True;
  While Not Query.EOF Do
    Begin
      S := '';
      For I := 0 To Query.Fields.Count-1 Do
        S := S + Query.Fields[i].FieldName + '=' + Query.Fields[i].AsString + ';';
      L.Add(S);
      Query.Next;
    End;
  Query.Active := False;
  L.SaveToFile('file-name-here.txt');
  L.Free;
  ...

[dize]

Да вроде, совпадают. Спасибо за помощь!