Thema
:
Delphi
HTML in Text umwandeln
Einzelnen Beitrag anzeigen
himitsu
Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
Delphi 12 Athens
#
4
Re: HTML in Text umwandeln
28. Feb 2004, 22:19
zusammenfalten
·
markieren
Delphi-Quellcode:
Function
INetString(INS:
String
):
String
;
Var
INi: Integer;
INS2:
String
;
Begin
Result := '
';
For
INi := 1
to
Length(INS)
do
Begin
Case
Ord(INS[INi])
of
0..31: INS2 := '
';
34: INS2 := '
"
';
{ " Anführungszeichen oben }
38: INS2 := '
&
';
{ & Ampersand-Zeichen, kaufmännisches Und }
60: INS2 := '
<
';
{ < öffnende spitze Klammer }
62: INS2 := '
>
';
{ > schließende spitze Klammer }
160: INS2 := '
';
{ Erzwungenes Leerzeichen }
161: INS2 := '
¡
';
{ ¡ umgekehrtes Ausrufezeichen }
162: INS2 := '
¢
';
{ ¢ Cent-Zeichen }
163: INS2 := '
£
';
{ £ Pfund-Zeichen }
164: INS2 := '
¤
';
{ ¤ Währungs-Zeichen }
165: INS2 := '
¥
';
{ ¥ Yen-Zeichen }
166: INS2 := '
¦
';
{ ¦ durchbrochener Strich }
167: INS2 := '
§
';
{ § Paragraph-Zeichen }
168: INS2 := '
&
uml
;
';
{ ¨ Pünktchen oben }
169: INS2 := '
©
';
{ © Copyright-Zeichen }
170: INS2 := '
ª
';
{ ª Ordinal-Zeichen weiblich }
171: INS2 := '
«
';
{ « angewinkelte Anführungszeichen links }
172: INS2 := '
¬
';
{ ¬ Verneinungs-Zeichen }
173: INS2 := '
­
';
{ * kurzer Trennstrich }
174: INS2 := '
®
';
{ ® Registriermarke-Zeichen }
175: INS2 := '
¯
';
{ ¯ Überstrich }
176: INS2 := '
°
';
{ ° Grad-Zeichen }
177: INS2 := '
±
';
{ ± Plusminus-Zeichen }
178: INS2 := '
²
';
{ ² Hoch-2-Zeichen }
179: INS2 := '
³
';
{ ³ Hoch-3-Zeichen }
180: INS2 := '
´
';
{ ´ Acute-Zeichen }
181: INS2 := '
µ
';
{ µ Mikro-Zeichen }
182: INS2 := '
¶
';
{ ¶ Absatz-Zeichen }
183: INS2 := '
·
';
{ · Mittelpunkt }
184: INS2 := '
¸
';
{ ¸ Häkchen unten }
185: INS2 := '
¹
';
{ ¹ Hoch-1-Zeichen }
186: INS2 := '
º
';
{ º Ordinal-Zeichen männlich }
187: INS2 := '
»
';
{ » angewinkelte Anführungszeichen rechts }
188: INS2 := '
¼
';
{ ¼ ein Viertel }
189: INS2 := '
½
';
{ ½ ein Halb }
190: INS2 := '
¾
';
{ ¾ drei Viertel }
191: INS2 := '
¿
';
{ ¿ umgekehrtes Fragezeichen }
192: INS2 := '
À
';
{ À A mit Accent grave }
193: INS2 := '
Á
';
{ Á A mit Accent acute }
194: INS2 := '
Â
';
{ Â A mit Circumflex }
195: INS2 := '
Ã
';
{ Ã A mit Tilde }
196: INS2 := '
Ä
';
{ Ä A Umlaut }
197: INS2 := '
Å
';
{ Å A mit Ring }
198: INS2 := '
Æ
';
{ Æ A mit legiertem E }
199: INS2 := '
Ç
';
{ Ç C mit Häkchen }
200: INS2 := '
È
';
{ È E mit Accent grave }
201: INS2 := '
É
';
{ É E mit Accent acute }
202: INS2 := '
Ê
';
{ Ê E mit Circumflex }
203: INS2 := '
Ë
';
{ Ë E Umlaut }
204: INS2 := '
Ì
';
{ Ì I mit Accent grave }
205: INS2 := '
Í
';
{ Í I mit Accent acute }
206: INS2 := '
Î
';
{ Î I mit Circumflex }
207: INS2 := '
Ï
';
{ Ï I Umlaut }
208: INS2 := '
Ð
';
{ Ð Eth (isländisch) }
209: INS2 := '
Ñ
';
{ Ñ N mit Tilde }
210: INS2 := '
Ò
';
{ Ò O mit Accent grave }
211: INS2 := '
Ó
';
{ Ó O mit Accent acute }
212: INS2 := '
Ô
';
{ Ô O mit Circumflex }
213: INS2 := '
Õ
';
{ Õ O mit Tilde }
214: INS2 := '
Ö
';
{ Ö O Umlaut }
215: INS2 := '
×
';
{ × Mal-Zeichen }
216: INS2 := '
Ø
';
{ Ø O mit Schrägstrich }
217: INS2 := '
Ù
';
{ Ù U mit Accent grave }
218: INS2 := '
Ú
';
{ Ú U mit Accent acute }
219: INS2 := '
Û
';
{ Û U mit Circumflex }
220: INS2 := '
Ü
';
{ Ü U Umlaut }
221: INS2 := '
Ý
';
{ Ý Y mit Accent acute }
222: INS2 := '
Þ
';
{ Þ THORN (isländisch) }
223: INS2 := '
ß
';
{ ß scharfes S }
224: INS2 := '
à
';
{ à a mit Accent grave }
225: INS2 := '
á
';
{ á a mit Accent acute }
226: INS2 := '
â
';
{ â a mit Circumflex }
227: INS2 := '
ã
';
{ ã a mit Tilde }
228: INS2 := '
ä
';
{ ä a Umlaut }
229: INS2 := '
å
';
{ å a mit Ring }
230: INS2 := '
æ
';
{ æ a mit legiertem e }
231: INS2 := '
ç
';
{ ç c mit Häkchen }
232: INS2 := '
è
';
{ è e mit Accent grave }
233: INS2 := '
é
';
{ é e mit Accent acute }
234: INS2 := '
ê
';
{ ê e mit Circumflex }
235: INS2 := '
ë
';
{ ë e Umlaut }
236: INS2 := '
ì
';
{ ì i mit Accent grave }
237: INS2 := '
í
';
{ í i mit Accent acute }
238: INS2 := '
î
';
{ î i mit Circumflex }
239: INS2 := '
ï
';
{ ï i Umlaut }
240: INS2 := '
ð
';
{ ð eth (isländisch) }
241: INS2 := '
ñ
';
{ ñ n mit Tilde }
242: INS2 := '
ò
';
{ ò o mit Accent grave }
243: INS2 := '
ó
';
{ ó o mit Accent acute }
244: INS2 := '
ô
';
{ ô o mit Circumflex }
245: INS2 := '
õ
';
{ õ o mit Tilde }
246: INS2 := '
ö
';
{ ö o Umlaut }
247: INS2 := '
÷
';
{ ÷ Divisions-Zeichen }
248: INS2 := '
ø
';
{ ø o mit Schrägstrich }
249: INS2 := '
ù
';
{ ù u mit Accent grave }
250: INS2 := '
ú
';
{ ú u mit Accent acute }
251: INS2 := '
û
';
{ û u mit Circumflex }
252: INS2 := '
ü
';
{ ü u Umlaut }
253: INS2 := '
ý
';
{ ý y mit Accent acute }
254: INS2 := '
þ
';
{ þ thorn (isländisch) }
255: INS2 := '
ÿ
';
{ ÿ y Umlaut }
Else
INS2 := INS[INi];
End
;
Result := Result + INS2;
End
;
End
;
$2B or not $2B
Zitat
himitsu
Öffentliches Profil ansehen
Besuche die Homepage von himitsu!
Mehr Beiträge von himitsu finden