Du HTML dans Delphi !

Version imprimable

07/06/2007, 10h16
secretman

Du HTML dans Delphi !
Il faut que j'intègre du code HTML dans mes lignes delphi.
Toute la difficulté viens des guillements (guillemets ou simple cotes) en tre le HTML et la syntaxte Delphi !

Si vous pouviez me montrer la voie avec cette ligne extraite de la fonction GetHtmlFromListView qui renvoie une chaine de caractère avec le code HTML.
Code:

1 2 3 4 function GetHtmlFromListView(LV : TListView) : String; GetHtmlFromListView := "<TABLE WIDTH=""95%"" BORDER=""1"" BORDERCOLORLIGHT=""#CCCCCC"" BORDERCOLORDARK=""#66CCFF"">" & CrLf
Merci.
07/06/2007, 10h26
gb_68

Bonjour

pour afficher des guillements il suffit de les doubler ( '' rend le charactère ' dans la string )

Code:

ShowMessage(' bla bla ''voici un texte entre guillements'' bla bla');

donne : bla bla 'voici un texte entre guillements' bla bla

c.f. : :faq: http://delphi.developpez.com/faq/?pa...#insrerapostro
07/06/2007, 10h41
Rayek
Citation:

Envoyé par gb_68

Bonjour

pour afficher des guillements il suffit de les doubler ( '' rend le charactère ' dans la string )

Code:

ShowMessage(' bla bla ''voici un texte entre guillements'' bla bla');

donne : bla bla 'voici un texte entre guillements' bla bla

c.f. : :faq: http://delphi.developpez.com/faq/?pa...#insrerapostro

Non, la tu viens de mettre du texte entre quote ' et pas guillement "

Au vu du code du premier post , il faudrait écrire de la manière suivante :
Code:

1 2 3 4 function GetHtmlFromListView(LV : TListView) : String; GetHtmlFromListView := '<TABLE WIDTH="95%" BORDER="1" BORDERCOLORLIGHT="#CCCCCC" BORDERCOLORDARK="#66CCFF">' + #13#10
07/06/2007, 11h08
secretman
Merci ca marche pour les guillemets !
J'ai une erreur sur cette ligne :
[Erreur] Unit2.pas : Pas assez de paramètres originaux
Code:

1 2 GetHtmlFromListView := GetHtmlFromListView + ' <TR GCOLOR="#CCCCFF">' + CrLf;
Et si je met GetHtmlFromListView(Form1.ListView1), il me trouve pas le listview1 qui est sur le Form1 (Unit1). J'ai pourtant déclaré le Unit2 dans le uses du TForm1.
07/06/2007, 11h25
Rayek

Tu veux faire quoi exactement ?
Peux tu monter le code complet ? Ca aiderai beaucoup.

oui voila. C'est du code VB que je tente de traduire en Delphi

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
function GetHtmlFromListView(LV : TListView) : String;
var
    NewColumn    : TListColumn;
    ListItem     : TListItem;
    i, J         : Integer;
    sTemp        : string;
const
    CrLf = #13#10;
begin
//Ligne déjà traduite en Delphi :
     GetHtmlFromListView := '<TABLE  WIDTH="95%" BORDER="1" BORDERCOLORLIGHT="#CCCCCC"  BORDERCOLORDARK="#66CCFF">' + CrLf;
 
    { headers }
    GetHtmlFromListView := GetHtmlFromListView + '  <TR BGCOLOR="#CCCCFF">' + CrLf; //==> ERREUR : Pas assez de paramètres originaux !
 
    For i = 1 To LV.ColumnHeaders.Count
        GetHtmlFromListView = GetHtmlFromListView & "    <TD><FONT FACE=""Tahoma""  SIZE=""3""><B>" & LV.ColumnHeaders(i).Text & "</B></FONT></TD>" & vbCrLf
    Next i
    GetHtmlFromListView = GetHtmlFromListView & "  </TR>" & vbCrLf
}
    { data }
{    For i = 1 To LV.ListItems.Count
        GetHtmlFromListView = GetHtmlFromListView & "  <TR>" & vbCrLf
        GetHtmlFromListView = GetHtmlFromListView & "    <TD><FONT FACE=""Tahoma""  SIZE=""2"">" & LV.ListItems(i).Text & "</FONT></TD>" & vbCrLf
        For j = 1 To LV.ColumnHeaders.Count - 1
            sTemp = LV.ListItems(i).SubItems(j)
            If LenB(sTemp) = 0 Then sTemp = "&nbsp;"
            sTemp = Replace(sTemp, "<", "&lt;")
            sTemp = Replace(sTemp, ">", "&gt;")
            GetHtmlFromListView = GetHtmlFromListView & "    <TD><FONT FACE=""Tahoma""  SIZE=""2"">" & sTemp & "</FONT></TD>" & vbCrLf
        Next j
        GetHtmlFromListView = GetHtmlFromListView & "  </TR>" & vbCrLf
    Next i
 
'    fin
    GetHtmlFromListView = GetHtmlFromListView  & "</TABLE>" & vbCrLf    }
end;

07/06/2007, 19h43
macumba

Petit conseil pour la clarté du code :

Code:

GetHtmlFromListView := '<TABLE WIDTH="95%" BORDER="1" BORDERCOLORLIGHT="#CCCCCC" BORDERCOLORDARK="#66CCFF">' + CrLf;

Serait plus lisible et plus compréhensible de cette manière :

Code:

Result := '<TABLE WIDTH="95%" BORDER="1" BORDERCOLORLIGHT="#CCCCCC" BORDERCOLORDARK="#66CCFF">' + CrLf;

La syntaxe que tu utilises est une vieille syntaxe qu'on utilisait en turbo pascal dans les années 1980, début 1990. Bon je sais ca résoud pas ton pb mais ca fait belle lurette que je ne vois plus cette écriture. ;)

Donc du coup je viens de comprendre ton pb c'est qu'il te manque un paramètre à l'appel de ta fonction dans l'affectation...

Code:

Result := GetHtmlFromListView(Variable) + ' <TR BGCOLOR="#CCCCFF">' + CrLf; //==> ERREUR : Pas assez de paramètres originaux !

Après la logique de ce que fait ce bout de code m'échappe un peu...

Je pense plutot que tu dois faire ca :

Code:

Result := Result+ ' <TR BGCOLOR="#CCCCFF">' + CrLf; //==> ERREUR : Pas assez de paramètres originaux !