[keks_feo]

Доброе время суток!
я уже как-то писл на форуме... ну с той темой разобрался .. теперь другой вопросик

подскажите как мне в текстовом файлики выровнить запись по столбца ...
на данный момент у меня щас такое
столбец1 Столбец2
111111 22222
3333 44444
....
а необходимо
столбец1 Столбец2
111111 22222
3333 44444


я пробывал делать и insert-ом задавал с какого символа будет встовляться (22222 или 44444), пробовал просто по детски writeln (f, stolb1:7) типо после того как выведит 111111 то 7 пробелов... и получилось тоже чушь ... потом пробывал через табы типо +#9 вроде что-то похожее нарисовалось, но тоже не то ... подскажите пжлст как быть?

[keks_feo]

да что-то пример не получился .. но смысл такой что запись 44444 должна идти строго под записью 22222 (столбец)

[Страдалецъ]

Выравнивание сильно зависит от выбранного шрифта, например для Courier достаточно дополнить первый столбец недостающими пробелами и все будет ровно.

[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);

[Страдалецъ]

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

[keks_feo]

Сообщение от Страдалецъ

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

табуляцией тоже писал (+#9) все равно встречается в тексте фигня ... завтра буду на работе скину примерчиг чего там получилось с табуляцией