schnellste Variante für String Reduktion auf 1..9,0 und "." ","

[himitsu]

Delphi-Quellcode:

function GetNum(S: String): Extended;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to Length(S) do
    if S[i] in ['0'..'9'] then begin
      Delete(S, 1, i - 1);
      Break;
    end;
  Val(S, Result, i);
end;

und nun noch'n bissl aufgemotzt

Delphi-Quellcode:

function GetNum(S: String): Extended;
var
  i: Integer;
begin
  Result := 0;
  for i := 1 to Length(S) do
    if S[i] in ['0'..'9'] then begin
      if (i > 1) and (S[i - 1] in ['+', '-']) then
        Delete(S, 1, i - 2) else Delete(S, 1, i - 1);
      Break;
    end;
  S := StringReplace(S, ',', DecimalSeparator, [rfReplaceAll]);
  Val(S, Result, i);
end;

[moelski]

Das wäre meine Variante:

Delphi-Quellcode:

Function Floaty(Input : String; DezSep : Char) : String;
var c          : Char;
    Thousand   : Char;
    len        : integer;
    Start      : Boolean;
    DezSepDone : Boolean;
  procedure Accept(c: char);
  begin
    inc(len);
    Result[len] := c;
  end;
begin
  len := 0; Start := False; DezSepDone := False;

  if DezSep = '.' then Thousand := ','
                  else Thousand := '.';

  SetLength(Result, Length(Input));
  for c in Input do begin
    if c in ['0' .. '9', '-', DezSep] then begin
      if (c = DezSep) and DezSepDone then Break;  // Bsp : 1.323,999,34 verhindern
      Start := len=0;             // Wenn erste Zahl hinzugefügt wird -> Start
      if c = DezSep then begin
        DezSepDone := True;   // DezimalSep wurde bearbeitet
        Accept(DecimalSeparator);
      end else
        Accept(c);
    end else begin
      if Start and (c <> Thousand) then Break;
    end;
  end;
  SetLength(Result, len);
end;

Floaty('Dies ist -1,323.999.34 jojo', '.') liefert -1323,999.

[jbg]

Zitat:

Zitat von Daniela.S (Beitrag 1043095)

SetLength( str, (Integer(p2) - Integer(str)) div 2 );

Na dann warte mal bis 64 Bit kommt, dann passt dein Integer-Typecast wieder nicht. Warum nicht einfach

Delphi-Quellcode:

SetLength( str, (p2 - PChar(str)) );

Damit passt das für ANSI, UNICODE und 64 Bit, 128 Bit, ... man weiß ja nie.

[Horst_]

Hallo,

@moelski:
Hänge doch bitte eine Beispieldatei an, damit man eine Tempovergleich der verschiedenen Versionen machen kann.

Gruß Horst