lerzeichen entfernen

[Die Muhkuh]

Wenn man es unbedingt mit StringReplace machen will, ginge auch sowas:

Delphi-Quellcode:

function StripPlusMinusAndSpace(const Str: string): integer;
begin
  Result := StringReplace(Str, ' ', '', [rfReplaceAll]);
  if (Result[1] = '+') or (Result[1] = '-') then
    Delete(Result, 1, 1);
end;

Spart zumindest 2x StringReplace ein ;-)

[RavenIV]

Zitat:

Zitat von marabu

Hi,

bevor ich StringReplace() dreimal aufrufe, dann lieber eine Funktion, wie Guido es vorgeschlagen hat: klick

StringReplace liegt ja als Source vor, da kann man das ja selber erweitern, dass er als OldString ein "set of String" akzeptiert. Alles, was in diesem Set drin ist, wird durch NewString ersetzt.
Ungefähr so:

Delphi-Quellcode:

Tiere := 'Hund, Elefant, Katze, Frosch, Giraffe, Maus';
Tiere := StringReplace(Tiere, ['Hund', 'Katze', 'Maus'], 'Haustier')

[marabu]

Eigentlich möchte ich das Vorzeichen nicht wegwerfen.

Außerdem gibt es Benutzer, die manchmal Leerstellen, manchmal den Tausenderpunkt zur Verbesserung der Lesbarkeit eintragen.

Delphi-Quellcode:

function StrToIntEx(const s: string): Integer;
begin
  Result := StrToInt(Without(s, [' ', ThousandSeparator]));
end;

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  s: string;
begin
  s := ''
  while InputQuery('Numeric Input Normalization', 'Integer String', s) do
    s := IntToStr(StrToIntEx(s));
end;

[Namenloser]

Zitat:

Zitat von RavenIV

"set of String"

wtf ist ein "set of string"? Meinst du ein variantes Array? :gruebel:

[RavenIV]

Zitat:

Zitat von NamenLozer

Zitat:

Zitat von RavenIV

"set of String"

wtf ist ein "set of string"? Meinst du ein variantes Array? :gruebel:

Weil mir die genaue Bezeichnung grad nicht eigefallen ist, habe ich es in Anführungszeichen gesetzt. ;-)

[Lannes]

Hallo,

@Die Muhkuh: da fehlt noch ein StrToInt :wink:

Wenn der Rückgabetyp ein Integer sein soll:

Delphi-Quellcode:

function StripPlusMinusAndSpace(const Str: string): integer;
begin
  Result := Abs(StrToInt(StringReplace(Str, ' ', '', [rfReplaceAll])));
end;