Вопрос

← →
bondik (2002-11-14 16:03) [0]

Можно.как написать в Delphi аналог процедуры Insert, но процедурой Delete и функцией Copy не пользоваться.
В первой строке входа дана подстрока, которая вставляется, во второй строке входа строка, куда вставляется и в третьей строке входа позиция, начиная с которой подстрока будет входить в строку.

← →
Андрей Прокофьев © (2002-11-14 16:05) [1]

см StrUtols.StuffString

← →
KoluChi © (2002-11-14 16:06) [2]

Изобретаем велосипед? Можно, по-символьно.

← →
stone © (2002-11-14 16:07) [3]

а почему нельзя пользовать Copy?

← →
serz (2002-11-14 16:16) [4]

так сказано

← →
KoluChi © (2002-11-14 16:22) [5]

>Андрей Прокофьев © (14.11.02 16:05)
>см StrUtols.StuffString
function StuffString(const AText: string; AStart, ALength: Cardinal; const ASubText: string): string; begin Result := Copy(AText, 1, AStart - 1) + ASubText + Copy(AText, AStart + ALength, MaxInt); end;
Или не тот StrUtils.pas?

← →
NickBat © (2002-11-14 16:24) [6]

function MyIns(SubStr, Str: string; Ind: integer): string; var ii: integer; begin Result:=""; for ii:=1 to Length(Str) do begin if ii<>Ind then Result:=Result+Str[ii] else Result:=Result+Substr; end; end;
Ну и по-хорошему вставить проверку на корректность позиции в строке куда вставлять (чтоб не больше длины строки).

← →
Игорь Шевченко © (2002-11-14 16:24) [7]

bondik (14.11.02 16:03)

Можно, только откуда взялись такие условия ?

← →
Skier © (2002-11-14 16:25) [8]

>Игорь Шевченко
От преподавателя... :))

← →
Reindeer Moss Eater (2002-11-14 16:33) [9]

StrNew + StrCopy,StrPCopy or Move

Что-то в этом роде:
procedure MyInsert(const SubStr : String; var Str : String; const Index : Integer);
var L : Integer;
begin
L := Length(SubStr);
SetLength(Str, Length(Str)+ L);
Move(Str[Index], Str[Index+L], L);
Move(SubStr[1], Str[Index], L);
end;

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