Le mini-logiciel Ardoise
denisbertin
Messages postés
245
Date d'inscription
lundi 22 avril 2013
Statut
Membre
Dernière intervention
13 mai 2023
-
31 déc. 2015 à 00:05
cs_pseudo3 - 16 févr. 2016 à 11:11
cs_pseudo3 - 16 févr. 2016 à 11:11
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/101322-le-mini-logiciel-ardoise
https://codes-sources.commentcamarche.net/source/101322-le-mini-logiciel-ardoise
16 févr. 2016 à 11:11
Un responsable très compétent a du passer par ici et corriger l'anomalie car depuis hier celle-ci a disparu...
A+.
15 févr. 2016 à 13:28
15 févr. 2016 à 10:59
Vérification faite : la même anomalie est reproduite pour toutes les sources publiées ici.
A+.
15 févr. 2016 à 10:53
Il y a un truc qui m'intrigue : Aujourd'hui le 15/02/2015 il est affiché plus haut pour cette source : Téléchargée 762 fois,
et sur l'écran d'accueil par lequel on passe avant d'arriver ici il n'en est mentionné que 204 : on dirait que le logiciel qui gère ce site se mélange les pinceaux.
A+.
24 janv. 2016 à 12:05
23 janv. 2016 à 20:23
Tu peux vérifier, à chaque fil de commentaires fermé il y a un source supprimé.
http://codes-sources.commentcamarche.net/forum/s/q/denisbertin
23 janv. 2016 à 20:13
Mais je suis intrigué par l'utilite de "if false then " dans les expressions du genre :
if false then box(0,pchar(sr.Name));
dans :
procedure Sous_Lecture_des_fichiers_minecraft(name:pchar);
begin
strcat(strcat(get_exe_path(apc_repertoire),name),'*.bmp');
if SysUtils.findfirst(apc_repertoire,FileAttrs, sr) = 0 then
repeat
if false then box(0,pchar(sr.Name));
get_exe_path(apc_nom_du_fichier);
strcat(strcat(apc_nom_du_fichier,name),pchar(sr.Name));
if false then box(0,apc_nom_du_fichier);
if FileExists(apc_nom_du_fichier) then
begin
self.collection_minecraft.Add(Ardoise.Tmy_Bitmap.Create(strpas(apc_nom_du_fichier)));
writeln(un_fichier_installation,'Source: "'+strpas(name)+sr.Name+'"; DestDir: "{app}\'+strpas(name)+'";');
end;
until (SysUtils.FindNext(sr) <> 0);
SysUtils.FindClose(sr);
end;