| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

как к этой задаче добавить проверки.

Fors ©   (2003-01-11 22:21:00) 

function insert(Str, SubStr: string; Position: Integer): String;
Извините за надоедливость но подскажите пожалуйста как к этой задаче добавить проверки. Я один из наченающих знаний у меня мало
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;

---

Fors   (2003-01-11 22:42:00) [1]

Не могли ли вы описать более подробнее

---

Rouse_   (2003-01-11 22:34:00) [2]

if (Position < Length(Str)) then Тут пиши обработчик ошибки

Желаю успехов

---

Наверх