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

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

← →
bondik   (2002-11-14 15:57) [0]

У меня есть вопрос какн аписать в Delphi аналог процедуры Insert, но процедурой Delete и функцией Copy не пользоваться.

---

← →
stone ©   (2002-11-14 16:00) [1]

а поконкретнее можно? Какой именно Insert?

---

← →
BSD   (2002-11-14 16:14) [2]

Если ты о строках, то можно например так:

function MyInsert(Source,St:string;pos:integer):string;
var
i:integer;
begin
Result:="";
for i:=1 to pos-1 do Result:=Result+St[i];
for i:=1 to Length(Source) do Result:=Result+Source[i];
for i:=pos to Length(St) do Result:=Result+St[i];
end;

Только Range cheking сделай.

---

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

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



Память: 0.45 MB
Время: 0.013 c