Очистка строки (символьное значение числа) от пробелов, нулей и точки
Автор: Виталий
WEB-сайт: http://delphibase.endimus.com
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Очистка строки (символьное значение числа) от пробелов, нулей и точки
Функция возращает строку очищенную от символов: пробел, ноль, точка.
Зависимости: нет
Автор: Виталий, center_sapr@mnogo.ru, Львов
Copyright: Witek
Дата: 26 апреля 2002 г.
***************************************************** }
unit Unit2;
interface
function StrFl(st: string ): string ;
implementation
function StrFl(st: string ): string ;
label
p1, p2, p3;
var
poz: Byte;
k: integer;
stt: string ;
begin
k := Length(st);
if k <= 1 then
goto p2;
p1:
stt := Copy(st, 1, 1); {Очистка от пробелов}
if stt = " " then
begin
st := Copy(st, 2, k - 1);
k := k - 1;
goto p1;
end ;
stt := Copy(st, k, 1);
if stt = " " then
begin
st := Copy(st, 1, k - 1);
k := k - 1;
goto p1;
end ;
p3:
poz := Pos(".", st); {Очистка от нулей}
if poz = 0 then
goto p2;
stt := Copy(st, k, 1);
if stt = "0" then
begin
st := Copy(st, 1, k - 1);
k := k - 1;
goto p3;
end ;
if stt = "." then {Очистка от точки}
begin
st := Copy(st, 1, k - 1);
end ;
p2:
StrFl := st;
end ;
end .
Пример результатов:
5.000 -> 5
5.001 -> 5.001
05.100 -> 05.1
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Очистка строки (символьное значение числа) от пробелов, нулей и точки", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:
Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи , в сообщение обязательно указывайте название или ссылку на статью!