Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   

Получить числа из строки


type 
  TCharSet = set of Char; 

function StripNonConforming(const S: string; 
  const ValidChars: TCharSet): string; 
var 
  DestI: Integer; 
  SourceI: Integer; 
begin 
  SetLength(Result, Length(S)); 
  DestI := 0; 
  for SourceI := 1 to Length(S) do 
    if S[SourceI] in ValidChars then 
    begin 
      Inc(DestI); 
      Result[DestI] := S[SourceI] 
    end; 
  SetLength(Result, DestI) 
end; 

function StripNonNumeric(const S: string): string; 
begin 
  Result := StripNonConforming(S, ['0'..'9']) 
end;

           


кальян на грейпфруте . Немецкие авто кресла Сybex - автокресло cybex solution. Акция! Cybex Solution Х 4700 руб. . Юридические услуги. Голиаф: регистрация в москве. Регистрация ООО, ЗАО. . купить скважинные насосы .


Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011