Форум: "Потрепаться";
Текущий архив: 2004.08.29;
Скачать: [xml.tar.bz2];

Вниз

Два вопроса.   Найти похожие ветки 

← →
Кириешки ©   (2004-08-11 16:55) [40]

Попробую...


l := char(#13)+char(#10);
k := Pos(char(#08), s);
while k <> 0 do
begin
   Delete(s,k,1);
   Insert(l,s,k);
   k := Pos(char(#08), s);
end;
БЮ

---

← →
Кириешки ©   (2004-08-11 16:56) [41]

ОК!!!

---

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

Форум: "Потрепаться";
Текущий архив: 2004.08.29;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.5 MB
Время: 0.036 c