Lire une string lettre par lettre

Signaler
Messages postés
138
Date d'inscription
vendredi 28 février 2003
Statut
Membre
Dernière intervention
29 février 2008
-
Messages postés
194
Date d'inscription
dimanche 2 mars 2003
Statut
Membre
Dernière intervention
10 octobre 2006
-
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

Messages postés
308
Date d'inscription
mardi 11 juin 2002
Statut
Membre
Dernière intervention
26 septembre 2008

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
Messages postés
194
Date d'inscription
dimanche 2 mars 2003
Statut
Membre
Dernière intervention
10 octobre 2006
2
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...