Agenda hebdo

Soyez le premier à donner votre avis sur cette source.

Vue 7 894 fois - Téléchargée 1 704 fois

Description

Pour bien commencer l'année 2013 voici une mise à jour (refonte complète) d'un agenda avec gestion à la semaine
Universel, il gère les années à venir comme les années passées

Source / Exemple :


Main.dfm
uMini.dfm
HEBDO.dpr
hebdo.ico
gesth.pas
Main.pas
uMini.pas
HEBDO.res
Voir le zip :

Conclusion :


Un agenda de plus me direz vous !
Le but reste le principe de gestion des information à l'aide d'un TstringList

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
675
Date d'inscription
jeudi 17 avril 2008
Statut
Membre
Dernière intervention
19 février 2019
10
Bonjour Pierrefo
Bien sur tu as raison, à la mise à jour j'ai mis le dcu au lieu du pas
je modifie de suite
Messages postés
54
Date d'inscription
mardi 22 juin 2004
Statut
Membre
Dernière intervention
29 décembre 2008

Bonjour Dubois77,

Il pourrait être utile de joindre le fichier Systus.pas dans ton ZIP!
Sans doute un oubli lors de la dernière mise à jour.
Messages postés
3810
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
28 mai 2020
29
Salut Dubois77,

juste quelques mots sur ton unité fétiche Systus.pas

procedure INI(var O:TstringList);
begin
O := TstringList.Create;
end;
//--------------------------------------- FRE(O)
procedure FRE(var O:TstringList);
begin
O.Destroy;
end;

pour le premier si O est déjà crée pfuuut, fuite de mémoire
procedure INI(var O:TstringList);
begin
if Assigned(O) then
O.Clear
else
O := TstringList.Create;
end;

pour le deuxième c'est juste pas possible ... il ne faut jamais appeler destroy directement sinon le composant n'est pas correctement libéré.
Il faut appeler la méthode Free de l'objet qui elle appelle Destroy en interne.
procedure FRE(var O:TstringList);
begin
if Assigned(O) then
begin
O.Free;
O := nil;
end;
end;

à partir de D7 (je crois) on peut faire plus court:
procedure FRE(var O:TstringList);
begin
if Assigned(O) then
FreeAndNil(O);
end;

sinon pour fonction PosEx je te conseille de regarder du coté de FastCode:
http://fastcode.sourceforge.net/challenge_content/rtl_replcmnt_pkg.html

leurs codes font parties des nouvelles versions de Delphi c'est dire si ils sont bons.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.