AccueilCodesTutorielsForumsEmploiLivresConnexion

  • CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 11 23 00:03:32
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

8 commentaire(s) de VUX sur des sources sur tout CodeS-SourceS

Le : 23/07/2002 11:50:58
Source : COMPOSANT TVUXSTRINGGRID
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;

Le : 23/07/2002 08:29:41
Source : COMPOSANT TVUXSTRINGGRID
Oui c vrai je le ferais très vite

Le : 10/04/2002 23:57:00
Source : UN CHIFFRE EST IL PAIR OU PAS (FONCTION)
Encore plus simple:
function EstPair(n:integer):boolean;
begin
  Result := (n mod 2) = 0;
end;

Le : 17/03/2002 00:54:52
Source : RAM OPTIMISE 2.0
Petit commentaire par rapport à ton code:
En fait, il marche mais à moitié et ceci pour une raison précise:
-En fait tu déclare une variable locale, la taille de ta variable sera de la taille que tu veux optimiser. Ensuite quand tu quittes ta procédure cette mémoire est libérée. Mais le problème est que la mémoire utilisée par d' autres applications est déplacée et non libérée vers le swap (fichier d' échange qui stocke de la mémoire sur le disque dur), ce qui conduit à un ralentissement de l' oridnateur quand tu vas réutiliser le programme car il faut qu' il replace le contenu le concernant dans le swap dans la RAM. Au final tu peux légèrement gagner si la mémoire n' est plus utilisée et a été mal libérée.
Voilà
@+
VUX

Le : 06/01/2002 21:00:55
Source : FONCTION RACINE CARRÉ
Autre précision: Faut plus utiliser le type Real:
A la place fo utiliser Single,Double ou Extended.
Car real est juste laissé pour des raisons de compatibilité avec les précédentes versions et n' est pas conforme à la norme IEEE.

Le : 05/01/2002 23:03:42
Source : FONCTION RACINE CARRÉ
just pour te préciser que c' est la fonction sqrt de delphi qui calcule la racine carrée.

Le : 05/01/2002 23:02:40
Source : FONCTION ISNUMERIC AMÉLIORÉE
non val convertit une expression en sa valeur numérique.
isnumeric indique juste si l' expression est une valeur numérique ou non.

Le : 04/01/2002 23:07:36
Source : FONCTION ISNUMERIC AMÉLIORÉE
Note: le 46 indique le caractère "." pour la virgule.
Si vous voulez utiliser le caractère ',' remplacez 46 par 44


1


Nos sponsors

Sondage...

CalendriCode


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,125 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.