StringReplace mit Record ohne Ergebnis

[apm]

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]

Hallo,

sieht korrekt aus.

Breakpoint (F5) / WatchPoint (F7) ??

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

Heiko

[apm]

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]

Zitat von apm:

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]

Ach so: und die Delphi-Version angeben.

[Bjoerk]

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]

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]

Zitat von Uwe Raabe:

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]

Zitat von himitsu:

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]

Zitat von apm:

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.