Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1761 connectés 

 
 


 Mot :   Pseudo :  
 
 Page :   1  2  3  4  5  6  7  8
Page Suivante
Page Précédente
Bas de page 
Auteur Sujet :

Enhancement du forum

n°154803
joce
Architecte / Développeur principal
"BugHunter"
Posté le 09-06-2002 à 02:44:10  profilanswer
 

Reprise du message précédent :
voala ! :D

mood
Publicité
Posté le 09-06-2002 à 02:44:10  profilanswer
 

n°154808
zion
Plop
Posté le 09-06-2002 à 03:57:19  profilanswer
 

chrisbk a écrit a écrit :

 
 
ah, un duel d'expert sur l'identation en pascal, rien de tel pour occuper ses soirées ! [:dawa] :D  




 
 :non:  
 
Y a une norme, suffit de la respecter  :na:


---------------
Informaticien.be - Lancez des défis à vos amis
n°154809
zion
Plop
Posté le 09-06-2002 à 03:58:13  profilanswer
 

Allez hop, un petit test
 
[pascal]
 
{$IFDEF FPC}
 
type
  PResStringRec = ^string;
 
function SysErrorMessage(ErrNo: Integer): string;
 
{$IFDEF MSWINDOWS}
procedure RaiseLastWin32Error;
 
procedure QueryPerformanceCounter(var C: Int64);
function QueryPerformanceFrequency(var Frequency: Int64): Boolean;
{$ENDIF MSWINDOWS}
 
var
  Default8087CW: Word;
{$ENDIF FPC}
 
//------------------------------------------------
--------------------------------------------------
 
// EJclError
//------------------------------------------------
--------------------------------------------------
 
 
type
  EJclError = class (Exception)
  public
    constructor CreateResRec(ResStringRec: PResStringRec);
    constructor CreateResRecFmt(ResStringRec: PResStringRec; const Args: array of const);
  end;
 
//------------------------------------------------
--------------------------------------------------
 
// EJclWin32Error
//------------------------------------------------
--------------------------------------------------
 
 
{$IFDEF MSWINDOWS}
 
type
  EJclWin32Error = class (EJclError)
  private
    FLastError: DWORD;
    FLastErrorMsg: string;
  public
    constructor Create(const Msg: string);
    constructor CreateFmt(const Msg: string; const Args: array of const);
    constructor CreateRes(Ident: Integer);
    constructor CreateResRec(ResStringRec: PResStringRec);
    property LastError: DWORD read FLastError;
    property LastErrorMsg: string read FLastErrorMsg;
  end;
 
{$ENDIF MSWINDOWS}
 
[/pascal]


---------------
Informaticien.be - Lancez des défis à vos amis
n°154810
zion
Plop
Posté le 09-06-2002 à 03:59:45  profilanswer
 

Encore un petit :D
 
[pascal]
procedure TExpressionCompiler.Delete(ACompiledExpression: TCompiledExpression);
var
  ifr: TIceFindResult;
begin
  ifr.Found := False;
  ifr.Ce := ACompiledExpression;
  ifr.Ice := nil;
  ifr.Expr := '';
  FExprHash.Iterate(@ifr, Iterate_FindIce);
  if not ifr.Found then
    raise EJclExprEvalError.CreateResRec(@RsExprEvalExprPtrNotFound);
  Remove(ifr.Expr);
end;
 
//------------------------------------------------
--------------------------------------------------
 
 
procedure TExpressionCompiler.Remove(const AExpr: string);
var
  ice: TInternalCompiledExpression;
begin
  if not FExprHash.Find(AExpr, ice) then
    raise EJclExprEvalError.CreateResRecFmt(@RsExprEvalExprNotFound,
      [AExpr]);
 
  ice.RefCount := ice.RefCount - 1;
  if ice.RefCount = 0 then
  begin
    ice.Free;
    FExprHash.Remove(AExpr);
  end;
end;
[/pascal]


