Вниз
Скачать: CL | DM;

Запись в файл в три столбца!   Найти похожие ветки 

 
Dyakon_Frost ©   (2006-05-10 14:37) [0]

Здравствуйте!
Мне необходимо создать текстовый файл, в котором будет записана информация в три столбца.
Проблема в том, как записать так, чтобы информация в текстовом файле отображалась в три столбца!

Заранее спасибо!


 
Сергей М. ©   (2006-05-10 14:39) [1]

табуляцию юзай.


 
Dyakon_Frost ©   (2006-05-10 14:43) [2]

А можно код - хотяб как примерно это сделать!


 
Dstr ©   (2006-05-10 14:49) [3]

Ты попробуй использовать HTML + есть компонент в делфи на двиге Explolera
<td width="145" height="20" rowspan="2" bgcolor="#EEEEEE" background="Законы_files/" align="center" valign="top">
Текст
</td>

Я точно не помню,но кажись так надо создавать столбец

width height     сам понимаешь че такое
rowspan           не знаю че такое
bgcolor            цвет фона
background       рисунок на столбе
align                расположение
valign              не знаю вобщем сам лей если че странички с инета со столбцами и смотри там что да как


 
Dstr ©   (2006-05-10 14:50) [4]

кстати
about:HTML код

Чтоб исполнить его в браузере


 
Dyakon_Frost ©   (2006-05-10 14:51) [5]


> Dstr


Спасибо за пример, но необходимо создавать файл используя AssignFile!


 
Dstr ©   (2006-05-10 14:59) [6]

Так все равно создавай файл програмно вписывай HTML-код и свои столбы,если возникают проблемы то перезаписывай его каждый раз заного...


 
Loginov Dmitry ©   (2006-05-10 15:54) [7]

Dyakon_Frost ©   (10.05.06 14:37)

Приводи текст в столбцах к одной и той же длине (например, с помощью пробелов), также используй табуляцию


 
Мефисто   (2006-05-10 16:17) [8]

Dyakon _Frost ©   (10.05.06 14:37)

Опишите задачу и зачем это вообще нужно!
А так ИМХО бредовая идеия и изврат. В текстовом файле 3-и ровных колонки :( Изврат же. А что будет если открыть такой файл блокнотом и при условии что строка в клиентское окно не впишится, сработает перенос строки (при активной сие опции)?


 
Dstr ©   (2006-05-10 16:33) [9]

Короче без HTML должнобыть примерно так:
function StrSetLength(Where: string;Len: Integer): string;
var
  RestLen: Integer;
begin
  Result  := Where;
  if Len <= Length(Where) then Exit;

  While Length(Where) < Len Do Begin;
  Where[Len] := " ";
  Len := Len - 1;
  End;
end;


 
Юрий Зотов ©   (2006-05-10 16:36) [10]

Обычная задача, записать таблицу в текстовом виде. См. справку по Write(Ln), там можно задавать форматы вывода. Еще можно сначала получить готовую строку с помощью Format, а потом ее и записывать.


 
Leonid Troyanovsky ©   (2006-05-10 21:29) [11]


> Юрий Зотов ©   (10.05.06 16:36) [10]

> Обычная задача, записать таблицу в текстовом виде. См. справку


Вдруг проблем в том, что "информация в текстовом файле отображалась".
Пусть автор огласит весь список.

--
Regards, LVT.



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.025 c
2-1147343353
legran
2006-05-11 14:29
2006.05.28
Перехват сообщений чужому окну D2005


2-1147598754
Firefly
2006-05-14 13:25
2006.05.28
web-программирование


15-1146232207
ruslan333
2006-04-28 17:50
2006.05.28
Проблема с запуском ISAPI-приложения


2-1147286364
mctarik
2006-05-10 22:39
2006.05.28
ToolButton?


15-1146761528
cyklop
2006-05-04 20:52
2006.05.28
Тормоза при запуске Delphi




   Наверх