<== 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 !!!