Форум: "Начинающим";
Текущий архив: 2009.10.18;
Скачать: [xml.tar.bz2];
ВнизРаспечатать три memo.. Найти похожие ветки
← →
AlexDan © (2009-08-12 13:26) [0]на форме рядом находятся три memo, нужно распечатать их содержимое (в смысле так же рядом..). что посоветуете?
p/s.распечатать всю форму не подходит..
← →
Сергей М. © (2009-08-12 13:28) [1]Надо понимать, что с одним-единственным мемом у тебя нет проблем с распечаткой его содержимого ?
← →
AlexDan © (2009-08-12 13:30) [2]нет, просто нужно чтоб рядом..
← →
{RASkov} © (2009-08-12 13:31) [3]> [0] AlexDan © (12.08.09 13:26)
> что посоветуете?
Написать свой хитрый метод распечатки трех мем...)
← →
AlexDan © (2009-08-12 13:32) [4]> {RASkov} © (12.08.09 13:31) [3]
> Написать свой хитрый метод распечатки трех мем...)
так я и знал(, наверно проще их сначала в тхт файл собрать..(
← →
{RASkov} © (2009-08-12 13:32) [5]Строка1 для вывода на канву печати = Lines[0] первого мемы + Lines[0] второго мемы + Lines[0] третьего мемы;
и т.д.
← →
{RASkov} © (2009-08-12 13:34) [6]> [4] AlexDan © (12.08.09 13:32)
> так я и знал
приятно вести беседу со знающими людьми)
← →
Юрий Зотов © (2009-08-12 13:39) [7]Format("%s:длина%s:длина%s:длина",
[Memo1.Lines[i], Memo2.Lines[i], Memo3.Lines[i]]);
← →
AlexDan © (2009-08-12 13:41) [8]Удалено модератором
← →
AlexDan © (2009-08-12 13:42) [9]> Юрий Зотов © (12.08.09 13:39) [7]
> Format("%s:длина%s:длина%s:длина",
> [Memo1.Lines[i], Memo2.Lines[i], Memo3.Lines[i]]);
ага, спасибо, подумаю.
← →
Сергей М. © (2009-08-12 13:49) [10]
> нужно чтоб рядом
Надо понимать, что у тебя получается, но не рядом ?)
← →
Amoeba © (2009-08-12 15:20) [11]Как вариант, можно использовать один из генераторов отчетов.
← →
AlexDan © (2009-08-13 09:41) [12]> Юрий Зотов © (12.08.09 13:39) [7]
можно немного поподробнее, как там с размерами, т.к. выбивает именно здесь (но на компилл пропускает, просто ни разу таким не пользовался)..
form2.Memo4.Lines[i]:=Format("%15s,%11s,%11s",[form2.Memo1.Lines[i],form2.Memo2.Lines[i],form2.Memo3.Lines[i]]);
← →
Юрий Зотов © (2009-08-13 10:01) [13]1. Запятые надо убрать.
2. Под первую строку будет отведено 15 позиций. Если строка длиннее, то она будет обрезана до 15 символов. Если строка короче, то слева она будет дополнена пробелами до 15 символов.
3. Со второй и третьей строками аналогично, только не 15, а 11.
4. В итоге получим текст в три колонки с выравниванием по правому краю:
___________папа__________у_______Васи
__________силен__________в_математике
_________учится_______папа_________за
___________Васю_______весь________год
Если теперь отобразить этот текст моноширинным шрифтом, то получится, видимо, то, что нужно.
=======================
Другой вариант - сделать то же самое через текстовый файл:
var
F: TextFile;
...
Write(F, Memo1.Lines[i] : 15, Memo2.Lines[i] : 11, Memo3.Lines[i] : 11);
WriteLn(F);
← →
AlexDan © (2009-08-13 10:22) [14]это что, вот так? form2.Memo4.Lines[i]:=Format("%15s%11s%11s",[form2.Memo1.Lines[i],form2.Memo2.Lines[i],form2.Memo3.Lines[i]]);
не работает, и раньше тоже пробовал..
так и пишет:
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EAccessViolation with message "Access violation at address 0047F9E2 in module "Project1.exe". Read of address 00000220". Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
← →
AlexDan © (2009-08-13 10:26) [15]тут подумал, может дело в том, что пытаюсь обьединить в form2.Memo4, которого на форме нет, только описан:
TForm2 = class(TForm)
Memo4: TMemo; ?
но наверно вряд-ли..
← →
имя (2009-08-13 10:30) [16]Удалено модератором
← →
Inovet © (2009-08-13 10:38) [17]Удалено модератором
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2009.10.18;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.006 c