Discussion :

[spikto]

Bonjour j'ai une fonction qui permet de découper un variable de type texte mais j'ai des lettre qui disparaisse de temps en temps.

Voici ma fonction

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
 
type
  TabString = Array of string ;
 
function Decoupe(s : string; Car : Char; nb : Integer; var lu : Integer) : TabString; 
var
   y, idx : Integer;
begin
 idx :=0;
 y :=99;
 SetLength(Result,nb);
while (idx<nb) and (y>0) do
begin
y:=pos(Car,s); 
if y=0 then
begin 
Result[Idx]:=s; 
inc(idx);
end
else 
begin 
Result[idx]:=copy(s,1,y-1);
inc(idx);
delete(s,1,y);
while (length(s)>0) and (s[y]=Car) do 
delete(s,1,1); 
   end;
 end;
 lu:=idx;
end;

Est ce que vous pouvez me dire ce qui n'est pas correcte dans ma fonction ?

Merci d'avance pour la réponse

[Rayek]

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
 
function Decoupe(s : string; Car : Char; nb : Integer; var lu : Integer) : TabString;
var
  lst : TStringList;
  i : integer;
begin
  lst := TStringList.Create;
  try
    lst.Text := StringReplace(s,car,#13#10,[rfReplaceAll]);
    SetLength(Result,lst.Count);
    for i := 0 to lst.Count -1 do
      Result[i] := lst.Strings[i];
    lu := lst.Count;
  finally
    lst.Free;
  end;
end;

Une version differente mais qui fait la même chose.
je n'utilise pas la variable nb.
cette fonction, c'est pour découper les données d'un fichier style Csv ou avec séparateur de champ ?
On pourrait même renvoyer directement un TStringList et evité d'avoir un tableau dynamique

[spikto]

Merci de ta réponse. La fonction je l'utilise plus comme separateur de champ.