Discussion :

[PPFIS68240]

Bonjour.
Je voudrais passer le nom d'un onglet d'un tabControl dans un élément XML:

Code :

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

1
2
3
4
Folio.FolioActif:= TabControl1.Tabs.Text; // (FolioActif de type String)
.....
ele:= doc.CreateElement(FolioActif);
 racine.AppendChild(ele);

Mais ça ne marche pas pour un problème de compatibilité de type. Il me faut un type DOMstring. Je ne trouve pas comment faire la transcription.

Merci de votre aide

[tourlourou]

DOMstring semble être une chaîne Unicode 16bits ; essaye :

Code :

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

Folio.FolioActif := UTF8ToUTF16(TabControl1.Tabs.Text);

[PPFIS68240]

J'ai essayé, même résultat
avec comme message: le projet a levé une classe d'exeption 'EDOMEError'....

[tourlourou]

si tu utilises l'unité dom.pas de Lazarus, la déclaration y est

Code :

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

DOMString = WideString;

et donc, essaye :

Code :

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

Folio.FolioActif := UTF8Decode(TabControl1.Tabs.Text);

[PPFIS68240]

J'ai essayé, le pb est toujours le même.
Quand j'utilise une simple variable de type String avec une valeur quelconque, ça marche. Le pb est dès que j'utilise TabControl1.Tabs.Text qui lui est du type TString.

[tourlourou]

Essaye :

Code :

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

Folio.FolioActif := UTF8Decode(UTF8Encode(TabControl1.Tabs.Text)); // en déclarant FolioActif de type WideString ou DOMString

Si TabControl1.Tabs.Text est de type AnsiString, il sera passé en UTF8 puis Unicode

Sinon, que donne le passage par une variable intermédiaire ?

Code :

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

1
2
S:=TabControl1.Tabs.Text; // même si le TStrings.Text est déjà de type string
Folio.FolioActif:=S;

[PPFIS68240]

Dans tous les cas j'ai la même erreur.

[tourlourou]

Merci de poster plus de code, avec les déclarations des variables, notamment.

Quel OS et quelle version de Lazarus utilises-tu ?

[PPFIS68240]

Version 1.0 RC1 (32) mais même pb avec version précédente
Voici plus de code:

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
39
40
41
42
43
Unit Dessin;
 
TDessin = class
  private
	FFolioActif: WideString;  
 
Public
property FolioActif: WideString read FFolioActif write FFolioActif; 
 
 
Constructor TDessin.Create;
begin
  Doc:= TXMLDocument.Create;
  racine:= Doc.CreateElement('PLAN');
  Doc.AppendChild(Racine);
end;     
 
 
procedure TDessin.EcireFolioXML;
Begin
  ele:= doc.CreateElement(FolioActif);
  racine.AppendChild(ele);
  ele.SetAttribute('Objet',TypeObjet);
end; 
 
{ ---------------------------------------------- }
 
unit Unit1; 
uses
 Dessin;
 
var
  Form1: TForm1;
  Folio: TDessin;   
 
procedure TForm1.MenuAjouteFolioClick(Sender: TObject);
Var
   NomTab: String;   
begin
  NomTab:= InputBox('Nouveau Folio','Nom du folio','SansNom');
  TabControl1.Tabs.Add(NomTab);
  Folio.FolioActi= TabControl1.Tabs.Text;
 end;

[tourlourou]

C'est amusant, et je ne comprends pas l'erreur : TTabControl.Tabs.Text est pourtant de type string, comme TTabControl.Tabs[i]...
Le code suivant fonctionne sous CodeTyphon 2.80 Lazarus 32 bits sous Seven 64 bits

Code :

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

1
2
  i:=TabControl1.Tabs.Add(NomTab);
  FolioActif:=TabControl1.Tabs[i];

Accessoirement, utiliser la propriété Tabs.Text revient à créer chaque nouveau folio avec pour nom l'ensemble de ceux présents dans les onglets, séparés par un sLineBreak au lieu du nom de l'onglet ajouté...

[PPFIS68240]

En faisant la modification proposée le problème est résolu.
Le pb venait donc de ".Text".
merci bien, je vais pouvoir continuer.