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

[Agmcz]

هذا مثال أخي S.FATEH بارك الله فيه
إضافة else لدوران مباشرة عند تساوي

PHP كود :

var
  I: Integer;
  TmpStr: String;
begin
  for I := 0 to Memo1.Lines.Count -1 do
    begin
      TmpStr := UpperCase(Memo1.Lines[i]);
      TmpStr := Copy(TmpStr, Pos('@', TmpStr) + 1, Pos('.', TmpStr) - Pos('@', TmpStr) - 1);
      if TmpStr = 'HOTM4IL' then
        Memo2.Lines.Add(Memo1.Lines[i])
      else
      if TmpStr = 'GM4IL' then
        Memo3.Lines.Add(Memo1.Lines[i])
      else
      if TmpStr = 'YM4IL' then
        Memo4.Lines.Add(Memo1.Lines[i]);
    end;
end; 


أو

PHP كود :

function GetMailType(Mail: string): Integer;
const
  HostArr: array[1..3] of string = ('hotm4il', 'gm4il', 'ym4il');
var
  I: Integer;
  HostEx: string;
  P1, P2: Integer;
begin
  Result := 0;
  P1 := Pos('@', Mail) + Length('@');
  P2 := Pos('.', Mail);
  HostEx := Copy(Mail, P1, P2 - P1);
  for I := 1 to 3 do
  begin
    if HostArr[I] = HostEx 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;