Format()

← →
XStr (2002-10-24 12:35) [0]

Уважаемые Мастера!
Что нужно изменить в коде:

while not dm.tb_mov.Eof do
begin
st:=Format("%d %-64s %-3s %-3s",[Num,Name.Text,Kolvo.Text,Zena.Text]);
writeln(f,"",st);
Num:=Num+1;
dm.tb_mov.Next;
end

чтобы данные отображались в нормальном табличном виде.
Вот что получается:

№№ Название Кол-во Цена

001 Мак 3 станок 4 400,00
002 Ван Мен Шоу т.в.100мл спрей 2 700,00
003 Кинг т.в. 100мл 1 201,00
004 Жадор т.в.30мл 1 300,00
005 Фаренгейт т.в. 50мл 1 400,00

Вот что нужно:

№№ Название Кол-во Цена

001 Мак 3 станок 4 400,00
002 Ван Мен Шоу т.в.100мл спрей 2 700,00
003 Кинг т.в. 100мл 1 201,00
004 Жадор 1 300,00
005 Фаренгейт т.в. 1 400,00

Cgfcb,j

← →
XStr (2002-10-24 15:18) [1]

Короче, нужно чтобы строковый размер поля имел фиксированный размер("Название" - 64 символа(включая возможные пробелы),
аналогично поля "Кол-во" и "Цена".
Спасибо!

← →
Рыжик (2002-10-24 15:37) [2]

Использовать шрифт, в котором все буквы и символы одинаковой ширины. Например, какой-нибудь Courier New

Format() Найти похожие ветки