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

обработчик ошибки   Найти похожие ветки 

← →
Fors   (2003-01-13 15:14) [0]

Извините подскажите пожалуйста как к этой задаче добавить проверки if (Position < Length(Str)) И какой обработчик ошибки Я один из наченающих знаний у меня мало.
var
i: Integer;
begin
SetLength(Result, Length(Srt) + Length(SubStr));
for i := 1 to Position do
Result[i] := Str[i];
for i := 1 to Length(SubStr) do
Result[i + Position] := SubStr[i];
for i := Position to Length(Str) do
Result[i + Length(SubStr)] := Str[i];
end;

---

← →
Демонов Е.В. ©   (2003-01-13 15:45) [1]

скажи что ты хочешь сделать ?

---

← →
Fors   (2003-01-13 18:45) [2]

Я хочу написать аналог процедуры Insert. Процедурой Delete и функцией Copy пользоваться нельзя. В первой строке входа дана подстрока, которая вставляется, во второй строке входа строка, куда вставляется и в третьей строке входа позиция, начиная с которой подстрока будет входить в строку.Когда я ввожу номер позиции 4 в этом слове helчтобы получить слово hello
lo - то что хочу вставить
hel - куда вставляю
hel l- то что получаеться

var
i: Integer;
begin
SetLength(Result, Length(Srt) + Length(SubStr));
for i := 1 to Position do
Result[i] := Str[i];
for i := 1 to Length(SubStr) do
Result[i + Position] := SubStr[i];
for i := Position to Length(Str) do
Result[i + Length(SubStr)] := Str[i];
end;

---

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

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



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