Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.23;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.018 c
6-72451
LEgO-2
2002-11-24 02:57
2003.01.23
Авторизация


1-72344
scorpi
2003-01-11 17:51
2003.01.23
DOS-кодировка


3-72064
Serginio
2002-12-30 16:04
2003.01.23
Бдешный Upper( Я )<>Upper( я )


4-72613
Ifuty
2002-12-07 18:49
2003.01.23
Jan_coo player.


14-72531
123000
2003-01-07 22:18
2003.01.23
ICQ