Discussion :

[secretman]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
function GetHtmlFromListView(LV : TListView) : String;
 
GetHtmlFromListView := "<TABLE  WIDTH=""95%"" BORDER=""1"" BORDERCOLORLIGHT=""#CCCCCC""  BORDERCOLORDARK=""#66CCFF"">" & CrLf

Merci.

[gb_68]

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

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

[Rayek]

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

c.f. : 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
function GetHtmlFromListView(LV : TListView) : String;
 
GetHtmlFromListView := '<TABLE  WIDTH="95%" BORDER="1" BORDERCOLORLIGHT="#CCCCCC"  BORDERCOLORDARK="#66CCFF">' + #13#10

[secretman]

Merci ca marche pour les guillemets !
J'ai une erreur sur cette ligne :
[Erreur] Unit2.pas : Pas assez de paramètres originaux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Rayek]

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

[secretman]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;