COMPOSANT DE SPLIT

Commentaire de japee le 17/05/2006 11:25:14 administrateur CS

Intéressant.

Mais pourquoi vouloir en faire un composant ?

Ton code est un peu redondant :

function TSplit.Split(Str:string):TWordsContainer;
var i,a,b:integer;
begin
a:=0;
b:=0;
str:=str+' ';//On ajoute un espace sinon le dernier mot ne sera pas reconnu car
// la string se fini par un caractère.
for i:=0 to length(str) do
begin
if str[i]=' ' then //Si le char testé est un espace
begin
if Copy(str,a,i-a)=' ' then // On ajoute le mot en se repérant avec la dernière
a:=a+(i-a) // position de fin de mot ( ou de début de string ).
else
begin
result[b]:=Copy(str,a,i-a);
a:=a+(i-a);//On ajoute la position de la fin du dernier mot trouvé.
b:=b+1;//On passe à l'enregistrement suivant.
end;
end;
end;
end;

Sans toucher à l'essentiel (j'ai renommé les variables pour m'y retrouver), et en respectant le concept, j'aurais fait :

function TSplit.Split(Str: string): TWordsContainer;
var i, Previous, Index: Integer;
begin
  Previous := 0;
  Index := 0;
  Str := Str + ' ';
  for i := 0 to Length(Str) do
  begin
    if Str[i] = ' ' then
    begin
      Result[Index] := Copy(Str, Previous + 1, i - Previous - 1);
      Index := Index + 1;
      Previous := i;
    end;
  end;
end;

Bonne prog' :p

Commentaire de Harvester_ le 17/05/2006 15:36:46

Merci bien, je ne me sert pas souvent des array et je ne connaissais pas cette petite "technique" toute bête !