---------------
Informaticien.be - Lancez des défis à vos amis
n°154811
zion
Plop
Posté le 09-06-2002 à 04:00:40  profilanswer
 

[:yaisse2]  C'est tout cassé la procedure TExpressionCompiler.Delete


---------------
Informaticien.be - Lancez des défis à vos amis
n°154812
joce
Architecte / Développeur principal
"BugHunter"
Posté le 09-06-2002 à 04:00:59  profilanswer
 

Zion a écrit a écrit :

Encore un petit :D
 
[pascal]
procedure TExpressionCompiler.Delete(ACompiledExpression: TCompiledExpression);
var
  ifr: TIceFindResult;
begin
  ifr.Found := False;
  ifr.Ce := ACompiledExpression;
  ifr.Ice := nil;
  ifr.Expr := '';
  FExprHash.Iterate(@ifr, Iterate_FindIce);
  if not ifr.Found then
    raise EJclExprEvalError.CreateResRec(@RsExprEvalExprPtrNotFound);
  Remove(ifr.Expr);
end;
 
//------------------------------------------------
 
--------------------------------------------------
 
 
 
procedure TExpressionCompiler.Remove(const AExpr: string);
var
  ice: TInternalCompiledExpression;
begin
  if not FExprHash.Find(AExpr, ice) then
    raise EJclExprEvalError.CreateResRecFmt(@RsExprEvalExprNotFound,
      [AExpr]);
 
  ice.RefCount := ice.RefCount - 1;
  if ice.RefCount = 0 then
  begin
    ice.Free;
    FExprHash.Remove(AExpr);
  end;
end;
[/pascal]  




tient il a merdé l'indentation sur le premier if :heink:

n°154813
joce
Architecte / Développeur principal
"BugHunter"
Posté le 09-06-2002 à 04:03:08  profilanswer
 

oh putain j'ai capté :lol:
c'est à cause de la varible ifr :o

n°154814
joce
Architecte / Développeur principal
"BugHunter"
Posté le 09-06-2002 à 04:04:46  profilanswer
 

fixed :p

n°154815
zion
Plop
Posté le 09-06-2002 à 04:56:09  profilanswer
 

joce a écrit a écrit :

fixed :p  




 
:jap:


---------------
Informaticien.be - Lancez des défis à vos amis
n°154819
deathsharp
Posté le 09-06-2002 à 08:25:29  profilanswer
 

excellente fonction ce nouveau code  ;) :D


---------------
What butter and whiskey won't cure, there is no cure for.
mood
Publicité
Posté le 09-06-2002 à 08:25:29  profilanswer
 

n°154830
Profil sup​primé
Posté le 09-06-2002 à 10:51:28  answer
 

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
    "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<!-- Date de création: 06/05/2002 -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Machin</title>
<meta name="description" content="xx" />
<meta name="keywords" content="yy" />
<meta name="author" content="bidule" />
<style>
body{margin:5px;}
body,td{font-family:Arial,sans-serif;font-size:13p
x;}
#titr{color:#19513f;padding-left:5px;padding-botto
m:5px;}
.titre{font-size:22px;font-weight:bold;}
.titre2{font-size:11px;}
td.menu{background-image:url(fondmenu.png);backgro
und-repeat:repeat-x;}
#menux td,#menux td a{font-size:14px;font-weight:bold;color:#19513f;}
#menux td a{margin-right:8px;text-decoration:none;}
</style>
</head>
<body>
<table width="605" border="0" cellpadding="0" cellspacing="0" summary="">
<tr valign="bottom" align="left">
<td><img src="logo.png" border="0" width="90" height="60" alt="" /></td>
<td><img src="titre_en.png" border="0" width="200" height="60" alt="" /></td>
<td align="right"><img src="logo2.png" border="0" width="315" height="60" alt="" /></td>
</tr>
</table>
<table width="605" border="0" cellpadding="0" cellspacing="0" summary="">
<tr>
<td class="menu" valign="top" align="left"><img src="fondmen1.png" border="0" width="5" height="30" alt="" /></td>
<td class="menu" valign="top" align="left">
<table id="menux" width="100%" border="0" cellpadding="0" cellspacing="3" summary="">
<tr valign="middle" align="left">
<td><img src="ico_acc.png" border="0" width="20" height="20" alt="" /></td>
<td><a href="">Accueil</a></td>
<td><img src="ico_bio.png" border="0" width="20" height="20" alt="" /></td>
<td><a href="">Biologie</a></td>
<td><img src="ico_acc.png" border="0" width="20" height="20" alt="" /></td>
<td><a href="">Evolution</a></td>
<td><img src="ico_acc.png" border="0" width="20" height="20" alt="" /></td>
<td><a href="">Protection</a></td>
<td><img src="ico_acc.png" border="0" width="20" height="20" alt="" /></td>
<td><a href="">Espèces</a></td>
<td><img src="ico_acc.png" border="0" width="20" height="20" alt="" /></td>
<td><a href="">Liens</a></td>
</tr>
</table>
</td>
<td class="menu" valign="top" align="right"><img src="fondmen2.png" border="0" width="5" height="30" alt="" /></td>
</tr>
</table>
</body>
</html>


