Faire un split en delphi

Commenter

Contenu du snippet


Source / Exemple : 


function split(input:string;schar:char;s:integer):string;
    var
       i,n:integer;
       schop: string;
    begin
       n := 1;
       for i := 1 to length(input) do
       begin
         if (input[i] = schar) then
         begin
           inc(n);
           if n = s then
           split := schop
           else
           schop := '';
           end
         else
           schop := schop + input[i];
         end;
    end;

Conclusion :


Pour utiliser cette fonction, il suffit de l'utiliser comme avec VB...

avar := split('Ceci est un texte',' ',2);
avar va ainsi valoir 'est'

Encore un autre exemple
avar := split('Ceci est|un texte','|',2);
avar va ainsi valoir 'un texte'

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (BinOff)