Скачать: CL | DM;

Как переносить строки длинее 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 это и есть проблема, а в цикл я уже сам введу...

---

← →
Ega23 ©   (2007-04-20 19:16) [6]

> как вставить на 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. Ну, я думаю сам подкоректируешь.

---

← →
Desdechado ©   (2007-04-21 20:22) [8]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c