Вниз
Скачать: 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.024 c
2-1147502661
Mich
2006-05-13 10:44
2006.05.28
Timage


3-1144522222
Seduksen
2006-04-08 22:50
2006.05.28
Планирование БД


11-1126546794
Stargazer
2005-09-12 21:39
2006.05.28
TOnMessage в новом KOL


2-1146935465
Golik
2006-05-06 21:11
2006.05.28
Data


2-1147108570
BAngel
2006-05-08 21:16
2006.05.28
Позиция мышки




   Наверх