проверка условия в Assert

← →
John McLein (2011-02-04 18:06) [0]

Приложение отправляет файлы на веб-сервер. Если в имени файла присутствует пробел нужно заменить его на символ подчеркивания. Набросал функцию. Стоил ли проверку на пробел заключать в Assert для информативности или же это глупо.

function cut_space(const S: string): string; var L, I: Integer; begin Result := S; L := Length(Result); for I := 1 to L do try Assert(Result[I] <> " ", Format("Строка "%s" содержит недопустимы символ "%s[%d]"", [Result, Result[I], I])); except Result[I] := "_"; end; end; procedure TForm1.Button2Click(Sender: TObject); begin ShowMessage(cut_space("aaa bbb ccc")); end;

← →
Плохиш © (2011-02-04 18:18) [1]

Как они тольно не извращаются :-)))

StringReplace не поможет юному извращенцу?

проверка условия в Assert Найти похожие ветки