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;

[macumba]

Petit conseil pour la clarté du code :

Code :

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

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

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

Code :

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

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 :

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

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 :

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

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