[keks_feo]

да спасибо за помощь

на самом деле, я вытаскиваю данные из оракла и вставляю их в тхт, но мне нужно что бы данные были расположенны в столбик ... вот мой код

Код:

 OracleDataset1.SQL.Text:='select doc_date,A,B,account_a,account_b,mfo_a,mfo_b,CLN_OKPO, KOR_OKPO, bank_a,bank_b,Amount,n_umber as "NUMBER",details from z_exp where doc_date >(:D)-1 and doc_date <=:DD and Account_a = 26003301326147 and CUR_CODE = 980';
      OracleDataset1.SetVariable('D', Date1.Date);
      OracleDataSet1.SetVariable('DD', Date2.Date);
      OracledataSet1.Active := TRue;
      DBGrid1.DataSource := Sevenergo.DataSource1;
Assignfile(f,'c:\otp\import.txt');
ReWrite(f);
begin
 While not OracleDataSet1.Eof do Begin    // ищу конеЦ :)
st1:=  OracleDataSet1['Number'];
st2:=  OracleDataSet1['doc_date'];
st3:=  OracleDataSet1['account_a'];
st4:=  OracleDataSet1['account_b'];
st5:=  OracleDataSet1['A'];
st6:=  OracleDataSet1['B'];
st7:=  OracleDataSet1['cln_okpo'];
st8:=  OracleDataSet1['kor_okpo'];
st9:=  OracleDataSet1['mfo_a'];
st10:= OracleDataSet1['mfo_b'];
st11:= OracleDataSet1['bank_a'];
st12:= OracleDataSet1['bank_b'];
st13:= OracleDataSet1['amount'];
st14:= OracleDataSet1['details'];
OracleDataSet1.Next;
 writeln(f, st1,st2,st3,st4,st5,st6,st7,st8,st9,st10,st11,st12,st13,st14);
 end;
 closefile(f);