Poster une réponse à un sujet: MSN
Attention, ce sujet est un sujet ancien (7412 jours sans réponse)
zion
roh :oh:

flute :oh:

mince :oh:

damnation :oh:

que faire :oh:

ah benh oué, corriger le bug :oh:
gizmo
  1. class test { 
  2.   protected __construct() { 
  3.   } 
  4.   public init() { 
  5.     if (!isset($variable)) { 
  6.       throw new TestException('pauv'tache!'); 
  7. return $variable; 
  8. private ;variable; 
  9. }'

test

EDIT: C'est nul :oh: il strip les escape de quote :oh:
zion


C koi ce source de recherche de fichiers ? :tongue:


C'est un test de mise en forme de source Pascal :smile:

Suffit de faire [ pascal ] pour du pascal, [ php ] pour du php, cpp pour du c++, etc, etc :smile:

y a un parser pour chaque langage avec les mots clés et tout le toutim :sol:
Poire
  1. procedure TForm1.Button1Click(Sender: TObject); 
  2. var 
  3.   sr: TSearchRec; 
  4.   FileAttrs: Integer; 
  5. begin 
  6.   StringGrid1.RowCount := 1
  7.   if CheckBox1.Checked then 
  8.     FileAttrs := faReadOnly 
  9.   else 
  10.     FileAttrs := 0
  11.   if CheckBox2.Checked then 
  12.     FileAttrs := FileAttrs + faHidden; 
  13.   if CheckBox3.Checked then 
  14.     FileAttrs := FileAttrs + faSysFile; 
  15.   if CheckBox4.Checked then 
  16.     FileAttrs := FileAttrs + faVolumeID; 
  17.   if CheckBox5.Checked then 
  18.     FileAttrs := FileAttrs + faDirectory; 
  19.   if CheckBox6.Checked then 
  20.     FileAttrs := FileAttrs + faArchive; 
  21.   if CheckBox7.Checked then 
  22.     FileAttrs := FileAttrs + faAnyFile; 
  23.   with StringGrid1 do 
  24.   begin 
  25.     RowCount := 0
  26.     if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then 
  27.     begin 
  28.       repeat 
  29.         if (sr.Attr and FileAttrs) = sr.Attr then 
  30.         begin 
  31.         RowCount := RowCount + 1
  32.         Cells[1,RowCount-1] := sr.Name; 
  33.         Cells[2,RowCount-1] := IntToStr(sr.Size); 
  34.         end
  35.       until FindNext(sr) <> 0
  36.       FindClose(sr); 
  37.     end
  38.   end
  39. end;


Et hop, encore un petit coup de test :banzai:


C koi ce source de recherche de fichiers ? :tongue:
zion
  1. procedure TForm1.Button1Click(Sender: TObject); 
  2. var 
  3.   sr: TSearchRec; 
  4.   FileAttrs: Integer; 
  5. begin 
  6.   StringGrid1.RowCount := 1
  7.   if CheckBox1.Checked then 
  8.     FileAttrs := faReadOnly 
  9.   else 
  10.     FileAttrs := 0
  11.   if CheckBox2.Checked then 
  12.     FileAttrs := FileAttrs + faHidden; 
  13.   if CheckBox3.Checked then 
  14.     FileAttrs := FileAttrs + faSysFile; 
  15.   if CheckBox4.Checked then 
  16.     FileAttrs := FileAttrs + faVolumeID; 
  17.   if CheckBox5.Checked then 
  18.     FileAttrs := FileAttrs + faDirectory; 
  19.   if CheckBox6.Checked then 
  20.     FileAttrs := FileAttrs + faArchive; 
  21.   if CheckBox7.Checked then 
  22.     FileAttrs := FileAttrs + faAnyFile; 
  23.   with StringGrid1 do 
  24.   begin 
  25.     RowCount := 0
  26.     if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then 
  27.     begin 
  28.       repeat 
  29.         if (sr.Attr and FileAttrs) = sr.Attr then 
  30.         begin 
  31.         RowCount := RowCount + 1
  32.         Cells[1,RowCount-1] := sr.Name; 
  33.         Cells[2,RowCount-1] := IntToStr(sr.Size); 
  34.         end
  35.       until FindNext(sr) <> 0
  36.       FindClose(sr); 
  37.     end
  38.   end
  39. end;


Et hop, encore un petit coup de test :banzai:
sbuysse

  1. <?php 
  2. function getmicrotime() 
  3.    list($usec$sec) = explode(" ",microtime()); 
  4.    return ((float)$usec + (float)$sec); 
  5. $args=array(); 
  6. for($i=0;$i<10000;$i++) 
  7.        $args[]="'line to output number $i 
  8. '"; 
  9. $concatEcho="echo ".implode(
  10. .",$args).";"
  11. $paramEcho="echo ".implode(
  12. ,",$args).";"
  13. unset($args); 
  14. $startParam=getmicrotime(); 
  15. eval($paramEcho); 
  16. $endParam=getmicrotime(); 
  17. $startConcat=getmicrotime(); 
  18. eval($concatEcho); 
  19. $endConcat=getmicrotime(); 
  20. $concatTime=$endConcat-$startConcat
  21. $paramTime=$endParam-$startParam
  22. print 
  23. Concats took $concatTime seconds 
  24. Params took $paramTime 
  25. "; 
  26. ?>


un shti test ni vu ni connu :grin:
sbuysse

Tiens il prend pas de quote de quote ?


Non, c'est supprimé automatiquement pour éviter des quote de quote de quote, pas fou :oh:
pipo


ca marche :cupra:

Tiens il prend pas de quote de quote ?
sbuysse
MSNCAPU jabber sbieng

(Je teste)


ca marche :cupra:
pipo
MSNCAPU jabber sbieng

(Je teste)
Catégorie:  






Ada
CSS
Cobol
CPP
HTML
Fortran
Java
JavaScript
Pascal
Perl
PHP
Python
SQL
VB
XML
Anon URL
DailyMotion
eBay
Flickr
FLV
Google Video
Google Maps
Metacafe
MP3
SeeqPod
Veoh
Yahoo Video
YouTube
6px
8px
10px
12px
14px
16px
18px
Informaticien.be - © 2002-2024 AkretioSPRL  - Generated via Kelare
The Akretio Network: Akretio - Freedelity - KelCommerce - Votre publicité sur informaticien.be ?