Lire une string lettre par lettre

cs_darkduck Messages postés 138 Date d'inscription vendredi 28 février 2003 Statut Membre Dernière intervention 29 février 2008 - 26 août 2003 à 23:53
Emandhal Messages postés 194 Date d'inscription dimanche 2 mars 2003 Statut Membre Dernière intervention 10 octobre 2006 - 27 août 2003 à 11:14
J'ai un texte dans une string que j'aimerai limiter à 60 caractere maxi et de plus y supprimer certains caractères speciaux comme ( /|\ % : ; )

J'aimerais donc savoir comment je peux faire pour lire une string lettre a lettre ou si vous avez une autre idée allez y ...

Merci

2 réponses

yvemoreau Messages postés 308 Date d'inscription mardi 11 juin 2002 Statut Membre Dernière intervention 26 septembre 2008
27 août 2003 à 02:31
var
x:Integer;
ligne:String;
resul:String;

resul:='';
for x:=1 to length(String) do
begin
if not (( ligne[x]='/' )or( ligne[x]=#13 )or...)
then resul:=resul+ligne[x];
end;

yve
0
Emandhal Messages postés 194 Date d'inscription dimanche 2 mars 2003 Statut Membre Dernière intervention 10 octobre 2006 3
27 août 2003 à 11:14
plus rapide plus lisible :
var
x:Integer;
ligne:String;
resul:String;

resul:='';
for x:=1 to length(String) do
begin
if not (ligne[x] in ['/', '|', '\', '%', ':', ';']) then
resul := resul+ligne[x];
end;

Tout problème a sa solution... Mais en général, c'est jamais la bonne...
0
Rejoignez-nous