Hallo erstmal!
Ich bin auf der Suche nach einer Funktion um die E-Mailadressen aus einem Richedit Feld(evtl. auch einer Listbox oder einem Memo) auszulesen, um mir das mühselige durchstöbern von Dateien zu ersparen.
Postet bitte alles was mir dabei helfen könnte!

Hi!

Ich werfe mal Regular Expressions in den Raum!


Ciao Frederic

Herzlich Willkommen in der Delphi-PRAXiS.

Zu Fuß geht es auch - so oder ähnlich:

zusammenfalten · markieren

Delphi-Quellcode:

const
  LC_CHARS = 'abcdefghijklmnopqrstuvwxyz';
  UC_CHARS = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
  ValidMailBoxChars = LC_CHARS + UC_CHARS + '.';

procedure ExtractMailAddr(text: String; s: TStrings);
var
  iSearch, iStart: Integer;
  sAddr: String;
begin
  s.Clear;
  iSearch := 1;
  while iSearch < Length(text) do
  begin
    sAddr := '';
    iStart := PosEx('@', text, iSearch);
    if iStart = 0 then Exit;
    iSearch := iStart;
    while (iStart > 1) and (Pos(text[Pred(iStart)], ValidMailBoxChars) > 0) do
      Dec(iStart);
    while (iSearch < Length(text)) and (Pos(text[Succ(iSearch)], ValidMailBoxChars) > 0) do
      Inc(iSearch);
    s.Add(Copy(text, iStart, Succ(iSearch - iStart)));
    Inc(iSearch);
  end;
end;

Grüße vom marabu