Moin Leute,
kleine easy frage(ich wusste es mal selbst habs aber wieder vergessen):
ich will nen zeitmesser in mein Prog. einbauen. Also, nen Timer, der misst, wie lange der Rechner braucht um die Procedure,
oder überhaupt die Anwendung auszuführen. Schreibe nen simples Prog. kennt ihr bestimmt alle, geht um scheiben auf Türme zu verschieben.
hier der Quellcode(Timer soll in Button eingebaut werden):
----------------------------------------------------------------------------------------------------------------------
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Edit1: TEdit;
Button1: TButton;
ListBox1: TListBox;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
procedure baue_um(n:integer;p1,p2,p3:char);
procedure Button2Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
i:integer = 0;
implementation
{$R *.dfm}
procedure tform1.baue_um(n:integer;p1,p2,p3:char);
begin
if n>0
then
begin
baue_um(n-1,p1,p3,p2);
i:=i+1;
listbox1.Items.add(inttostr(i)+'
.'+'
'+p1+'
--->'+p2);
baue_um(n-1,p3,p2,p1);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var n:integer;
begin
i:=0;
n:=strtoint(edit1.text);
listbox1.clear;
baue_um(n,'
A','
B','
C');
end;
-------------------------------------------------------------------------------------------------------------------------
[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]
Zitat
Baum-Darstellung
