Запись в файл в три столбца!

← →
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-и ровных колонки :( Изврат же. А что будет если открыть такой файл блокнотом и при условии что строка в клиентское окно не впишится, сработает перенос строки (при активной сие опции)?

Короче без 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;

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

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

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

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

--
Regards, LVT.

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