Discussion :

[colorid]

Bonjour,

Avec le code suivant

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
 
var
  k,i: Integer;
  Refl,St03: TStrings;
  St1,St2: AnsiString;
  ReflStream,St03Stream: TStringStream;
begin
    Refl:= TStringList.Create;
    St03:= TStringList.Create;
    try
      St1:= '';
      for k := 0 to Rec.NbPatches - 1 do
      begin
        St1:= St1+Rec.ReflTab[k].Name+';';
        St2:= '';
        for i := 0 to 35 do St2:= St2+FloatToStrF(Rec.ReflTab[k].Refl[i],ffFixed,5,3)+';';
        Refl.Add(St2);
      end;
      St03.Add(St1);
      St03Stream:= tStringStream.Create(St03);
      ReflStream:= tStringStream.Create(Refl);
    finally
      Refl.Free;
      St03.Free;
    end;
end;

J'obtiens l'erreur E2010 Types incompatibles 'string' et 'tstrings'

Je croyais (sans doute à tord) que l'argument de tStringStream.Create était un Tstrings...

Il s'agit de très grosses données Refl est de l'ordre de 76,6 Ko et St03 de l'ordre de 1,2 Ko

La raison d'utiliser les TStringStream c'est de pouvoir initialiser une IBQuery du type :
ParamByName(MON_CHAMP).LoadFromStream(MON_STRINGSTREAM, ftMemo);

Quelqu'un peut-il me dépaner ?

[edam]

peut être

Code :

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

1
2
St03Stream:= tStringStream.Create(St03.text);
      ReflStream:= tStringStream.Create(Refl.text);

[colorid]

Puisque les StringStream n'accepte que des string j'ai supprimé totalement les Tstrings et je les au)i remplacé par des ansiString que j'initialise comme des tstrins avec des retour chariot à la fin de chaque ligne...

Et ca marche, je veux dire que je n'ai aucune erreur de compilation, mais problème, au premier essai la table reste vide ! Je vais fouillé.. C'est sans doute une mauvaise iniy=tialisation des variables passées.

Je ne vois plus très clair je verai cela demain matin...

A+ peut-être

[edam]

pourquoi tu casse ta téte, tu peut expliqué ton probléme
il y a TClientdataset

[colorid]

En utilisant des blob text et en les remplissant avec des StringStream argumentés avec un AnsiString c'est Ok

Merci à tous