Message édité par Profil supprimé le 06-09-2002 à 10:53:11
n°154831
Profil sup​primé
Posté le 09-06-2002 à 10:53:21  answer
 

Y a encore du boulot :D

n°154843
antp
Super Administrateur
Champion des excuses bidons
Posté le 09-06-2002 à 11:39:09  profilanswer
 

joce a écrit a écrit :

fixed :p  




 
les mots-clé sont toujours pas en gras :??:


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°154844
antp
Super Administrateur
Champion des excuses bidons
Posté le 09-06-2002 à 11:40:53  profilanswer
 

Oh et y a pas de bouton "Pascal" dans la fenêtre d'écriture du post :o
 
[pascal]
while(truc = True) do
begin
repeat
machin(truc);
bidule;
until not truc;
end;
[/pascal]


Message édité par antp le 06-09-2002 à 11:41:00

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°154845
antp
Super Administrateur
Champion des excuses bidons
Posté le 09-06-2002 à 11:41:36  profilanswer
 

Il idente pas avec le repeat/until :D (enfin ça c'est comme le try/finally et try/except, y a pas de begin/end)


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°154846
antp
Super Administrateur
Champion des excuses bidons
Posté le 09-06-2002 à 11:43:15  profilanswer
 

[pascal]
while machin do
truc;
bidule;
[/pascal]
 
[pascal]
if{commentaire}machin then
truc;
bidule;
[/pascal]
 
ha bhen aucun des deux ne marche :/


Message édité par antp le 06-09-2002 à 11:43:57

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°154859
chrisbk
-
Posté le 09-06-2002 à 12:42:46  profilanswer
 

Code :
  1. if (truc)
  2. bidule

n°154860
chrisbk
-
Posté le 09-06-2002 à 12:43:00  profilanswer
 

ca marche en C [:neffy] :D

n°154879
antp
Super Administrateur
Champion des excuses bidons
Posté le 09-06-2002 à 13:12:46  profilanswer
 

[pascal]
if (test) then
resultat;
[/pascal]


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°154880
antp
Super Administrateur
Champion des excuses bidons
Posté le 09-06-2002 à 13:12:54  profilanswer
 
n°154885
Max Evans
Posté le 09-06-2002 à 13:20:34  profilanswer
 
n°154886
antp
Super Administrateur
Champion des excuses bidons
Posté le 09-06-2002 à 13:23:04  profilanswer
 

[:leg9] évidemment sur blabla faut toujours que ça dérape :D
 
pour si jamais c'est réparé trop vite, un souvenir :
http://ibelgique.ifrance.com/antp/ [...] _fixed.png
http://ibelgique.ifrance.com/antp/ [...] fixed2.png
http://ibelgique.ifrance.com/antp/ [...] fixed3.png


Message édité par antp le 06-09-2002 à 13:33:38

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°154954
joce
Architecte / Développeur principal
&#034;BugHunter&#034;
Posté le 09-06-2002 à 15:21:20  profilanswer
 

'tain la fonction highlight_string elle suxx trop :D
En plus elle génére des nbsp au lieu de nbsp; :non:


---------------
Protèges carnets personnalisés & accessoires pour bébé
n°154967
zion
Plop
Posté le 09-06-2002 à 15:38:22  profilanswer
 

joce a écrit a écrit :

'tain la fonction highlight_string elle suxx trop :D
En plus elle génére des nbsp au lieu de nbsp; :non:  




 
Benh ca tu sais le modifier... recompile php  [:banzai]


---------------
Informaticien.be - Lancez des défis à vos amis
n°154979
antp
Super Administrateur
Champion des excuses bidons
Posté le 09-06-2002 à 15:49:32  profilanswer
 

Tiens t'es là toi... t'as raté quelque chose :D


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°154982
joce
Architecte / Développeur principal
&#034;BugHunter&#034;
Posté le 09-06-2002 à 15:52:51  profilanswer
 

Zion a écrit a écrit :

 
 
Benh ca tu sais le modifier... recompile php  [:banzai]  




Spa con, v regarder comment le code de php est foutu, g jamais foutu les mains dedans :D


---------------
Protèges carnets personnalisés & accessoires pour bébé
n°154988
joce
Architecte / Développeur principal
&#034;BugHunter&#034;
Posté le 09-06-2002 à 15:58:23  profilanswer
 

comprends pas, ca fout bien   pourtant :heink:


---------------
Protèges carnets personnalisés & accessoires pour bébé
n°154990
zion
Plop
Posté le 09-06-2002 à 15:59:58  profilanswer
 

joce a écrit a écrit :

 
Spa con, v regarder comment le code de php est foutu, g jamais foutu les mains dedans :D  




 
C'est assez illisible les premières minutes, puis tu verras, font chier avec leur hashing pour tout (mais alors tout) :D  
 
Mais dans l'ensemble c'est pas trop compliqué leurs sources  ;)


