1:
2:

E-Mail 2: mpfc1@wedvb.de Peter Miller 18970234
E-Mail 2:mpfc2@wedvb.de - Hans Miller 18970234					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

   procedure GetMail(aValue: string);
   var
      at: integer;
      start: integer;
      stop: integer;
      permittedChar: set of Char;
   begin
      if (Pos('@', aValue) = 0) or (Trim(aValue) = '') then exit
      else
         permittedChar := ['a'..'z', '.', '_', '-'];
      aValue := AnsiLowerCase(aValue);
      at := Pos('@', aValue);
      start := at - 1;
      while (aValue[start] in permittedChar) and (start > 0) do
      begin
         Dec(start)
      end;
      stop := at + 1;
      while (aValue[stop] in permittedChar) and (stop < length(aValue)) do
      begin
         Inc(stop)
      end;
      email_dest_Memo.lines.add(Copy(aValue, start, (stop - start) + 1));
   end;