Dc pr la preimere je crois ke oui...
//Procedure de reinitialisation du fichier texte
function TTXTObjet.MAJfichier : integer;
var
F:textfile;
begin
assignfile(F,main.frmprincipal.OpenDialog1.filename);
//FichierExist est une fonction ki verifie si le fichier Existe;)
if FichierExist = 1 then
begin
rewrite(F);
closefile(F);
result := 1;
end
else
begin
showmessage('Le Fichier ' +frmprincipal.OpenDialog1.FileName +' n''a pas ete Trouve');
result := 0;
end;
end;
|
C t juste pr te montrer ke tu peux te servuir d'un fichier text ;) Now sert toi de l'aide!!!
Pr la deuxième, aide toi ossi de l'aide, avec Time, Date, et je c plus koi... mais il doit saisir une date, tu peux directement mettre un : DateTimePicker, ou un :MonthCalendar
Comme ca il peuvent po faire de gaffe... et meme si il en font tu peux verifier le date k'il choisissent avec la date du jours ;)