[Delphi] 문자 사이에서 숫자 추출 / 숫자 사이에서 문자 추출



{ 문자 사이에서 숫자 추출하기 }

function ExtractInt(AString: string): string; 
var
  I: Integer;
  TempString: string;
begin

  TempString := '';

  AString := Trim(AString);

  if AString <> '' then
    for I := 1 to Length(AString) do
      if (AString[I] in ['0'..'9']) then
        TempString := TempString + AString[I];

  Result := Trim(TempString);

end;


{ 숫자 사이에서 문자 추출하기 }

function ExtractString(AString: string): string; 
var
  I: Integer;
  TempString: string;
begin

  TempString := '';

  AString := Trim(AString);

  if AString <> '' then
    for I := 1 to Length(AString) do
      if not (AString[I] in ['0'..'9']) then
        TempString := TempString + AString[I];

  Result := Trim(TempString);

end;