Salut Jean_Jean,

J'avais mis à l'époque une source assez proche de ton code avec "http://www.delphifr.com/codes/CHECKBOX-GRAPHIQUE-DANS-STRINGGRID_41501.aspx" qui d'ailleurs n'apparait pas sur cette page  dans 'Sources en rapport avec celle ci' ?
Sinon  pour ce qui est de changer la couleur d'une ligne sélectionnée regarde cette autre source qui traite aussi de l'utilisation de Bitmaps dans un StringGrid, cela pourrait peut être t'aider ? "http://www.delphifr.com/codes/BARRE-SELECTION-GRAPHIQUE_35297.aspx"

@++

Merci Cirec.

Salut à tous,

Pour répondre à ta question Cirec, la version des composants Indy que j’utilise est la 9, mais le problème vient peut être que je l’avais testé et ensuite sauvegardé chez un ami sous Delphi 2006, d’où la présence du Protocol IPv6 ?
Car le composant ‘IdUDPClient’ de la version Delphi 2006 a une propriété IPVersion (4 ou 6).
Donc j’ai supprimé les deux composants Indy ‘IdUDPClient et IdIcmpClient’ que j’ai ensuite remplacé par ceux de la version 9 sous Delphi 7.

Voila, la source rectifiée est à présent disponible, et encore une fois désolé pour ce deuxième problème.

Amicalement Asciidefond.

Oups, problème RxGif résolu. dsl YvesSimon.

Salut amira1979,

Le plus simple est de créer un fichier *.cvs

Ex.vu sur DelphiFr.com (je ne me souviens plus du pseudo de l'auteur dsl pour lui)


//Enregistrement d'une Table access dans un fichier CVS
procedure TForm1.SaveToCSV(const Name: TFileName; const Delim: string);
var
  f: Textfile;
  s: string;
  i: Integer;
begin
  AssignFile(f, Name);
  FileMode := fmOpenWrite;
  Rewrite(f);
  ADOQuery1.First;

  s := '';
  for i := 0 to ADOQuery1.FieldCount-1 do
  begin
    if s <> '' then
      s := s + Delim;
      s := s + ADOQuery1.Fields[i].FieldName;
  end;
  WriteLn(f, s);
  while not ADOQuery1.Eof do
  begin
    s := '';
    for i := 0 to ADOQuery1.FieldCount-1 do
    begin
      if s <> '' then
        s := s + Delim;
      s := s + StringReplace(ADOQuery1.Fields[i].AsString, sLineBreak, '|', [rfReplaceAll]);
    end;
    WriteLn(f, s);
    ADOQuery1.Next;
  end;
  CloseFile(f);
end;

@+

Ce soir tout est limpide j'ai les yeux en face des trous(3h00 du matin), cette solution est toute aussi bien pratique et surtout économique en code que les précédentes. Merçi à toi Cirec et @+.

salut Cirec,
Dabord merci pour tes commentaires constructifs sur les clauses uses et les evènements, mais je ne comprend pas trop l'astuce pour les évènements OnClick des Button1 & Button2 (peut être une grosse fatigue de ma part?).
@+