Poster une réponse à un sujet: MSN
Attention, ce sujet est un sujet ancien (7497 jours sans réponse)
zion
roh
flute
mince
damnation
que faire
ah benh oué, corriger le bug
![:oh: :oh:](images/smileys/oh.gif)
flute
![:oh: :oh:](images/smileys/oh.gif)
mince
![:oh: :oh:](images/smileys/oh.gif)
damnation
![:oh: :oh:](images/smileys/oh.gif)
que faire
![:oh: :oh:](images/smileys/oh.gif)
ah benh oué, corriger le bug
![:oh: :oh:](images/smileys/oh.gif)
gizmo
zion
C'est un test de mise en forme de source Pascal
![:smile: :smile:](images/smileys/smile.gif)
Suffit de faire [ pascal ] pour du pascal, [ php ] pour du php, cpp pour du c++, etc, etc
![:smile: :smile:](images/smileys/smile.gif)
y a un parser pour chaque langage avec les mots clés et tout le toutim
![:sol: :sol:](images/smileys/sol.gif)
Poire
Citation de: zion
- procedure TForm1.Button1Click(Sender: TObject);
- var
- sr: TSearchRec;
- FileAttrs: Integer;
- begin
- StringGrid1.RowCount := 1;
- if CheckBox1.Checked then
- FileAttrs := faReadOnly
- else
- FileAttrs := 0;
- if CheckBox2.Checked then
- FileAttrs := FileAttrs + faHidden;
- if CheckBox3.Checked then
- FileAttrs := FileAttrs + faSysFile;
- if CheckBox4.Checked then
- FileAttrs := FileAttrs + faVolumeID;
- if CheckBox5.Checked then
- FileAttrs := FileAttrs + faDirectory;
- if CheckBox6.Checked then
- FileAttrs := FileAttrs + faArchive;
- if CheckBox7.Checked then
- FileAttrs := FileAttrs + faAnyFile;
- with StringGrid1 do
- begin
- RowCount := 0;
- if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then
- begin
- repeat
- if (sr.Attr and FileAttrs) = sr.Attr then
- begin
- RowCount := RowCount + 1;
- Cells[1,RowCount-1] := sr.Name;
- Cells[2,RowCount-1] := IntToStr(sr.Size);
- end;
- until FindNext(sr) <> 0;
- FindClose(sr);
- end;
- end;
- end;
Et hop, encore un petit coup de test
![:banzai: :banzai:](images/smileys/banzai.gif)
C koi ce source de recherche de fichiers ?
![:tongue: :tongue:](images/smileys/tongue.gif)
zion
- procedure TForm1.Button1Click(Sender: TObject);
- var
- sr: TSearchRec;
- FileAttrs: Integer;
- begin
- StringGrid1.RowCount := 1;
- if CheckBox1.Checked then
- FileAttrs := faReadOnly
- else
- FileAttrs := 0;
- if CheckBox2.Checked then
- FileAttrs := FileAttrs + faHidden;
- if CheckBox3.Checked then
- FileAttrs := FileAttrs + faSysFile;
- if CheckBox4.Checked then
- FileAttrs := FileAttrs + faVolumeID;
- if CheckBox5.Checked then
- FileAttrs := FileAttrs + faDirectory;
- if CheckBox6.Checked then
- FileAttrs := FileAttrs + faArchive;
- if CheckBox7.Checked then
- FileAttrs := FileAttrs + faAnyFile;
- with StringGrid1 do
- begin
- RowCount := 0;
- if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then
- begin
- repeat
- if (sr.Attr and FileAttrs) = sr.Attr then
- begin
- RowCount := RowCount + 1;
- Cells[1,RowCount-1] := sr.Name;
- Cells[2,RowCount-1] := IntToStr(sr.Size);
- end;
- until FindNext(sr) <> 0;
- FindClose(sr);
- end;
- end;
- end;
Et hop, encore un petit coup de test
![:banzai: :banzai:](images/smileys/banzai.gif)
sbuysse
- <?php
- function getmicrotime()
- {
- list($usec, $sec) = explode(" ",microtime());
- return ((float)$usec + (float)$sec);
- }
- $args=array();
- for($i=0;$i<10000;$i++)
- $args[]="'line to output number $i
- '";
- $concatEcho="echo ".implode("
- .",$args).";";
- $paramEcho="echo ".implode("
- ,",$args).";";
- unset($args);
- $startParam=getmicrotime();
- eval($paramEcho);
- $endParam=getmicrotime();
- $startConcat=getmicrotime();
- eval($concatEcho);
- $endConcat=getmicrotime();
- $concatTime=$endConcat-$startConcat;
- $paramTime=$endParam-$startParam;
- print "
- Concats took $concatTime seconds
- Params took $paramTime
- ";
- ?>
un shti test ni vu ni connu
![:grin: :grin:](images/smileys/grin.gif)
sbuysse
Citation de: pipo
Tiens il prend pas de quote de quote ?
Non, c'est supprimé automatiquement pour éviter des quote de quote de quote, pas fou
![:oh: :oh:](images/smileys/oh.gif)
pipo
Tiens il prend pas de quote de quote ?
sbuysse
pipo
MSNCAPU jabber sbieng
(Je teste)
(Je teste)