Thema: Delphi lerzeichen entfernen

Einzelnen Beitrag anzeigen

Benutzerbild von Lannes
Lannes

Registriert seit: 30. Jan 2005
Ort: Münster
745 Beiträge
 
Delphi 3 Professional
 
#16

Re: lerzeichen entfernen

  Alt 10. Jul 2008, 13:23
Hallo,

@Die Muhkuh: da fehlt noch ein StrToInt

Wenn der Rückgabetyp ein Integer sein soll:
Delphi-Quellcode:
function StripPlusMinusAndSpace(const Str: string): integer;
begin
  Result := Abs(StrToInt(StringReplace(Str, ' ', '', [rfReplaceAll])));
end;
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
  Mit Zitat antworten Zitat