Differenze tra le versioni di "FcStrPlus ()"

Da Gambas-it.org - Wikipedia.
 
Riga 6: Riga 6:
 
Volendola utilizzare in Gambas, bisognerà dichiararla con Extern, nonché bisognerà dichiarare la libreria: ''libfontconfig.so.1.6.2'', nella quale la funzione è contenuta:  
 
Volendola utilizzare in Gambas, bisognerà dichiararla con Extern, nonché bisognerà dichiarare la libreria: ''libfontconfig.so.1.6.2'', nella quale la funzione è contenuta:  
 
  Private <FONT color=#B22222>Extern FcStrPlus</font>(s1$ As String, s2$ As String) As String In "<FONT color=#B22222>libfontconfig:1.6.2</font>"
 
  Private <FONT color=#B22222>Extern FcStrPlus</font>(s1$ As String, s2$ As String) As String In "<FONT color=#B22222>libfontconfig:1.6.2</font>"
 
 
 
 
Semplice esempio di uso in Gambas:
 
Semplice esempio di uso in Gambas:
 
  <FONT color=Gray>' ''FcChar8 * FcStrPlus(const FcChar8 *s1, const FcChar8 *s2)''</font>
 
  <FONT color=Gray>' ''FcChar8 * FcStrPlus(const FcChar8 *s1, const FcChar8 *s2)''</font>
  '''Private''' <FONT color=#B22222>Extern FcStrPlus</font>(s1$ As String, s2$ As String) As String In "<FONT color=#B22222>libfontconfig:1.6.2</font>"
+
  Private <FONT color=#B22222>Extern FcStrPlus</font>(s1$ As String, s2$ As String) As String In "<FONT color=#B22222>libfontconfig:1.6.2</font>"
 
   
 
   
 
   
 
   
  '''Public''' Sub Button1_Click()
+
  Public Sub Button1_Click()
 
   
 
   
 
   Dim s1, s2, ris As String
 
   Dim s1, s2, ris As String
 
 
 
   
 
   
    s1 = "gat"
+
  s1 = "gat"
    s2 = "to"
+
  s2 = "to"
 
      
 
      
      ris = FcStrPlus(s1, s2)
+
  ris = FcStrPlus(s1, s2)
 
        
 
        
    Print ris
+
  Print ris
 
+
  '''End'''
+
  End

Versione attuale delle 16:06, 14 giu 2024

La funzione

FcChar8 * FcStrPlus(const FcChar8 *s1, const FcChar8 *s2)

concatena due stringhe ritornando così un'unica stringa.


Volendola utilizzare in Gambas, bisognerà dichiararla con Extern, nonché bisognerà dichiarare la libreria: libfontconfig.so.1.6.2, nella quale la funzione è contenuta:

Private Extern FcStrPlus(s1$ As String, s2$ As String) As String In "libfontconfig:1.6.2"

Semplice esempio di uso in Gambas:

' FcChar8 * FcStrPlus(const FcChar8 *s1, const FcChar8 *s2)
Private Extern FcStrPlus(s1$ As String, s2$ As String) As String In "libfontconfig:1.6.2"


Public Sub Button1_Click()

 Dim s1, s2, ris As String

 s1 = "gat"
 s2 = "to"
   
 ris = FcStrPlus(s1, s2)
     
 Print ris

End