Schleife zum Wiederholen eines Sources

[davidwittesz]

Delphi-Quellcode:

unit Unit1;
interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

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

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
  w : hWnd;
  e : Integer;
begin
 // Externes Programm oeffnen
   while w<>0 do begin
    ShellExecute(0, PChar ('open'), 'C:\Programme\InternetExplorer\IEXPLORE.EXE','', '',SW_SHOWMIMIMIZED);
  for i := 0 to 10 do
  begin
      Label1.Caption := IntToStr(i);
      Label1.Repaint;
      // Pause (in msec)
      Sleep(500);
  end;

  // Externes Programm oeffnen
  w := FindWindow(NIL,'about:blank - Microsoft Internet Explorer');

  if W<>0 then
    PostMessage(W, wm_close, 1, 1);
end;

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

end.

[edit=MrSpock]Code Tags eingefügt und Leerzeilen gelöscht[/edit]


WIE KANN ICH DEM PROGRAMM SAGEN DAS ES VON VORNE ANFANGEN SOLL?


[edit=MrSpock] Mfg, MrSpock[/edit]
[edit=sakura]Überschrift auf Kleinbuchstaben geändert. Mfg, sakura[/edit]

[chris01]

Timer!?

[MrSpock]

Hallo davidwittesz,

in der Regel benutzt man dazu eine Schleife:

Delphi-Quellcode:

repeat
{ hier den Code, der wiederholt werden soll }
until aufhoeren;

aufhoeren muss natürlich irgendwann einmal auf True gesetzt werden, sonst hast du eine Endlosschleife.

[edit=MrSpock]Willkommensgruß vergesseb [/edit]

Herzlich willkommen im Delphi-PRAXIS Forum.

[davidwittesz]

wie muss ich den repead befeht einbringen das der prozess vom ersten begin bis zum letzten end; immer und immer wieder wiederholt wird biss ich auf einen butten clicke ?

[CalganX]

Hi,
theoretisch kann dein Source gar nicht funktionieren, weil ein end; fehlt, dass zur while-Schleife gehört.

Chris

[MrSpock]

Hallo davidwittesz,

wenn du so etwas machen möchtset, bieten sich Threads an. Du erstellst einen Thread, den du solange laufen lässt, bis ein bestimmtest Event (z.B. das Drücken eines Schalters passiert. Das wichtige ist ja hierbei, dass während dein "Thread läuft" noch ein anderer Thread (das Hauptprogramm) aufpassen musst, wann die Bedingung zum Abbruch erfüllt ist.

[davidwittesz]

wie sieht den so ein thread aus ? die while schleife ist hier nicht zu beachten die habe ich vergessen zu endfernen, das war der erste versuch das programm zu wiederholen.

danke das ihr alle so fleißig antwortet


--------------------------------------------------------------------------
david

[MrSpock]

Hallo davidwittesz,

die Online Hilfe erklärt das Prinzip recht gut.

Du leitest eine neue Klasse von TThread ab. Das wichtigste ist die Execute Methode, die du überschreibst:

Delphi-Quellcode:

TMyThread = class(TThread)
    private
      { private-Deklarationen }
      protected
    procedure Execute; override;
   end;

...
procedure TMyThread.Execute;
begin
  while Not Terminated do
  { Deinen Code einfügen, der wiederholt werden soll }
 end;

Das Hauptprogramm terminiert (Arnie lässt grüßen ) den Thread auf Knopfdruck:

Delphi-Quellcode:

procedure THauptForm.Button1Click(Sender: TObject);
begin
  MyThread.Terminate;
end;

[davidwittesz]

er gibt mir bei



TMyThread= class(TThread)

folgende Fehlermeldung: Expected ':' but '=' found.


wenn ich das = durch einen : ersetze gibt er mir die Meldung:

Expected an identifier but CLASS found


und nu ???

-------------------------------------------------------------------------
jeder mag mich nur mein computer rebelliert!!!!!!

whitey

[Uncle Cracker]

Du musst auch vor TMyThread= class(TThread) ein ';' setzten, also so:

Code:

TForm1 = class(TForm);
TMyThread = class(TThread)
    private
      { private-Deklarationen }
      protected
    procedure Execute; override;
   end;

...
procedure TMyThread.Execute;
begin
  while Not Terminated do
  { Deinen Code einfügen, der wiederholt werden soll }
end;