Текущий архив: 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