Текущий архив: 2011.05.15;
Скачать: CL | DM;
Вниз
проверка условия в 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 не поможет юному извращенцу?
Страницы: 1 вся ветка
Текущий архив: 2011.05.15;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.007 c