---------------
Informaticien.be - Lancez des défis à vos amis
n°154991
antp
Super Administrateur
Champion des excuses bidons
Posté le 09-06-2002 à 16:00:01  profilanswer
 

joce a écrit a écrit :

 
Spa con, v regarder comment le code de php est foutu, g jamais foutu les mains dedans :D  




 
[:totoz] si c'est comme avec la glibc on est mal barrés


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°154992
joce
Architecte / Développeur principal
&#034;BugHunter&#034;
Posté le 09-06-2002 à 16:00:30  profilanswer
 

Mouarf, c'est quoi ce nom :
 
T_PAAMAYIM_NEKUDOTAYIM
 
:lol:


---------------
Protèges carnets personnalisés & accessoires pour bébé
n°154993
joce
Architecte / Développeur principal
&#034;BugHunter&#034;
Posté le 09-06-2002 à 16:01:05  profilanswer
 

Zion a écrit a écrit :

 
 
C'est assez illisible les premières minutes, puis tu verras, font chier avec leur hashing pour tout (mais alors tout) :D  
 
Mais dans l'ensemble c'est pas trop compliqué leurs sources  ;)  




pour le peu que j'ai vu c'était plutôt simple :heink:


---------------
Protèges carnets personnalisés & accessoires pour bébé
n°154994
zion
Plop
Posté le 09-06-2002 à 16:02:29  profilanswer
 

joce a écrit a écrit :

 
pour le peu que j'ai vu c'était plutôt simple :heink:  




 
Ouai mais ils ont l'art de se couper les cheveux en 4 pour tout ce qui est échanges de paramètres  :sarcastic:
 
EDIT: Mais bon, on s'en fout en fait ici  :D
 
EDIT': Tiens, ils foutent <br /> sinon t'étais cuit pour ton xhtml


Message édité par zion le 06-09-2002 à 16:04:47

