Zeichen bzw Chars aus String entfernen

[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;