Composant tvuxstringgrid

Soyez le premier à donner votre avis sur cette source.

Vue 4 675 fois - Téléchargée 611 fois

Description

Ce composant est une amélioration du TStringGrid:

Voici les possibilités offertes en plus:
-Tri automatique (méthode Customsort) avec trois fonctions prédéfinies
-Possibilité de copier une colonne dans le presse papiers
-Export au format CSV ou HTML
-Recherche d' éléments automatisée et paramétrable (sens de recherche, respect de la casse, mot exact).
-Effacement de tout son contenu en une seule ligne de code

Source / Exemple :


Tout est dans le zip

Conclusion :


Pour toutes remarques, suggestions, envoyez moi un message ou mailez moi à l' adresse vux@fr.st

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
samedi 12 avril 2003
Statut
Membre
Dernière intervention
8 octobre 2003

je sais pas si c est une erreur dans le code,
mais il manque un petit bout de code dans la partie ExportToHtml,
au debut je croyais que c etait moi qui avait déconné dans l install , mais apres regardé de plus pret on constate qu il n enregistre pas le fichier,

pour cela il faut rajouter (la meme ligne que l on retrouve pour le csv :D)
avant le end; de la procedure
strs.SaveToFile(FileName);
strs.Free;

(enfin c etait peu etre fait expres :)

nan peche bon boulot (clap clap)
Messages postés
27
Date d'inscription
mercredi 18 avril 2001
Statut
Membre
Dernière intervention
25 juillet 2002

Cadeau, voici la méthode à rajouter dans le code pour pouvoir importer depuis un CSV (à ajouter dans le source)

procedure TVUXStringgrid.ImportFromCSV(FileName : string;separator:string ';';FirstLineFixed:Boolean False);
{Importe le contenu d' un fichier CSV dans la grille}
var
strs : TstringList;
i,j,p : integer;
begin
strs := TstringList.Create;
strs.LoadFromFile(FileName);
RowCount := strs.Count; //MAJ le nombre de lignes de la grille
ColCount :=1;
fixedcols := 0;
if FirstlineFixed then fixedrows := 1 else fixedrows := 0;
i := 0;
while i < rowcount do begin
p := pos(separator,strs[i]);
j := 0;
while p > 0 do begin
cells[j,i] := copy(strs[i],1,p-1);
if p <= length(strs[i]) then strs[i] := copy(strs[i],p+ length(separator),length(strs[i]));
p := pos(separator,strs[i]);
j := j+1;
if (j>colcount) then colcount := colcount + 1;
end;
if length(strs[i]) > 0 then begin //Si il n' y a pas de ; à la fin, mais qu' il reste du texte
cells[j,i] := strs[i];
j:=j+1;
if (j>colcount) then colcount := colcount + 1;
end;
i := i +1;
end;
strs.Free;
end;
Messages postés
27
Date d'inscription
mercredi 18 avril 2001
Statut
Membre
Dernière intervention
25 juillet 2002

Oui c vrai je le ferais très vite
Messages postés
12
Date d'inscription
mercredi 8 mai 2002
Statut
Membre
Dernière intervention
24 mai 2006

terrible ! c ce que je cherchais mais le probleme c qu'on ne pe pas importer depuis 1 CSV :( .... c juste ce qui mank.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.