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

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

← →
Кириешки ©   (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 вся ветка

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



Память: 0.51 MB
Время: 0.027 c