Fórum Retirar Valores Validos #256640

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  TTipos = Record
     VString   : String;
     VInterger : String;
  End;

  Procedure procSepararValores(AString : String);

var
  Form1 : TForm1;
  Tipos : TTipos;


implementation

   Procedure procSepararValores(AString : String);
   Var
     intC : Byte;
   Begin
      For intC := 1 To Length(AString)Do
      Begin
         If(Copy(AString,intC,1)[1] In [´0´..´9´])Then
           Tipos.VInterger := Tipos.VInterger + Copy(AString,intC,1)
         Else
           Tipos.VString := Tipos.VString + Copy(AString,intC,1);
      End;
      ShowMessage(´Strings: ´ + Tipos.VString);
      ShowMessage(´Números: ´ + Tipos.VInterger);
   End;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   // Chamando o método
   procSepararValores(´aeiou12345´);
end;

end.