{ **** UBPFD *********** by delphibase.endimus.com ****
>> Преобразование сроки в число
Преобразует строку в число, при этом удаля из строки все лишние символы
Зависимости: нет
Автор: Separator, <a href="mailto:vilgelm@mail.kz">vilgelm@mail.kz</a>, ICQ:162770303, Алматы
Copyright: Separator
Дата: 7 мая 2003 г.
***************************************************** }
function StringToNumber(const Value: string): string;
var
 ResStr: string;
 i, j, L: integer;
 Ch: char;
 E, DS: boolean;
begin
 Result := '0';
 L := Length(Value);
 if L <> 0 then
 begin
  SetLength(ResStr, L);
  E := false;
  DS := false;
  j := 0;
  for i := 1 to L do
  begin
  Ch := Value[i];
  case Ch of
  '0'..'9':
  begin
  Inc(j);
  ResStr[j] := Ch
  end; //'0'..'9': begin
  '.', ',': if (not DS) and (not E) and (i <> L) then
  begin
  DS := true;
  Ch := DecimalSeparator;
  if j = 0 then
  begin
  Inc(j);
  ResStr[j] := '0';
  end; //if j = 0 then begin
  Inc(j);
  ResStr[j] := Ch
  end; //'.', ',': if (not DS) and (i <> L) then begin
  'e', 'E': if (not E) and (i <> L) then
  begin
  E := true;
  Ch := 'E';
  if j = 0 then
  begin
  Inc(j);
  ResStr[j] := '0';
  end; //if j = 0 then begin
  Inc(j);
  ResStr[j] := Ch
  end //'.', ',': if (not DS) and (i <> L) then begin
  end //case Ch of
  end; //for i:= 1 to L do begin
  if j <> 0 then
  begin
  if ResStr[j] = 'E' then
  Dec(j);
  if ResStr[j] = DecimalSeparator then
  Dec(j);
  SetLength(ResStr, j);
  Result := ResStr
  end //if j <> 0 then begin
 end //if L <> 0 then begin
end;
Пример использования:
Edit1.Text = ',...,fgftgtr656,.567erdf..5,,632'
Edit2.Text := StringToNumber(Edit1.Text);
Edit2.Text = 0, 656567E5632

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;