Столкнулся с такой траблой
надо вывести тучу текста в консоли
Т.е. есть текст из пары десятков строк, его надо вывести, текст хранится в самой программе.

Код

writeln('...'); writeln('...'); writeln('...'); writeln('...'); writeln('...');

как-то неудобно тучу раз писать writeln
можно еще так

Код

writeln( '...' + + '...' + + '...' + + '...' + + '...' );

Это уже проще, но должен же быть способ проще или я ошибаюсь?

Засунуть всю строку в ресурс

Цитата(Vit @ 13.12.2004, 00:30)

Засунуть всю строку в ресурс

Это ты называешь более простым способом?

write('...') и цикл...

при чем тут цикл

Цитата(crazz @ 13.12.2004, 01:26)

Это ты называешь более простым способом?

Да, если строка действительно большая, то получение её из ресурса будет всего несколько строк кода.

А строка статическая или динамическая? Если статическая, то проще всего делать так, как предлагает Vit.

если надо вывести ВЕСЬ текст, то не легче ли засунуть его в то же Мемо, а потом вывести с помощью writeln его на консоль?! Если надо вывести построчно, то это сделать можно в цикле
for i:=1 to Memo1.Lines.Count do
writeln(Memo1.Lines[i]);

Кокой еще мемо в консольной программе???
С точки зрения минимализации размера программы, оптимальный вариант с кучей writeln.
С точки зрения минимализации кода, проще засунуть в ресурс.
Можно создать TStringList, а потом его циклом вывести.
Можно укоротить имя WriteLn до W, чтобы меньше писать.
Но IMHO, все равно только 2 варианта: писать текст в программе (разными способами), либо в текстовый файл/ресурс. Ибо процесс слишком элементарный, чтобы искать другие пути решения.
Я бы так и оставил WriteLn'ы.

а какой толк TStringList юзать в данном случае, все равно туда по стокам запихнуть сначала надо.

Как делает "программист":
пишет прогу которая будет писать программу, которая из заданного файла читает набор строк и сама пишет часть программы типа
writeln({1 строка});
writeln({2 строка});
...
writeln({n строка});


Мы с пацаними в нашей лаборатории вечно чудим. Нам дадут какое-то задание - ну там пару месяцев назад расставить права на 20 компах. Вообщем где-то пол-дня полного методичного гемороя(одинаковая работа) и все бы было готово. Но нет мы писал день прогу, которая это делает сама, а потом день отлаживали. Итог, через два дня прога все сделала сама. "Экономия времени налицо, зато конечно много нового узнали".
excuse me за

Это сообщение отредактировал(а) magician - 15.12.2004, 21:00

мне не надо из файла читать, у меня прога состоит из одного экзешника а не тучи файлов

Ммм.... если я правильно понял надо в длинющую строку вставить "энтеры".
Сам не пробовал, но вот такая идея: либо вставлять скажем через каждые 20-ть символов символ йентер insert-ом либо командой copy копировать по 20-ть символов в промежуточную строку и ее выводить.
тогда можно и репит приделать.
2Crazz: что значит "при чем тут цикл"?

Свмый короткий вариант:

Код

var  r: char=#13#10; begin  WriteLn('Первая строка'+r+  'Вторая строка'+r+  'Третья строка'+r+  ...  'n-цатая стока'+r+  'И хватит...'); end.

Текст короче все равно не сделать.

Ну да только я понял так, что нет первой и второй строки - есть одна здоровая и ее надо порезать. т.е.

что-то вроде того

Var
C,i,j,z,L:integer;
r,S:string;
begin
r:=#13+#10;
z:=5;
S:=edit1.text; //отсюда строку берем
L:=length(S);

c:=trunc(l/(z+1));
for i:=1 to c do
Insert(r,S,i*z+i-1);
ShowMessage(S); //сюда запихиваем
end;

Это пример дельфовый но сам механизм работает.

Или так если copy больше нравится

Var
z:integer;
r,S:string;
begin
Memo1.Clear; //очищает вывод
S:=edit1.text; //отсюда берем
z:=5;
Repeat
if length(S)>z then
begin
R:=copy(S,1,z);
S:=copy(S,z+1,length(S)-z);
end else
begin
R:=copy(S,1,length(S)+1);
S:='';
end;
Memo1.Lines.Add®; //сюда суем.
Until S='';
end;