вопос

← →
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 сделай.

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