<== j'l'aime bien celui la 
 
je vais avoir k'une vielle version toute pourie 
 
//largeur : la largeur de la cellule a remplir
Class Function  TUtil.alignerDroite(largeur:integer; chaine:string):string;
var
    nb:integer;
    strTmp:string;
begin
    //ne marche que si la police du StringGrid est celle par defaut
    strTmp:='';
 
    chaine := trim(chaine);
    if (pos(',', chaine)=0) and (pos(DecimalSeparator, chaine)=0) then nb := (largeur div 8)+2-length(chaine)
    else nb := (largeur div 8)-(length(chaine)-3);
    while nb>0 do
    begin
        strTmp := strTmp+'  ';
        nb:= nb-1;
    end;
    Result := strTmp+chaine;
end;
 
 
Bon ca marche plutot bien MAIS
-la c'est poor une police de taille 8 (MS Sans Sherif)
-cette ebauche avait ete faite poor manipuler des floats
-J'lai ressorti de sous les fagot alors me dites po ke C crade comme methode parce ke  
 d'abord 
 
 [edtdd]--Message édité par evode--[/edtdd]
 
 ---------------
			
Hyndex - Meuaarf !! ReZo !!!