Discussion :

[BuzzLeclaire]

J'essai de récuperer la première lettre d'une cellule

Sachant que l'on peu ecrire ceci :

Code :

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

1
2
3
4
5
 
...
StringGridMois.Cells[xRepereJour,1] := AnsiUpperCase(LongDayNames[j][1] +#13+#10+ IntToStr(xRepereJour);)
 
...

Le LongDayNames[1][1] par exemple nous donne 'L' du LUNDI

Pourquoi ce code me retourne une mega erreur EAccessViolation

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TFormPrincipal.StringGridMoisDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
Begin
.....

    if (Arow = 1) then
    Begin
      if StringGridMois.Cells[Acol,Arow][1] = 'S' then  <-- ICI
      Begin
      ...
      end;
    end;
....

Je sais que cela viens de :
StringGridMois.Cells[Acol,Arow][1] = 'S'

apparement il n'aime pas ! mais comment je peux m'y prendre ?

[Andnotor]

C'est que ta cellule est vide !

Assures-toi toujours que la longueur de la chaîne soit >= à l'index du caractère que tu veux tester.
L'indexation des Cells est également à base 0. Tes titres de colonnes doivent certainement être à ARow = 0

Code :

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

1
2
3
4
5
    if (ARow = 0) and (Length(StringGridMois.Cells[ACol,ARow]) >= 1) then
    Begin
      if StringGridMois.Cells[ACol,ARow][1] = 'S' then
      ...
    end;

Il y a encore un détail qui me titille . Comment vas-tu gérer Mardi et Mercredi ?
Tu devras tester 2 caractères:

Code :

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

1
2
3
4
5
6
7
8
9
Units StrUtils;
 
    //Le test de la longeur de la chaîne est inutile ici.
    //AnsiStartsText se charge de tout !
    if ARow = 0 then
    Begin
      if AnsiStartsText('Sa', StringGridMois.Cells[ACol,ARow]) then
      ...
    end;

[BuzzLeclaire]

Merci pour la réponse. Le AnsiStartsText fonctionne trés bien, voilà ce que j'ai ecris dans mon OnDrawCell du StringGrid

Code :

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

1
2
3
4
5
6
7
8
 
...
if (Arow = 1) and (Acol > 0) then
    Begin
      if AnsiStartsText('S',StringGridMois.Cells[Acol,Arow]) or AnsiStartsText('D',StringGridMois.Cells[Acol,Arow]) then
      Begin
 
...

Alors pas de problème le Mardi et Mercredi, ce qui m'interesse c'est de trouver le Week-end (S et D)

Merci Andnotor