Warten-Befehl

[flobus]

Moin, :hello:
ich hab ein Programm zum ausgeben von Daten über den Parallelport geschrieben und wollte nun noch einen "warten-Befehl" bevor die Daten gesendet werden einfügen.
Hab ich auch schon mit sleep(100) ausprobiert, aber beim Compilieren sagt der pc immer Unbekannter Bezeichner.

:arrow: Hier der Quellcode:

Delphi-Quellcode:

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
sleep(100)
port[888] :=1
end;

Ich weis noch nicht so viel über Delphi. :wall:
Kann mir bitte jemand sagen was falsch ist.
Oder gibt es noch eine andere Methode um das Programm für eine besimmte Zeit aufzuhalten?
Bitte helft mir.

mfg Florian B.

[jfheins]

Nach (fast) jeder Anweisung muss ein Semikolon kommen :!:

Aber sleep müsste eigentlich bekannt sein.

[DGL-luke]

ja, die sleep-methode hält alles an. allerdings brauchst du dann noch ein ';' nach dem sleep.

sie hält aber dann alles an: deine anwendung reagiert nicht mehr.

besser ist es, einen TTimer zu nehmen.

bei dem im ontimer das port[888]:= reinschreiben und noch dazu ein timer1.enabled:=false;

und dann, wenn du in den port schreiben willst, die anzahl an millisekunden die du warten willst ins timer1.interval und timer1.enabled:=true setzen.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender:TObject);
begin
port[888]:=1;
timer1.enabled:=false;
end;

procedure portout;
begin
timer1.interval:=100;
timer1.enabled:=true;
end;

[jfheins]

Oder gleich Delay ;)

[flobus]

Danke erst mal für eure Bemühungen! :thumb:

mit sleep(100);
hab ich auch wieder den gleichen Fehler.

Bei delay gibt der pc auch den gleichen Fehler aus.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender:TObject);  //hier wieder unbekannter Bezeichner
begin
port[888]:=1;
timer1.enabled:=false;
end;

procedure portout;
begin
timer1.interval:=100;
timer1.enabled:=true;
end;

Der "Warten-Befehl" muss ausgeführt werden, wenn ich einen RadioButton aktiviere.
Geht das?

Ich bin ers 13 Jahre alt und hab Delphi aus dem Buch Turbo Pascal und Delphi programmieren, wie die Profis. Weis einer was in dem Buch für eine Version enthalten ist? (Screenshot im anhang)
Es könnte ja auch an der Version scheitern. Ich hab da keine Ahnung!
Im Bereich von Delphi Info steht nur "Borland Delphi Copyright (C) 1983-95".

Bitte helft mir. :wall:

[edit=Sharky]Delphi-Tags korrigiert. Mfg, Sharky[/edit]

[alzaimar]

Die Prozedur Sleep wird von der Unit Windows exportiert. Du musst also irgendwo in deinem Programm diese Unit importieren:

Delphi-Quellcode:

...
Uses ... Windows, ....;
...

Wenn Du eine Unit schreibst, dann gibt es zwei Möglichkeiten:
- Im interface-Teil
- Im implementation-Teil

[flobus]

Wo soll ich die einsetzen?
:wiejetzt:
Ich hab die mal so eingesetzt:

Delphi-Quellcode:

uses
  SysUtils, Wintype, .... , Windows;

Sagt dann aber, dass die Windows.DCU nicht gefunden werden konnte.
Muss ich die extra importieren oder so?

:gruebel:

[mirage228]

Zitat:

Zitat von flobus

Wo soll ich die einsetzen?
:wiejetzt:
Ich hab die mal so eingesetzt:

Delphi-Quellcode:

uses
  SysUtils, Wintype, .... , Windows;

Sagt dann aber, dass die Windows.DCU nicht gefunden werden konnte.
Muss ich die extra importieren oder so?

:gruebel:

Hi,

auf Deinem Screenshot sieht das nach Delphi 1 aus.
Da war die Unit Windows noch in "WinTypes" und "WinProcs" aufgeteilt.
Die letztere musst Du also noch einbinden.

mfG
mirage228

[Garfield]

In mehreren Online-Buchhandlungen habe ich nur "Turbo Pascal und Delphi für Kids" von Hans-Georg Schumann gefunden. Darin ist eine CD mit den Vollversionen von Turbo Pascal 7 für DOS und Delphi 1 enthalten.
http://fachbuecher.libri.de/shop/act...artiId=1441749

[flobus]

Hi,

Zitat:

von: mirage228
Hi,

auf Deinem Screenshot sieht das nach Delphi 1 aus.
Da war die Unit Windows noch in "WinTypes" und "WinProcs" aufgeteilt.
Die letztere musst Du also noch einbinden.

"WinTypes" und "WinProcs" sind schon eingebunden.

Delphi-Quellcode:

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, VBXCtrl, Switch;

was nun? :gruebel:

mfg Florian B. :coder: