AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Delphi Was ist schneller? function oder 3x stringreplace?
Thema durchsuchen
Ansicht
Themen-Optionen

Was ist schneller? function oder 3x stringreplace?

Ein Thema von Helmi · begonnen am 3. Jul 2005 · letzter Beitrag vom 24. Jan 2007
Antwort Antwort
Seite 2 von 3     12 3      
Robert_G
(Gast)

n/a Beiträge
 
#11

Re: Was ist schneller? function oder 3x stringreplace?

  Alt 3. Jul 2005, 23:24
Zitat von scp:
@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.
Ups, da hast du natürlich recht. Ich bessere das gleich aus.
  Mit Zitat antworten Zitat
Hansa

Registriert seit: 9. Jun 2002
Ort: Saarland
7.554 Beiträge
 
Delphi 8 Professional
 
#12

Re: Was ist schneller? function oder 3x stringreplace?

  Alt 4. Jul 2005, 00:32
Zitat von MathiasSimmack:
Ich habe nur Delphi 5, Hansa, und bei mir ist Delphi-Referenz durchsuchenStringReplace auch lahm.
Also, wie jetzt?
Nun ? Ja, wie jetzt ? Wer weiß es ? Mache mal einen Test.
Gruß
Hansa
  Mit Zitat antworten Zitat
Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.323 Beiträge
 
Delphi XE2 Professional
 
#13

Re: Was ist schneller? function oder 3x stringreplace?

  Alt 7. Jul 2005, 10:06
Wieso funktioniert denn das?
Delphi-Quellcode:
   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;
Woher weiss er welcher char in der schleife bearbeitet werden soll?
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
  Mit Zitat antworten Zitat
generic

Registriert seit: 24. Mär 2004
Ort: bei Hannover
2.416 Beiträge
 
Delphi XE5 Professional
 
#14

Re: Was ist schneller? function oder 3x stringreplace?

  Alt 7. Jul 2005, 10:15
CurrentChar ist ein zeiger auf das aktuelle zeichen.

inc(CurrentChar) setzt den zeiger eine addresse weiter.
Coding BOTT - Video Tutorials rund um das Programmieren - https://www.youtube.com/@codingbott
  Mit Zitat antworten Zitat
Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.323 Beiträge
 
Delphi XE2 Professional
 
#15

Re: Was ist schneller? function oder 3x stringreplace?

  Alt 7. Jul 2005, 10:23
Danke für die Erklärung!

Aber nochmal zu Robert´s Code.
Ich hab den heut mal ausprobiert - der hat nen kleinen Nachteil.
Der gibt nur Vorwahl aus.
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
  Mit Zitat antworten Zitat
Robert_G
(Gast)

n/a Beiträge
 
#16

Re: Was ist schneller? function oder 3x stringreplace?

  Alt 7. Jul 2005, 11:10
Zitat von Helmi:
Danke für die Erklärung!

Aber nochmal zu Robert´s Code.
Ich hab den heut mal ausprobiert - der hat nen kleinen Nachteil.
Der gibt nur Vorwahl aus.
Jupp hatte ich auch schon gesehen.
Zu schnell irgendwas runtergetippt... (Wäre ja auch langweilig wenn geposteter Code einfach so funktioniert... )
  Mit Zitat antworten Zitat
Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.323 Beiträge
 
Delphi XE2 Professional
 
#17

Re: Was ist schneller? function oder 3x stringreplace?

  Alt 24. Jan 2007, 21:28
Hallo,

ich möchte an meinen alten Thread anknüpfen, da meine jetzige Frage im Grunde auch was damit zu tun hat. Folgendes:

Ich muss Chars gegen Chars im Hex-Format austauschen.
Soweit so gut.

