Форум: "Основная";
Текущий архив: 2003.01.23;
Скачать: [xml.tar.bz2];
Внизкак к этой задаче добавить проверки. Найти похожие ветки
← →
Fors (2003-01-11 22:21) [0]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;
← →
Rouse_ (2003-01-11 22:34) [1]if (Position < Length(Str)) then Тут пиши обработчик ошибки
Желаю успехов
← →
Fors (2003-01-11 22:42) [2]Не могли ли вы описать более подробнее
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.01.23;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c