Ich habe mir ein email programm gebastelt nunmehr soll jeder User die Möglichkeit haben Kontakte hinzuzufügen. Bei einer eingehenden Email Steht im Header Aber Max Mustermann<Max@XN--nat-gebudeservice-wqb.de>

Wie Kriege ich die Beiden <> und alle zeichen danneben weg um es anschliessend in eine Datenbank zuspeichern. Aber nur das rot markierte ist die email adresse die in eine Database gespeichert werden soll WIe stelle ich das am besten an??? da ja auch namen vor der Email addresse variieren können.

Hallo,
Mit dem String s:='Max Mustermann<Max@XN--nat-gebudeservice-wqb.de>' löscht

markieren

Delphi-Quellcode:

delete(s,1,pos('<',s));
delete(s,length(s),1);

die überflüssigen Zeichen.

Beste Grüße
Mathematiker

Habe mal deinen Code Versucht passiert aber nichts

markieren

Delphi-Quellcode:

var
s : String;
begin
s:=edit1.text;
delete(s,1,pos('<',s));
delete(s,length(s),1);

Was erwartest du? Dass die Klammern aus dem Edit-Feld verschwindet? Dann musst du dem Edit-Feld auch wieder den String s als Text zuweisen.

Mit

markieren

Delphi-Quellcode:

var
 s : String;
 begin
 s:='Max Mustermann<Max@XN--nat-gebudeservice-wqb.de>';
 delete(s,1,pos('<',s));
 delete(s,length(s),1);
 label1.text:=s;
end;

wird in label1 der Text Max@XN--nat-gebudeservice-wqb.de ausgegeben, d.h. es funktioniert.

Beste Grüße
Mathematiker

neein aber er nicht ein zeichen entfernt. Selbst mit dieser funktion bleibt vorne noch < stehen

zusammenfalten · markieren

Delphi-Quellcode:

function ExtractiMehl (aValue : string) : string;
 var
   at : integer;
   start : integer;
   stop : integer;
   permittedChar : SET of Char;
 begin
   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;
   result := Copy (aValue,start,(stop-start));
 end;

Ja super alles klar hatte vergessen edit1.text :=s zuzuordnen supi ich danke euch