Hmm, wollte aber eigentlich nur Inhalt von Eingabefeld1 einlesen, Sachen verändern und in Eingabefeld2 ausgeben.
Habe nun jeweils die Felder als Variable deklariert und verändert.
Habe ein Prolem bei ein anderen Aufgabe. Es soll ein Timer sein, jedoch komme ich nicht weiter.
Edit1 und Edit2 liegen halt übereinander, damit es für den Anwender nicht sichtbar ist.
Wollte das in Edit1 die Angaben in Minuten gemacht werden, dann Umrechnen in Sekunden, und Restzeit wieder in Minuten und Sekunden ausgeben und wenn es unter 1 Sekunde ist den PC herunterfahren.
Jedoch klappt es als Delphi Neuling überhaupt nicht
Delphi-Quellcode:
unit TimerTest;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;
type
TForm1 =
class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Button1: TButton;
Timer: TTimer;
Edit2: TEdit;
procedure TimerTimer(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.TimerTimer(Sender: TObject);
var x = INTEGER;
x := Edit1;
var y = INTEGER;
y := Edit2;
var sek = INTEGER;
sek := x*60;
begin
sek = sek - 1;
y = sek;
end;
IF y < 1
THEN
BEGIN
ExitWindowsEx(EWX_SHUTDOWN,0);
END
ELSE
BEGIN
"Timer nicht ordnungsgemäßg ausgeführt"
END;
end.