Poster une réponse à un sujet: MSN
Attention, ce sujet est un sujet ancien (7519 jours sans réponse)
zion
roh
flute
mince
damnation
que faire
ah benh oué, corriger le bug

flute

mince

damnation

que faire

ah benh oué, corriger le bug

gizmo
zion
C'est un test de mise en forme de source Pascal

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

y a un parser pour chaque langage avec les mots clés et tout le toutim

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

C koi ce source de recherche de fichiers ?

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

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

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

pipo
Tiens il prend pas de quote de quote ?
sbuysse
pipo
MSNCAPU jabber sbieng
(Je teste)
(Je teste)