Lire une string lettre par lettre

Question

Lire une string lettre par lettre

Signaler

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

A voir également:

Delphi string
String delphi - Meilleures réponses
Delphi split string - Meilleures réponses
Copy delphi string - Conseils pratiques - Delphi
Delphi string format - Conseils pratiques - Delphi
Delphi string to byte ✓ - Forum - Delphi / Pascal
Delphi string to word - Forum - Delphi / Pascal
Delphi string.split - Guide

2 réponses

Répondre Posez votre question

yvemoreau · Answer 1 · 2003-08-27T02:31:22+0200

Réponse 1 / 2

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

Emandhal · Answer 2 · 2003-08-27T11:14:26+0200

Réponse 2 / 2

Emandhal

Messages postés: 194
Date d'inscription: dimanche 2 mars 2003
Statut: Membre
Dernière intervention: 10 octobre 2006

2
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...

Votre réponse