Entfernen von Chars aus einem String

[bernhard_LA]

ich habe eine Funktion zum Entfernen einzelner Zeichen aus einem String.
Diese Zeichen übergebe ich als TSysCharSet = set of AnsiChar;


Ein Aufruf

Delphi-Quellcode:

DeleteCharsFromString('$test,test.67', ['$', ','])

funktioniert auch prima, wie übergebe ich das Anführungszeichen eines Strings an diese Funktion ????

Delphi-Quellcode:

DeleteCharsFromString('$t'e'st,test.67', [''''])

sollte mir die Anführungszeichen im einem String löschen, geht aber nicht ....

:(

[himitsu]

Was heißt "geht aber nicht"?

Delphi-Quellcode:

DeleteCharsFromString('$t''e''st,test.67', [''''])

<= korrekte Syntax

[bernhard_LA]

im Debugger habe ich folgenden Startwert :

tempStr -> '''WERT1'',''WERT2''';

Delphi-Quellcode:

tempstr := ..... ;
DeleteCharsFromString(TEMPSTR, ['''']);
bla :=tempstr;

im Debugger habe ich folgenden Endwert :
tempStr -> '''WERT1'',''WERT2'''

keine Änderung ....

[DeddyH]

Reden wir vom doppelten Anführungszeichen (") oder vom Hochkomma bzw. einfachen Anführungszeichen (')?

[himitsu]

Geht es um das Zerlegen in Einzelstrings?

Delphi-Quellcode:

SL.DelimitedText := '"WERT1","WERT2"';

mit

Delphi-Quellcode:

SL.StrictDelimiter := True;

liefert

Delphi-Quellcode:

SL[0] = 'WERT1'

und

Delphi-Quellcode:

SL[1] = 'WERT2'

.

Mit doppeltem ".

Zitat:

im Debugger habe ich folgenden Startwert

Sicher?
Rechtsklick > Wert kopieren

[bernhard_LA]

Vom Anführungszeichen, tempstr wird wie folgt erzeugt

Delphi-Quellcode:

tempstr := QuotedStr('WERTA') +  QuotedStr('WERTB');

[Neutral General]

Ist DeleteCharsFromString eine Funktion oder eine Procedure mit var-Parameter? in deinem ersten Beitrag sieht es ein bisschen nach Funktion aus. Und in dem Fall ist es logisch dass:

Delphi-Quellcode:

tempstr := ..... ;
DeleteCharsFromString(TEMPSTR, ['''']);
bla :=tempstr;

nicht funktioniert.

[bernhard_LA]

Danke, Problem gelöst;

war mein Fehler es handelt sich um eine Funktion ......



:wink: