Discussion :

[qi130]

Bonjour,

Voici mon souci:
Dans 1 datamodule:

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
slDDL,slCS,slCRLF:TStringList;
...
function RemoveCRLF(input:TStringList):TStringList;
...
implementation
function RemoveCRLF(input:TStringList):TStringList;
var i:Integer;
    aTemp:string;
const crlf=#10;
begin
     slCRLF.Clear;
     for i := 0 to input.Count - 1 do begin
         aTemp:=input.Strings[i];
         if Pos(crlf,aTemp)<>0 then
            while Pos(crlf,aTemp)<>0 do begin
                slCRLF.Add(LeftStr(aTemp,Pos(crlf,aTemp)-1));
                Delete(aTemp,1,Pos(crlf,aTemp));
 
            end;
         slCRLF.Add(aTemp);
     end;
     Result:=slCRLF;
end;  
...
initialization
  ...
  slDDL:=TStringList.Create;
  slCS:=TStringList.Create;
  slCRLF:=TStringList.Create;
 
finalization
  slDDL.Free;
  slCS.Free;
  if Assigned(slCRLF) then slCRLF.Free;
end.

J'ai déjà un doute sur la validité de l'argument et le resultat (tstringlist) de cette fonction.
Bref.
J'appelle cette fonction

Code :

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

slDDL:=RemoveCRLF(slDDL);

Lors du 1er appel, l'ensemble fonctionne selon mes désirs.
Mais au 2nd appel, la stringlist input est ok jusqu'au moment du clear de slCRLF
Dès lors, input est vide, mais aussi slDDL

Quelqu'un voit-il l'origine du problème ?

C'est d'ailleurs cette bizarrerie qui m'a conduit à libérer sous condition slCRLF

[Nono40]

Tu peux nous donner le code qui appèle cette fonction ?

Essaye :

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
procedure RemoveCRLF(input:TStringList;Dest:TStringList);
var i:Integer;
    aTemp:string;
const crlf=#10;
begin
     Dest.Clear;
     for i := 0 to input.Count - 1 do begin
         aTemp:=input.Strings[i];
         if Pos(crlf,aTemp)<>0 then
            while Pos(crlf,aTemp)<>0 do begin
                Dest.Add(LeftStr(aTemp,Pos(crlf,aTemp)-1));
                Delete(aTemp,1,Pos(crlf,aTemp));
 
            end;
         Dest.Add(aTemp);
     end;
end;

En passant slCRLF en paramètre pour Dest.

[qi130]

Tu peux nous donner le code qui appèle cette fonction ?

Cf. supra

Code :

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

slDDL:=RemoveCRLF(slDDL);

Désires-tu plus de détails ?

Ne faut-il pas coder

Code :

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

procedure RemoveCRLF(input:TStringList;VAR Dest:TStringList);

[qi130]

Bon, merci NoNo

La solution a base de procedure fonctionne à tous les coups.

Le pourquoi de ma soluce initiale avec fonction est KO reste un mystère.

[Dr.Who]

en effet, eviter de passer des objets en retour de fonction sans savoir comment le faire correctement

sinon, pas besoin de VAR, car on travail sur un pointeur, basiquement parlant, donc on se fout qu'il soit en var ou pas.

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
function RemoveChar(Src, Dest: TStrings; Ch: char): integer;
var I, J: Integer;
    TS, TD: String;
begin
  result := -1;
  if not (assigned(Src) and assigned(Dest)) then
    exit;
 
  if Src.count = 0 then
    exit;
 
  Dest.BeginUpdate;
  try
    Dest.Clear;
    result := 0;
    for I := 0 to Src.Count-1 do
    begin
      TS := Src[I];
      TD := '';
      if Pos(Ch, TS) <> 0 then
      begin
        for J := 1 to Length(TS) do
          if TS[J] <> Ch then
            TD := TD + TS;
      end
      else
        TD := TS;
      Dest.Add(TD);
      inc(result);
    end;
  finally
    Dest.EndUpdate;
  end;
end;

[Nono40]

Le pourquoi de ma soluce initiale avec fonction est KO reste un mystère.

Je me le demande aussi. La fonction de libère pas l'objet qu'elle retourne normalement vu que l'objet doit pouvoir être utilisé en dehors de la fonction.

Dans ce genre de cas j'utilise tout le temps une procédure afin d'être sur de qui crée/libère l'objet.

Pour le VAR DrWho t'as répondu.
Le VAR serait d'ailleurs plus long à l'exécution dans ce cas. Il faudra un adressage indirect de plus à chaque accès avec le VAR. C'est très trompeur le passage par valeur/référence sur les objets.