Discussion :

[microJaP]

, j'ai quelque soucis avec un TStrings.
A l'aide d'une boucle j'ajoute mes données (string + objet). L'objet est aussi un string. Cela semblent fonctionner à la création du TString.

Mais j'ai des problème à la restitution de mes objets !

Le code d'insertion

Code :

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

1
2
3
4
5
6
      with FListeTables do
      begin
        AFile := (DossFileBDD + UnParam + XML_extension);
        AddObject(UnParam, TObject(AFile));
//        AddObject(UnParam, pointer(AFile))  ==> même résultats
      end;

Le code de restitution

Code :

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

1
2
3
4
5
6
7
      for x := 0 to NbrParams - 1 do
      begin
        AFile := (string(FListeTables.Objects[x]));
        ShowMessage(AFile);
        ListeParams.Add(AFile);
      end;
      ShowMessage(ListeParams.Text);

Certaines données me sont bien restituées, d'autres en faisant le pas à pas, en pointant sur la variable AFile, il y a un tas de données dans la variable et j'ai un plantage.
D'autres la valeur "Test" du TStrings est correcte.

D'avance merci !
microJaP

[ShaiLeTroll]

Normal, la gestion des strings est très spécial, il y a différente méthode, certaines ne fonctionne que dans des contextes restreints, pour ma part, je préfère faire un nouveau PString ou un record contenant une string, ou mon propre objet TObjectString

Lorsque tu sors de la fonction, il libère normalement la chaine, je ne crois qu'il comprend que tu souhaite conserver son pointeur ...

tient essaye ce code, si il ne plante pas, tu vas voir un drôle d'effet, eh oui, cela ne renvoi que la dernière valeur à 100 ...

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
procedure TFrmTestMemory.BtnStringListObjectStringClick(Sender: TObject);
var
   TmpList: TStringList;
   TmpStr, TmpObj: String;
   i : Integer;
begin
     TmpList:= TStringList.Create();
     try
        for i := 0 to 100 do begin
            TmpStr := 'Toto a ' + IntToStr(i);
            TmpObj := 'Je suis l''Objet ' + IntToStr(i);
            TmpList.Objects[TmpList.Add(TmpStr)] := Pointer(TmpObj);
        end;
        MemoStrings.Lines.Clear();
        MemoObjects.Lines.Clear();
        for i := 0 to TmpList.Count - 1 do begin
            MemoStrings.Lines.Add(TmpList.Strings[i]);
            MemoObjects.Lines.Add(String(Pointer(TmpList.Objects[i])));
        end;
     finally
            TmpList.Free();
     end;
end;

Tient dans ce sujet, j'avais fait la classe TCPVilleList, tu pourrais en reprendre l'idée ... pour la manipulation du PString avec NewStr, normalement c'est obselète, mais certains n'ont pas de problème avec leur pointeur de chaine, avec mes algos sans NewStr, cela n'a jamais fonctionné correctement ... !


.

[sjrd]

Sauf en admettant que tu saches exactement comment fonctionnent les string (et visiblement ce n'est pas encore le cas), tu ne dois jamais transtyper une variable string ! (sauf en PChar, car c'est prévu pour).

Comme l'a dit ShailLeTroll, la bonne façon de faire est d'utiliser un objet de type TObjectString qu'on peut écrire en 30 secondes comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
type
  TObjectString = class
  private
    FValue: string;
  public
    constructor Create(const AValue: string = '');
    property Value: string read FValue write FValue;
  end;
 
constructor TObjectString.Create(const AValue: string = '');
begin
  inherited Create;
  FValue := AValue;
end;

Tu peux aussi utiliser un record et utiliser New et Dispose (surtout pas GetMem/FreeMem !) :

Code :

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

1
2
3
4
5
type
  PStrRecord = ^TStrRecord;
  TStrRecord = record
    Value: string;
  end;

[ShaiLeTroll]

Srjd, je n'ai pas retrouvé dans le forum du sujet traitant de string mis en objet d'une tString, ou comme data d'un TreeView ... mais certains ne se fatiguait pas à faire de nouvelle chaine via un objet ou record, il cela semblait marcher (comment je ne sais pas, mais il y arrivait ...)

Il ne faudra pas oublier de parcourir la TStringList pour faire un Free sur chaque Object (ou alors avoir un TObjectList interne à TObjectString pour servir de garbage collector)

[Cl@udius]

Salut

Srjd, je n'ai pas retrouvé dans le forum du sujet traitant de string mis en objet d'une tString, ou comme data d'un TreeView ...

J'avais proposé quelque chose d'approchant ici, où, comme tu le fais remarquer, je veillais à libérer les objets.

@+ Claudius

[ShaiLeTroll]

Cl@udius, je ne parlais pas d'encapsulation d'un string en object, mais d'un AddObject('Toto', Pointer(S)); directement et qui fonctionne (ce que je ne comprend pas !)

Sjrd, oui, le PString, c'est retord, et normalement c'est obselète

Non, j'ai vu plusieurs fois, ici ou sur Phidels, des exemples de AddObject, ajoutant directement la string sans faire d'objet, de new, ... et cela fonctionnait, alors que cela me semble impossible, où alors, il devait transtyper en PChar, ... faut que je teste j'ai vu cela, et je me l'explique pas, par contre, je pense que les fuites mémoires devait être énormes !

[sjrd]

mais certains ne se fatiguait pas à faire de nouvelle chaine via un objet ou record, il cela semblait marcher (comment je ne sais pas, mais il y arrivait ...)

Oui il est aussi possible d'utiliser un pointeur PString, comme tu l'as laissé entendre dans ta première réponse, avec New et Dispose aussi. Simplement, je trouve cela plus déroutant pour un débutant. Déjà qu'on dit qu'une string c'est un pointeur sur des données, alors un PString c'est un pointeur sur un pointeur : tout le monde n'appréhende pas toujours très bien cela. Mais ça marche très bien aussi.