ContainsStr/Stringvergleich

[alphanumeric]

Servus,

kurz zur vorgeschichte.

ich habe einen Email verteiler fest als XML definiert aus welcher die empfängeradresse je nach Kundenauftrags-Typ ausgelesen wird.
Im Kundenauftrag befinden sich Freigaben diverser Mitarbeiter. Wenn Freigegeben, sollen diese ebenfalls eine Kopie der Email erhalten. Problem ist: es kann vorkommen, dass nutzer doppelt sind.
Da die nutzer in ner DB eingetragen sind, vergleiche ich zuerst ob die Email adresse vorhanden ist, wenn nicht, trage ich in die Empfängerzeile den im Kundenauftrag hinterlegten Namen ein, was i.d.R. meißt der Fall ist. Nun folgendes Problem: die Email adressen aus dem XML Verteiler können auch Kundenaufträge freigeben, d.h. diese können durchaus doppelt erscheinen. Genau das will ich unterbinden und wollte hier einen ContainsStr aufsetzen. Das sieht folgendermaßen aus:

Delphi-Quellcode:

if ContainsStr(AnsiString(moduleConfiguration.GetValue(VERTEILER_KEY_RA, '')),TrimRight(_dataSet_AuftraegeFlg.FieldByName('cfrei_v').AsAnsiString)) then
                    begin
                        //keine aktion
                    end
                    else
                    begin[...]

Da ContainsStr nur mit AnsiStrings funktioniert, muss ich beide umwandeln. bei der Umwandlung des Variants in einen AnsiString, wirft er mir nun aber eine Zugriffsverletzung. Weiter oben benutz ich dabei ebenfalls GetValue, wandel das ganze nur in einen string um. ohne AnsiString umwandlung, lässt sich das gute stück garnicht compilen.

Sitz wie immer ratlos hier, würd mich über hilfe freuen.


gruß
alphanum

[himitsu]

Was für eine Zugriffsverletzung? (der Fehlertext)

Also GetValue liefert einen Variant ... sicher daß in dem Variant auch ein String vorhanden ist
oder etwas, welches in einen String umgewandelt werden kann?

[alphanumeric]

'Zugriffsverletzung bei Adresse 007F4769 in Modul 'KundenauftragReportDLL.dll'. Lesen von Adresse 00000004'. Prozess TestApplication.exe (2572)


ja bin mir sicher, schließlich nutze ich den string, weiter oben schonmal mit dem gleichen aufruf, nur dass ich den zu string wandle anstatt nem ansistring.

[himitsu]

hmmm, hast du es dort auch mal mit String probiert?

Delphi sollte die Umwandlung String > AnsiString auch autoatisch hinbekommen.
Und im Notfall könnte man auch mehrmals umwandeln
AnsiString(String(moduleConfiguration.GetValue(VERTEILER_KEY_RA, '')))

[alphanumeric]

ja mit string hab ichs auch probiert, dabei kam folgendes raus:

[DCC Fehler] KundenauftragReportDruck.pas(1624): E1058 Implizite String-Umwandlung mit potenziellem Datenverlust von 'string' zu 'AnsiString'


die doppelte umwandlung hab ich auch versucht, also erst zu string und dann zu ansi, da krieg ich dann wieder die Zugriffsverletzung.

[himitsu]

Dieser "Fehler" ist egal, da es so oder so zu einem Datenverlust kommen kann.
Nur daß du bei expliziter Typumbandlung dieses provozierst und deswegen diese Meldung nicht mehr angezeigt wird.
(der Datenverlußt bezieht sich auf Unicodezeichen, welche nicht in den ANSI-Zeichenvorrat reinpassen)

Zitat:

ja mit string hab ichs auch probiert, dabei kam folgendes raus:

Das stört jetzt erstmal nicht.
Die Frage war ja mehr: Kommt es da auch zu soeiner Zugriffsverletzung?


Wenn ja, dann:
Bist du dir sicher, daß es an diesem Codeteil liegt und nicht an was Anderem?

[alphanumeric]

RecipientsString.Append(string(moduleConfiguration .GetValue(VERTEILER_KEY_RA, '')));

das funktioniert, das hab ich weiter oben schon.

in meiner XML datei stehen email adresse, der verteiler_key steht für den string, welcher die email bezeichnet innerhalb der xml.

wenn ich das mit string probiere, kompiliert er nicht, also kann ich folglich auch keine zugriffsverletzung kriegen.


100% sicher bin ich mir auch nicht, das is halt das einzige was ich neu reingeschrieben habe, quasi code erweitert

[alphanumeric]

ich bin total die pflaume, ich seh grad dass ich moduleConfiguration weiter oben freigebe. kein wunder warum da ne exception aufplopt

[himitsu]

*hust*