Suceh nach MailAdressen in Strings

[sh17]

Delphi-Quellcode:

 While suchen do begin 
           For y := x downto 1 do begin 
              mail(zeile[y]); 
              wort := wort + zeile[y]; 
           end; 
         end;

wenn [e-mail] in der liste stehen würde, kommt bei dir nur

@hci raus.

Du musst vom @ (x) ausgehenden nach links und nach rechts bis zum nächsten Leerzeichen