Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi StringReplace mit Record ohne Ergebnis (https://www.delphipraxis.net/180479-stringreplace-mit-record-ohne-ergebnis.html)

apm 22. Mai 2014 16:24

StringReplace mit Record ohne Ergebnis
 
Hallo Leute!
Ich versuche gerade einen MemoText durchsuchen und verändern zu lassen.
Eigentlich kein Problem: StringReplace. Ich bekomme aber keine Umwandlung hin...

Der Record und das füllen dessen funktioniert ohne Probleme.
Delphi-Quellcode:
  type
    T_recListEigenschaft = record
      sParm, sEigenschaft: String;
    end;
Beim durchlauf des Record-Arrays komme ich aber wie gesagt nicht weiter.
Auch mit normalen String-Arrays geht es nicht. Der "normale Replace" funktioniert hingegen ohne Probleme.
Delphi-Quellcode:
        for iEins := 0 to MFile.Lines.Count - 1 do
        begin
          sInput := MFile.Lines[iEins];

          for iZwei := 0 to Length(arrResult) - 1 do
            sInput := StringReplace(
                                      sInput,
                                      arrResult[iZwei].sParm,
                                      arrResult[iZwei].sEigenschaft,
                                      [rfReplaceAll, rfIgnoreCase]
                                  );

          sInput := StringReplace(sInput, 'sFind', 'sChange', [rfReplaceAll, rfIgnoreCase]);

          MFile.Lines[iEins] := sInput;
        end;

Hat jemand ggf. eine Erklärung?
G

hoika 22. Mai 2014 16:37

AW: StringReplace mit Record ohne Ergebnis
 
Hallo,

sieht korrekt aus.

Breakpoint (F5) / WatchPoint (F7) ??

Die iEins-Schleife könnte man auch weglassen (statt Lines.Count Lines.Text nehmen)

Heiko

apm 22. Mai 2014 16:49

AW: StringReplace mit Record ohne Ergebnis
 
Beim Schrittweise durchgehen kann ich soweit nur feststellen, dass:
  • … beide Teile des Record richtig gefüllt sind (Werte) und Anzahl stimmt
  • … die richtigen Zeilen-Texte (sInput) in der Schleife benutzt werden
  • … die Schleife für den Replace so oft durchläuft wie auch Werte im Record sind

Uwe Raabe 22. Mai 2014 16:56

AW: StringReplace mit Record ohne Ergebnis
 
Zitat:

Zitat von apm (Beitrag 1259835)
Beim Schrittweise durchgehen kann ich soweit nur feststellen, dass:
  • … beide Teile des Record richtig gefüllt sind (Werte) und Anzahl stimmt
  • … die richtigen Zeilen-Texte (sInput) in der Schleife benutzt werden
  • … die Schleife für den Replace so oft durchläuft wie auch Werte im Record sind

Und das sInput entspricht in jedem Durchlauf nicht dem erwarteten Ergebnis? Dann musst du wohl mal mit konkreten Daten kommen.

Uwe Raabe 22. Mai 2014 16:57

AW: StringReplace mit Record ohne Ergebnis
 
Ach so: und die Delphi-Version angeben.

Bjoerk 22. Mai 2014 17:21

AW: StringReplace mit Record ohne Ergebnis
 
Lass dir ggf. in der iZwei Schleife mal arrResult[iZwei].sParm und arrResult[iZwei].sEigenschaft anzeigen? Daß StringReplace nicht auf ganze Wörter prüft weißt du?

apm 22. Mai 2014 17:40

AW: StringReplace mit Record ohne Ergebnis
 
Ich benutzte: Delphi 2009 Update 2 auf meinem Notebook mit Win 7 x64 SP1.
Soweit hab ich nur die Jedi-Komponenten installiert, die ich in dem Projekt aber nicht verwende.


In den Input-Zeilen stehen so Texte wie:
Zitat:

<content action_target="we_view_43773_beschreibung"><![CDATA[Nahe der 4-Tore-Stadt Neubrandenburg und der A20 befindet sich seit 1845 umgeben von Stadtmauer und Burgtor unser Mecklenburger Hof. Als idealer Ausgangspunkt für Radfahrer und Wanderer der Eiszeitroute und Entdecker des Naturschutzgebietes &bdquo;Galenbecker See&ldquo; und des Landschaftsschutzgebietes &bdquo;Brohmer Berge&ldquo; lädt Sie unser Familiengeführter Gasthof mit seinen gemütlichen Zimmern und seinem Restaurant mit frischer gutbürgerlicher Küche zum schlemmen und verweilen ein.<br/>]]></content>
Im Ursprünglichen kommt alles aus einer XML-File.


Im Record sind Elemente gespeichert wie:
Zitat:

sParm -> &bdquo;
sEigenschaft -> &quot;


In der Replace-Schleife habe ich mir gerade nochmal die einzelnen Werte separat ausgeben lassen. Auch iO.

himitsu 22. Mai 2014 19:36

AW: StringReplace mit Record ohne Ergebnis
 
Zitat:

Zitat von Uwe Raabe (Beitrag 1259838)
Ach so: und die Delphi-Version angeben.

Aktuellere Delphi-Versionen sollten da auch eine entsprechende Fehlermeldung ausgeben.

Du schreibst nur in einer Kopie des Records rum, welche danach nicht zurückgespeichert, sondern einfach verworfen wird. An den "eigentlichen" Recordvariablen änderst du also nichts und somit bleibt der alte Wert auch erhalten.

Fazit:
- entweder den Record rauskopieren, ändern und neu in der Liste abspeichern
- oder auf Daten-Objekte umstellen (TObjectList, eine Persistent-Collection oder Dergleichen)
- oder einen Pointer auf die Records besorgen und darüber den Inahlt ändern

Uwe Raabe 22. Mai 2014 19:55

AW: StringReplace mit Record ohne Ergebnis
 
Zitat:

Zitat von himitsu (Beitrag 1259855)
Du schreibst nur in einer Kopie des Records rum, welche danach nicht zurückgespeichert, sondern einfach verworfen wird. An den "eigentlichen" Recordvariablen änderst du also nichts und somit bleibt der alte Wert auch erhalten.

Aber die Felder im Record werden doch gar nicht beschrieben, sondern dienen lediglich als OldPattern bzw. NewPattern für das StringReplace.

Uwe Raabe 22. Mai 2014 19:56

AW: StringReplace mit Record ohne Ergebnis
 
Zitat:

Zitat von apm (Beitrag 1259845)
In der Replace-Schleife habe ich mir gerade nochmal die einzelnen Werte separat ausgeben lassen. Auch iO.

Jetzt wäre der Zeitpunkt für ein simples Beispielprojekt, das den Fehler zeigt.


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:18 Uhr.
Seite 1 von 2  1 2      

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