Poster une réponse à un sujet: MSN
Attention, ce sujet est un sujet ancien (7412 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)