Meine erste Version schaut so aus:
Delphi-Quellcode:
  Text := StringReplace(Text, 'ü', Chr($81), [rfReplaceAll]);
  Text := StringReplace(Text, 'ä', Chr($84), [rfReplaceAll]);
  Text := StringReplace(Text, 'ö', Chr($94), [rfReplaceAll]);
  Text := StringReplace(Text, 'Ü', Chr($9A), [rfReplaceAll]);
  Text := StringReplace(Text, 'Ä', Chr($8E), [rfReplaceAll]);
  Text := StringReplace(Text, 'Ö', Chr($99), [rfReplaceAll]);
  Text := StringReplace(Text, 'ß', Chr($E1), [rfReplaceAll]);
  Text := StringReplace(Text, '²', Chr($FD), [rfReplaceAll]);
  Text := StringReplace(Text, '³', Chr($FE), [rfReplaceAll]);
  Text := StringReplace(Text, 'µ', Chr($E6), [rfReplaceAll]);

  Serial.TransmittText(Text);
Wie man sieht, wird dort 10x StringReplace aufgerufen, um jeweils ein Char gegen ein Char aus Hex-Werten zu ersetzen.
Funktioniert auch - nur da StringReplace langsam ist, dacht ich mir ich könnt es anders machen. Dafür hab ich mir diesen Code ausgedacht:
Delphi-Quellcode:
const
  Chars: array[1..10] of Char = ('ä', 'ö', 'ü', 'Ä', 'Ö', 'Ü', 'ß', '²', '³', 'µ');
  Bytes: array[1..10] of Byte = ($84, $94, $81, $8E, $99, $9A, $E1, $FD, $FE, $E6);

var
  i: Integer;
  j: Integer;
  S_Text: String;
  C_Char: Char;

begin
  SetLength(S_Text, length(Text));

  S_Text := '';

  for i := 1 to length(Text) do
    begin
      C_Char := Text[i];

      for j := Low(Chars) to High(Chars) do
        If Chars[j] = C_Char then
          begin
            C_Char := Chr(Bytes[j]);
            break;
          end;

      S_Text := S_Text + C_Char;
    end;

  Serial.TransmittText(S_Text);
Ich vermute mal, dass dieser Code schneller ist als 10x StringReplace.
Was vermutet ihr?

Auch wenn´s etwas OT ist, bringt diese Zeile überhaupt was
  SetLength(S_Text, length(Text));
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
  Mit Zitat antworten Zitat
Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#18

Re: Was ist schneller? function oder 3x stringreplace?

  Alt 24. Jan 2007, 21:38
Zitat von Helmi:
Ich vermute mal, dass dieser Code schneller ist als 10x StringReplace.
Was vermutet ihr?
Lass beides doch einfach 1 Millionen mal aufrufen und miss die Zeit mit GetTickCount, dann weißt du sicher, was schneller ist, ohne hier ewig spekulieren zu müssen. Wobei ich stark annehme, das deine Funktion um einiges schneller sein wird, aber teste es selbst.
  Mit Zitat antworten Zitat
MrKnogge

Registriert seit: 9. Jun 2003
Ort: Pforzheim
2.458 Beiträge
 
Delphi 2007 Professional
 
#19

Re: Was ist schneller? function oder 3x stringreplace?

  Alt 24. Jan 2007, 21:38
Zitat von Helmi:
Ich vermute mal, dass dieser Code schneller ist als 10x StringReplace.
Was vermutet ihr?
Teste es doch einfach
Zum zeitmessen einfach mal nach GetTickCount suchen.

Gruß
Christian Bootz
Einstein ist tot, Newton ist tot,
und mir ist auch schon ganz schlecht...
  Mit Zitat antworten Zitat
Hawkeye219

Registriert seit: 18. Feb 2006
Ort: Stolberg
2.227 Beiträge
 
Delphi 2010 Professional
 
#20

Re: Was ist schneller? function oder 3x stringreplace?

  Alt 24. Jan 2007, 22:17
Hallo Helmi,

schaue dir einmal die Funktion Translate an.

Gruß Hawkeye
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 3     12 3      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:32 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz