Discussion :

[Lorenzo77]

salut,

vous connaissez un bon tuto en Français pour creer une classe delphi ?
le genre de tuto bien detaillé et bien expliqué .. si possible.
je dois juste essayé de creer une classe simple, sans parent, elle va chronometrer des actions.
a chaque fois que j'ai essayé je me suis completement ramassé ... c'est pas aussi simple que le PHP

merci

[Laurent Dardenne]

Salut,
consulte celui-ci il est trés bien fait :
http://delphi.developpez.com/cours/complet/

[cadetill]

Salut

Je ne connais pas aucun tuto, mais la classe est "simple"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
unit Unit2;
 
interface
 
type
  TCrono = class
  private
    FTime: cardinal;
    function GetTickDiff(const AOldTickCount, ANewTickCount: Cardinal): Cardinal;
  protected
    property Time: cardinal read FTime write FTime;
  public
    procedure Start;
    function Stop: cardinal;
  end;
 
implementation
 
uses
  Windows;
 
{ TCrono }
 
function TCrono.GetTickDiff(const AOldTickCount,
  ANewTickCount: Cardinal): Cardinal;
begin
  if ANewTickCount >= AOldTickCount then
    Result := ANewTickCount - AOldTickCount
  else
    Result := High(Cardinal) - AOldTickCount + ANewTickCount;
end;
 
procedure TCrono.Start;
begin
  Time := GetTickCount;
end;
 
function TCrono.Stop: cardinal;
begin
  Result := GetTickDiff(Time, GetTickCount);
end;
 
end.

Bien sur, tu dois l'améliorer

A+

[Lorenzo77]

merci les gars, sympa l'exemple mais je vais essayé de l'enlever de mon esprit pour tenter de le faire seul et si je n'y arrive pas je reviendrais jeter un coup d'oeil