Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - Gibt es eine Funktion die das gegenteil von QuotedStr macht?
Andi1982 - Do 29.05.03 17:24
Titel: Gibt es eine Funktion die das gegenteil von QuotedStr macht?
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
yukon-troll - Do 29.05.03 20:06
Hallo,
wie wäre es mit folgendem
Quelltext
1:
2:
| s1 := QuotedStr('blabla');
s2 := MidStr(s1, 2, Length(s1)-2); |
Nachtrag:
oder wenn du es als Funktion brauchst:
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 - Do 29.05.03 22:30
QuotedStr() ergänzt imho auch innerhalb von Strings die netten <'>.
warum nich so:
Quelltext
1:
2:
| while pos('''',S)>0 do
delete(S,Pos('''',S),1); |
grez
msch
yukon-troll - Fr 30.05.03 09:52
@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 - Fr 30.05.03 16:27
Hab ne viel bessere lösung gefunden:
Quelltext
1:
| Variable := AnsiDequotedStr(InsPfad,'''') |
Funktioniert perfekt!!
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!