---------------
Informaticien.be - Lancez des défis à vos amis
n°154995
joce
Architecte / Développeur principal
&#034;BugHunter&#034;
Posté le 09-06-2002 à 16:06:03  profilanswer
 

'tain y zont du se faire pour le parser yacc


---------------
Protèges carnets personnalisés & accessoires pour bébé
n°155005
antp
Super Administrateur
Champion des excuses bidons
Posté le 09-06-2002 à 16:17:54  profilanswer
 

Tiens t'es pas en XHTML strict au fait ?


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°155010
zion
Plop
Posté le 09-06-2002 à 16:25:13  profilanswer
 

joce a écrit a écrit :

'tain y zont du se faire pour le parser yacc  




 
Ouai, mais j'ai pas vu leurs fichiers pour le générer, ca pourrait être drôle à lire  [:banzai]


---------------
Informaticien.be - Lancez des défis à vos amis
n°155014
joce
Architecte / Développeur principal
&#034;BugHunter&#034;
Posté le 09-06-2002 à 16:33:39  profilanswer
 

antp a écrit a écrit :

Tiens t'es pas en XHTML strict au fait ?  




non veut pas perdre le target="_blank" :D


Message édité par joce le 06-09-2002 à 16:33:53

---------------
Protèges carnets personnalisés & accessoires pour bébé
n°155018
Floleb7
Fiché au grand banditisme
Posté le 09-06-2002 à 16:36:09  profilanswer
 

un truc assez intéressant c'est en double cliquant sur le code ça fait un ctrl c auto


---------------
« La boîte du logiciel disait que j'avais besoin de "Windows 95 ou mieux" - alors j'ai acheté un Mac. »
n°155020
sisicaivra​i
Life is Beautifullll
Posté le 09-06-2002 à 16:36:46  profilanswer
 

joce y voo gate kan maim  [:ddr555]


---------------
blog dessins + srtCleaner | Ricoh R6 | K20d | MK-wii 5112-3549-9484 | en phase de déblablatisation depuis le 26 avril 2002 | Belgian Connection
n°155022
antp
Super Administrateur
Champion des excuses bidons
Posté le 09-06-2002 à 16:38:35  profilanswer
 

Floleb7 a écrit a écrit :

un truc assez intéressant c'est en double cliquant sur le code ça fait un ctrl c auto  




 
? c'est-à-dire ?


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°155032
Floleb7
Fiché au grand banditisme
Posté le 09-06-2002 à 16:46:53  profilanswer
 

http://www.bearfacts2.com/forum/sh [...] hreadid=22
 
un exemple c'est plus significatif


---------------
« La boîte du logiciel disait que j'avais besoin de "Windows 95 ou mieux" - alors j'ai acheté un Mac. »
n°155039
antp
Super Administrateur
Champion des excuses bidons
Posté le 09-06-2002 à 16:58:24  profilanswer
 

C'est sencé marcher dans Mozilla ? Ou bien c'est un truc pour IE seulement ? :D
Parce que là je vois rien de special, il se passe rien quand je double-clique


Message édité par antp le 06-09-2002 à 16:58:43

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
mood
Publicité
Posté le   profilanswer
 

 Page :   1  2  3  4  5  6  7  8
Page Suivante
Page Précédente
Haut de page 

Aller à :
Ajouter une réponse
 

Sujets relatifs
Ou trouver un forum SVP?probleme avec mon forum phpbb
cherche desespérement forum[PHP / JS / MYSQL ] Mon forum version 0.28b ON LINE ! [UPDATE 0.8b]
[PHP] forum, plusieurs possibilités pour la BD mais quelle prendre?[PHP] FORUM et COOKIES
Erreur avec un menu deroulant sur un forum XMB[php] faire un forum???
/!\ Attn: Tous - Modif dans le forum - Sous-catégories /!\["PHP si on veut"] - nouveaux post d'un forum
Plus de sujets relatifs à : Enhancement du forum

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.085 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR