Как переносить строки длинее 100 символов?

← →
ppcumax © (2007-04-20 18:58) [0]

Есть текст, нужно после каждого 100-го символа прописать #10 как это сделать?

← →
Ega23 © (2007-04-20 18:59) [1]

for + F1

← →
ppcumax © (2007-04-20 19:02) [2]

> for + F1

познавательно..., а можно пример (если не сложно)

← →
Ega23 © (2007-04-20 19:05) [3]

> познавательно..., а можно пример (если не сложно)

Можно, не вопрос:

for i:=1 to 100 do begin end;

← →
McSimm_ © (2007-04-20 19:09) [4]

Есть длина строки. Целочисленное деление на 100 (div) даст количество вставок.
Вставлять лучше начина с конца, чтобы не сдвигать позиции для последующих вставок

цикл может выглядеть приблизительно так
для всех I начиная с (L div 100) вниз к 1 вставить в строку в позицию I*100 символ #10

← →
ppcumax © (2007-04-20 19:14) [5]

как вставить на 100 позицию символ #10 это и есть проблема, а в цикл я уже сам введу...

> как вставить на 100 позицию символ #10 это и есть проблема,
> а в цикл я уже сам введу...

Я не понимаю, а зачем именно вставлять???

← →
Asail (2007-04-21 14:14) [7]

Такое?

function MyInsert(OrigStr: String): String; var i: Integer; begin Result := ""; for i := 1 to (Length(OrigStr) div 100) + 1 do Result := Result + Copy(OrigStr, (i-1)*100 + 1, 100) + #10; end;

Единственное - в конце всегда тоже будет #10. Ну, я думаю сам подкоректируешь.

Insert procedure
Inserts a substring into a string beginning at a specified point.

Неужто так сложно залезть в справку?

Как переносить строки длинее 100 символов? Найти похожие ветки