Boite à astuces

Soyez le premier à donner votre avis sur cette source.

Vue 6 058 fois - Téléchargée 434 fois

Description

Ce programme permet d'obtenir les astuces contenu dans un fichier texte.
Ce type de programme est utilisé souvent dans les applications sous le nom d' "Astuce du jour".
Voici le code source :

Source / Exemple :


unit Unit1;

//Programme par Yoann
//http://www.delphipage.net/

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Shape1: TShape;
    Image1: TImage;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  Counter : Word;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.FormActivate(Sender: TObject);
Var F:TextFile;
inf:String;
Dummy:Byte;
begin
Randomize;
Dummy:=0;
AssignFile(F,ExtractFilePath(Application.ExeName)+'astuces.txt');
{$I-}
Reset(F);
{$I+}
if IoResult=0 then
begin
Repeat
Readln(F,inf);
inc(Dummy);
Until (Eof(F));
End;
CloseFile(F);
counter:=RANDOM(dummy);
AssignFile(F,ExtractFilePath(Application.ExeName)+'astuces.txt');
{$I-}
Reset(F);
{$I+}
if IoResult=0 then
begin
for Dummy:=1 to counter do Readln(F,inf);
Memo1.Text:=inf;
CloseFile(F);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
Var Dummy:Byte;
F: TextFile;
inf:String;
begin
Inc(counter);
AssignFile(F,ExtractFilePath(Application.ExeName)+'astuces.txt');
{$I-}
Reset(F);
{$I+}
if IoResult=0 then
begin
Dummy:=0;
Repeat
Readln(F,inf);
Inc(Dummy);
Until (Dummy>=counter) OR (EOF(F));
If EOF(f) Then
counter:=0;
Memo1.Text:=inf;
CloseFile(F);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
counter:=1;
end;

end.

Conclusion :


http://www.delphipage.net/

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
7
Date d'inscription
lundi 19 août 2002
Statut
Membre
Dernière intervention
6 octobre 2002

Simpa mais pas franchement utile, on ajoute ça dans nos progs (nan je rigole). Enfin c assez fun et ça pourrait servir. Je met 6
Messages postés
25
Date d'inscription
lundi 1 octobre 2001
Statut
Membre
Dernière intervention
28 juillet 2004

oui, je le connais, mais, ici tu peux mettre après la compilation du projet, les astuces dans le fichier texte.
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
28
Un excellent composant "Tip of the day" est disponible à l'adresse : http://www.undu.com/DN970301/00000071.htm

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.