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

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

← →
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

---

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

Что-то в этом роде:
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;

---

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

Skier © (14.11.02 16:25)

Тогда я пас - учиться всегда нужно самому :-)

С уважением,

---

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

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



Память: 0.47 MB
Время: 0.014 c