Zeichen bzw Chars aus String entfernen

[Natcree]

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<[e-mail]>

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.

[Mathematiker]

Hallo,
Mit dem String s:='Max Mustermann<[e-mail]>' löscht

Delphi-Quellcode:

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

die überflüssigen Zeichen.

Beste Grüße
Mathematiker

[Natcree]

Habe mal deinen Code Versucht passiert aber nichts

Delphi-Quellcode:

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

[Der schöne Günther]

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.

[Mathematiker]

Mit

Delphi-Quellcode:

var
 s : String;
 begin
 s:='Max Mustermann<[e-mail]>';
 delete(s,1,pos('<',s));
 delete(s,length(s),1);
 label1.text:=s;
end;

wird in label1 der Text [e-mail] ausgegeben, d.h. es funktioniert.

Beste Grüße
Mathematiker

[Natcree]

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

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;

[Natcree]

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