Discussion :

[plante20100]

Bonjour,

J'ai un petit souci, je recupère depuis un dataset une chaine de caractère. Et je voudrais recupérer le premier caractère de ce string.
Voila comment je m'y suis pris:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

(DatasourcePersonnel.DataSet.Fieldbyname('BUREAU').AsString[1] = chr(66))

Et j'ai le droit à un joli

Violation d'accès

J'ai essayé en passant par une variable intermédiaire mais ca n'a rien donné. Je précise tout de meme que quand je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

(DatasourcePersonnel.DataSet.Fieldbyname('BUREAU').AsString = chr(66))

Ca marche tout à fait normalement. Le problème vient donc bien du fait de vouloir récupérer un caractère.

Si quelqu'un à une idée, elle est la bienvenue.
Merci d'avance

Vince

[delphichem]

Le problème vient du fait que si le champ ne contient aucune donnée, il n'existera pas de .AsString[1]

[plante20100]

ouais mais quand j'arrive à cette ligne de code je sais qu'elle est pas vide.
T'as une idée de comment je pourrais contourner ce problème?

[delphichem]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if DatasourcePersonnel.DataSet.Fieldbyname('BUREAU').AsString <> '' then ...

[Soulama]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Var
   FStr: String ;
   FChar : char ;
Begin
   Str:= Trim(DataSet.Fieldbyname('BUREAU').AsString);
   FChar:= Str[1];
end ;

[delphichem]

Oui mais si FStr contient une chaine vide, cala provoquera une exception.

[plante20100]

Merci pour vos réponses. en afit j'ai fait un mixt de vos réponses et ca marche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
PremierCaract     : char;
 
 
if (DatasourcePersonnel.DataSet.Fieldbyname('BUREAU').AsString <> '') then
   PremierCaract:=DatasourcePersonnel.DataSet.Fieldbyname('BUREAU').AsString[1];
   if (PremierCaract = 'B') then...

Encore merci et à plus

Vince