проверка условия в Assert
John McLein © (2011-02-04 18:06:00)
Приложение отправляет файлы на веб-сервер. Если в имени файла
присутствует пробел нужно заменить его на символ подчеркивания.
Набросал функцию. Стоил ли проверку на пробел заключать в 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:00) [1]
Как они тольно не извращаются :-)))
StringReplace не поможет юному извращенцу?
Наверх 
ЧАТ |
Орешник |
|
