Gibt es eine Funktion die das gegenteil von QuotedStr macht?

Andi1982 · Beiträge: 497 WinXP HE D6 Enterprise

Hallo,
ich habe mehrere Strings die ich mit QuotedStr() in Variablen gespeichert habe. Gibt es eine Funktion die genau das gegenteil macht??? Also die '' wieder wegmacht???

Gruß Andi

_________________
Solange die Bombe tickt ist alles in Ordnung, erst wenn sie damit aufhört wird es problematisch...

yukon-troll · Beiträge: 60

Hallo,

wie wäre es mit folgendem

markieren

Quelltext

1:
2:

s1 := QuotedStr('blabla');
s2 := MidStr(s1, 2, Length(s1)-2);

Nachtrag:
oder wenn du es als Funktion brauchst:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:

function TForm1.UnQuotedStr(s: string): string;
begin
  if (s[1] = #39) and (s[Length(s)] = #39) then
    Result := MidStr(Caption, 2, Length(Caption)-2)
  else
    Result := s;
end;

MfG yukon-troll

MSCH · Verfasst: Do 29.05.03 22:30

QuotedStr() ergänzt imho auch innerhalb von Strings die netten <'>.
warum nich so:

markieren

Quelltext

1:
2:

while pos('''',S)>0 do
  delete(S,Pos('''',S),1);

grez
msch

yukon-troll · Beiträge: 60

@MSCH

die Ergänzung innerhalb des String hatte ich völlig übersehen,
habs in meiner eigenen Funktionssammlung gleich noch geändert.
danke nochmal für den Hinweis.

MfG yukon-troll

Andi1982 · Beiträge: 497 WinXP HE D6 Enterprise

Hab ne viel bessere lösung gefunden:

markieren

Quelltext

1:	Variable := AnsiDequotedStr(InsPfad,'''')

Funktioniert perfekt!!

_________________
Solange die Bombe tickt ist alles in Ordnung, erst wenn sie damit aufhört wird es problematisch...

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme