Anfängerprobleme

[qwertz543221]

fürs timing gibt es eine komponente ttimer mit intervallangabe etc.

in dessen procedure kannst du abläufe in regelmäßigen abständen laufen lassen


zb

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

//hier kannst du auch eigene procedure oder function definieren

   procedure machwas;
   function machwasneues:string;


  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  i:integer;
implementation

{$R *.dfm}


procedure tform1.machwas;
begin
showmessage('habe etwas gemacht');
end;

function tform1.machwasneues:string;
begin
showmessage('habe etwas neues gemacht');
result:='fertig';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Enabled:=false;
timer1.Interval:=10;
i:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
i:=0;
timer1.Enabled:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
machwas;
memo1.lines.add(machwasneues);
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
if i<=20
  then
  begin
  memo1.Lines.add(inttostr(i)); //inttostr für ganze zahlen - Ausgabe
                               //floattostr für kommazahlen - ausgabe
  i:=i+1;
  end
    else timer1.Enabled:=false;
end;

end.

so ich habe dir noch zwei beispiele für funktionen(mit rückgabewert) und prozeduren(ohne rückgabewert) gegeben, sie werden alle nach dem selben schema benutzt (deklariert und aufgerufen).

wie du siehst zeigen die punkte hinter bezeichnern weitere optionen an.

bsp komponente: timer1
weiterer befehl: enabled
verbindung der beiden: timer1.enabled:=true;//oder false;