| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

ppcumax ©   (2007-04-20 18:58:00) 

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

---

Desdechado   (2007-04-21 20:22:00) [1]

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

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

---

Asail   (2007-04-21 14:14:00) [2]

Такое?

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

---

Ega23   (2007-04-20 19:16:00) [3]

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


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

---

ppcumax   (2007-04-20 19:14:00) [4]

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

---

McSimm_   (2007-04-20 19:09:00) [5]

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

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

---

Ega23   (2007-04-20 19:05:00) [6]

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


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

for i:=1 to 100 do
begin

end;

---

ppcumax   (2007-04-20 19:02:00) [7]

> for + F1


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

---

Ega23   (2007-04-20 18:59:00) [8]

for + F1

---

Наверх