Hallo,

ich hab mal wieder eine Frage!

was ist schneller - diese Function:

zusammenfalten · markieren

Delphi-Quellcode:

function ZahlAusString(const S: string): string;
var
  i, j: Integer;
begin
  SetLength(Result, Length(S));
  j := 0;

  for i := 1 to Length(S) do
    If S[i] in ['0'..'9'] then
      begin
        Inc(j);
        Result[j] := S[i];
      end;

  SetLength(Result, j);
end;

oder diese 3 StringReplace´s:

markieren

Delphi-Quellcode:

  S := MaskEdit_Anrufe.EditText;
  S := StringReplace(S, '(', '', [rfReplaceAll]);
  S := StringReplace(S, ')', '', [rfReplaceAll]);
  S := StringReplace(S, ' ', '', [rfReplaceAll]);

Der Hintergrund ist, dass ich ein Editfeld habe, indem eine Telefonnummer steht, dessen Vorwahl in Klammern steht und nach der letzten Klammer und der eigentlichen Nummer ein Leerzeichen ist.

In meinem Code vergleich ich einen String, in dem die gesamte Telefonnummer (inkl. Vorwahl) ohne Klammern und Leerzeichen steht, mit dem Eingabefeld.

Deshalb würds mich interessieren was schneller ist - die Function oder die 3 StringReplace´s.

Ich schätze die Function - was meint ihr?

Auf keinen Fall StringReplace. Ich bin zwar nicht firm in Sachen Funktionsanalyse (bezogen auf die Geschwindigkeit), aber StringReplace war schon immer a****langsam.

HI!

Ich vermute(!) Version 1, da Stringreplace wohl auch über das komplette "Array" läuft und dann eben 3x drüber muss.

Ciao Frederic

Edit: Unsinn entfernt. Ich brauch 'ne Brille

Wenn ich das hier lese :

Zitat:

Delphi 7 Professional

dann würde ich mal im Source nachgucken ! SysUtils.Pas vermutlich. Aber ehrlich gesagt : würde das nur untersuchen, wenn es um ein gigantisches Programm handelt !!

Ich habe nur Delphi 5, Hansa, und bei mir ist StringReplace auch lahm.
Also, wie jetzt?

stringreplace sollte auf jeden fall langsamer sein da es allgemein gehalten ist. außerdem würdest du mit stringreplace wie schon gepostet das ganze 3 mal durchgehen, bei deiner variante allerdings nur einmal..

danke für eure Antworten!

ich hab mir mal den Code vom "StringReplace" angeschaut und dort ist auch eine Schleife enthalten.
Wenn ich also nun StringReplace 3 mal aufrufe, läuft die Schleife auch 3 mal. Bei meiner Function nur einmal!

Ich hab jetzt meinen Code auf meine Function umgeschrieben.

Generell dürfte ein Besuche bei den Fastcoders einen Versuch Wert sein.

Bei deiner Funktion fällt mir auf, dass du die Größe des Strings 2-mal besetzt und Zum Iterieren durch einen string eignet sich ein PChar ganz gut.

zusammenfalten · markieren

Delphi-Quellcode:

function ZahlAusString(const aSearchString: string): string;
var
   i : Integer;
   CurrentChar : PChar;
   NumberFound : Boolean;
   NumberStart : Integer;
   NumberLength : Integer;
begin

   NumberFound := False;
   NumberStart := -1;
   NumberLength := 0;

   CurrentChar := PChar(aSearchString);

   for i := 1 to Length(aSearchString) do
   begin
      if CurrentChar^ in ['0'..'9'] then
      begin
         inc(NumberLength);

         if not NumberFound then
         begin
            NumberStart := i;
            NumberFound := True;
         end;
      end
      else if NumberFound then
         break;

      inc(CurrentChar);
   end;

   if NumberFound then
      result := Copy(aSearchString, NumberStart, NumberLength)
   else
      result := '';
end;

@Robert_G
Da fehlt noch ein Break oder ähnliches, sonst wird nämlich aus "(02622) 1234" einfach nur "02622) 1234".

Sprich sobald NumberFound true ist müsste bei der nächsten "Nichtziffer" gestoppt werden.