كيف تفرقة الايمايلات حسب نوعها من مكون memo

[Agmcz]

وعليكم السلام
هذا تطبيق لكلامك

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
function GetMailType(Mail: string): Integer;
const
  MailArr: array[1..3] of string = ('hotm4il.com', 'gm4il.com', 'ym4il.com');
var
  I: Integer;
  ExHost: string;
begin
  Result := 0;
  ExHost := Copy(Mail, Pos('@', Mail) + Length('@'), Length(Mail));
  for I := 1 to 3 do
  begin
    if MailArr[I] = ExHost then
    begin
      Result := I;
      Break;
    end;
  end;
end;
var
  I: Integer;
begin
  for I := 0 to Memo1.Lines.Count -1 do
  begin
    case GetMailType(Memo1.Lines[I]) of
      1: Memo2.Lines.Add(Memo1.Lines[I]);
      2: Memo3.Lines.Add(Memo1.Lines[I]);
      3: Memo4.Lines.Add(Memo1.Lines[I]);
    end;
  end;
end; 


بالتوفيق