Interne Zahlendarstellung

[Apollonius]

Schau dir mal Edit.text an.

[g0dlike87]

Wenn du mir sagst wo ich die finde ;)

[Svenkan]

Delphi-Quellcode:

edit1.text:=edit2.text

damit der inhalt aus dem feld edit1 nach edit2 kopiert

[g0dlike87]

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 :D

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.

[Apollonius]

Das ist wohl superpseudiger Pseudocode. Meinst du nicht, dass du erst einmal eine Einführung zur grundsätzlichen Syntax in Delphi, z.B. die Deklaration von Variablen lesen solltest? Tutorials gibts genug...

[g0dlike87]

Joa werd ich mal machen ;)

[Svenkan]

Kleiner Tipp zur Variablendeklarierung:

Delphi-Quellcode:

var
sek,x,y: INTEGER; 
begin
x:=StrToInt(Edit1.text); 
y:=StrToInt(Edit2.text); 
sek:=x*60;

[inherited]

Variablentypen werden immernoch mit : separiert und String <> Integer ;)

[Svenkan]

Das kommt vom Copy+Paste mit einer Priese Aufmerksamkeit..:D
Habs ma berichtigt *g*

[Khabarakh]

Eieiei. Gerade bei Code für Anfänger bitte ein wenig auf die Äußerlichkeiten wie Codeeinrückung und Leerzeichen achten. Nur weil man selbst solch unlesbaren Code fabriziert, muss man das noch lange nicht an die nächste Generation weitergeben ;) .