Ir al contenido


Foto

[TRUCO DELPHI] Algunas rutinas para crear archivos HTML.


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 10 diciembre 2016 - 04:45

[TRUCO DELPHI] Algunas rutinas para crear archivos HTML.


delphi
  1. function SpacesToPluses(Str: String): String;
  2. Var
  3. i: Integer;
  4. begin
  5. For i := 1 To Length(Str) Do
  6. begin
  7. If Str[i] = #32 Then
  8. Str[i] := '+';
  9. end;
  10. Result := Str;
  11. end;
  12.  
  13. function AddQuotes(Const Str: String): String;
  14. begin
  15. Result := Format('"%s"', [Str]);
  16. end;
  17.  
  18. function MakeBold(Const Str: String): String;
  19. begin
  20. Result := Format('<b>%s&</b>', [Str]);
  21. end;
  22.  
  23. function MakeItalic(Const Str: String): String;
  24. begin
  25. Result := Format('<i>%s</i>', [Str]);
  26. end;
  27.  
  28. function MakeMailTo(Address, Name, Subject: String): String;
  29. begin
  30. If Subject > '' Then
  31. Address := Address + '?Subject=' + Subject;
  32. Result := Format('<a href="mailto:%s">%s</a>', [Address, Name]);
  33. end;
  34.  
  35. function MakeLink(Const URL, Name: String): String;
  36. begin
  37. Result := Format('<a href=%s>%s</a>', [AddQuotes(URL), Name]);
  38. end;
  39.  
  40. function MakeHTMLParam(Const Str: String): String;
  41. begin
  42. Result := AddQuotes(SpacesToPluses(Str));
  43. end;

Saludos!


  • 2




IP.Board spam blocked by CleanTalk.