FAIRE UN SPLIT EN DELPHI

Signaler
-
Messages postés
285
Date d'inscription
dimanche 20 mai 2007
Statut
Membre
Dernière intervention
3 novembre 2009
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/11633-faire-un-split-en-delphi

Messages postés
285
Date d'inscription
dimanche 20 mai 2007
Statut
Membre
Dernière intervention
3 novembre 2009

Cette fonction ne marche que si le dernier caractère est le séparateur, voici une version modifiée, testée et approuvée par ma prof :p

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
if n = s then
split := schop
else
schop := '';
inc(n);
end
else
schop := schop + input[i];
end;
if n = s then
split := schop ;
end;
Messages postés
3793
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
7
Re,
excusez moi je viens de comprendre, s représente le split, et schar représente le caractère de split.
Merci, :)
Messages postés
3793
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
7
Bonjour,
Euh svp je suis un peu débutant, et à ce que j'ai compris, s représente le caractère de séparation, mais que représente "schar" ???
A bientôt...
Messages postés
16
Date d'inscription
mercredi 8 février 2006
Statut
Membre
Dernière intervention
12 mars 2006

Ce code est bien mais il a un petit defaut. Moi pour le moment je travaille le latex en delphi et je dois analyser ceci "\begin{tabular}{c l r}"
il faudarait que je sorte de la chaine le c l r donc j'utilise cette fonction split avec { comme separateur ==> \begin , tabular} et normalement c l r} en troiseme position

et ben non, il me splite encore le c l r} en tenant compte des espaces

y aurait-il moyen de modifier cette fonction pour qu'il ne tienne pas compte des espaces?
Afficher les 8 commentaires