Schleife zum Wiederholen eines Sources
Delphi-Quellcode:
[edit=MrSpock]Code Tags eingefügt und Leerzeilen gelöscht[/edit]
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. WIE KANN ICH DEM PROGRAMM SAGEN DAS ES VON VORNE ANFANGEN SOLL? :cat: [edit=MrSpock] Mfg, MrSpock[/edit] [edit=sakura]Überschrift auf Kleinbuchstaben geändert. Mfg, sakura[/edit] |
Re: SCHLEIFE ZUM WIEDERHOLEN EINES SOURCES
Timer!?
|
Re: SCHLEIFE ZUM WIEDERHOLEN EINES SOURCES
Hallo davidwittesz,
in der Regel benutzt man dazu eine Schleife:
Delphi-Quellcode:
aufhoeren muss natürlich irgendwann einmal auf True gesetzt werden, sonst hast du eine Endlosschleife.
repeat
{ hier den Code, der wiederholt werden soll } until aufhoeren; [edit=MrSpock]Willkommensgruß vergesseb :mrgreen:[/edit] Herzlich willkommen im Delphi-PRAXIS Forum. |
Re: SCHLEIFE ZUM WIEDERHOLEN EINES SOURCES
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 ?
|
Re: SCHLEIFE ZUM WIEDERHOLEN EINES SOURCES
Hi,
theoretisch kann dein Source gar nicht funktionieren, weil ein end; fehlt, dass zur while-Schleife gehört. Chris |
Re: SCHLEIFE ZUM WIEDERHOLEN EINES SOURCES
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. |
Re: SCHLEIFE ZUM WIEDERHOLEN EINES SOURCES
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 :D -------------------------------------------------------------------------- david :cat: |
Re: SCHLEIFE ZUM WIEDERHOLEN EINES SOURCES
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:
Das Hauptprogramm terminiert (Arnie lässt grüßen :mrgreen:) den Thread auf Knopfdruck:
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;
Delphi-Quellcode:
procedure THauptForm.Button1Click(Sender: TObject);
begin MyThread.Terminate; end; |
Re: SCHLEIFE ZUM WIEDERHOLEN EINES SOURCES
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 :cat: |
Re: SCHLEIFE ZUM WIEDERHOLEN EINES SOURCES
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; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:59 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz