Очистка строки (символьное значение числа) от пробелов, нулей и точки
Функция возвращает строку очищенную от символов: пробел, ноль, точка.
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. |
