DELPHI REMOVE STRING OR NUMBER

บันทึกการพัฒนาโปรแกรมด้วย delphi pascal มีงานที่ต้องรบตัวอักษรออกจากตัวแปรที่เป็นตัวเลข วันนี้เลขเขียนเป็นฟงัก์ชั่นให้เอาแต่สิ่งที่ต้องการอย่างเดียว ลุยๆๆๆ

ฟังก์ชั่น RemoveString เอาแต่ตัวเลข ไม่เอาตัวอักษร

function RemoveString(const aString: string): string;
var
  C: Char;
begin
  Result := '';
  for C in aString do begin
    if CharInSet(C, ['0'..'9']) then
    begin
      Result := Result + C;
    end;
  end;
end;

ฟังก์ชั่น RemoveNumeric เอาแต่ตัวอักษร ไม่เอาตัวเลข

function RemoveNumeric(const aString: string): string;
var
  C: Char;
begin
  Result := '';
  for C in aString do begin
    if not CharInSet(C, ['0'..'9']) then
    begin
      Result := Result + C;
    end;
  end;
end;