Transcription entre TabControl et XML

Version imprimable

09/08/2012, 07h38
PPFIS68240

Transcription entre TabControl et XML
Bonjour.
Je voudrais passer le nom d'un onglet d'un tabControl dans un élément XML:
Code:

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
09/08/2012, 09h18
tourlourou

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

Code:

Folio.FolioActif := UTF8ToUTF16(TabControl1.Tabs.Text);
09/08/2012, 09h45
PPFIS68240

1 pièce(s) jointe(s)

J'ai essayé, même résultat
avec comme message: le projet a levé une classe d'exeption 'EDOMEError'....
09/08/2012, 15h28
tourlourou

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

Code:

DOMString = WideString;

et donc, essaye :

Code:

Folio.FolioActif := UTF8Decode(TabControl1.Tabs.Text);
09/08/2012, 16h34
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.
09/08/2012, 17h32
tourlourou
Essaye :

Code:

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:

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

Dans tous les cas j'ai la même erreur.
10/08/2012, 13h00
tourlourou

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

Quel OS et quelle version de Lazarus utilises-tu ?

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

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
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;

10/08/2012, 19h48
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:

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é...
13/08/2012, 08h30
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.