unit Beispiel2;
interface
uses
Winapi.Windows,
Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls,
Vcl.Forms,
Vcl.Dialogs,
Vcl.StdCtrls;
type
TForm1 =
class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Button1: TButton;
Edit3: TEdit;
Label3: TLabel;
procedure EditKeyUp(Sender: TObject;
var Key: Word; Shift: TShiftState);
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Close
end;
procedure TForm1.EditKeyUp(Sender: TObject;
var Key: Word; Shift: TShiftState);
var kurs, euro, dollar: Single;
// Variablen, mit denen gerechnet wird
s:
string; code: Integer;
// Hilfsvariablen
begin
// Werte aus Editierfeldern in Variablen einlesen und prüfen:
Val(Form1.Edit1.Text, kurs, code);
// Kurs einlesen
if code <> 0
then Exit;
Val(Form1.Edit2.Text, euro, code);
// Euro einlesen
if code <> 0
then Exit;
Val(Form1.Edit3.Text, dollar, code);
// Dollar einlesen
if code <> 0
then Exit;
// Berechnungen mit den Variablen durchführen:
if Sender = Edit3
then euro := dollar * kurs
// dollar wurde eingegeben
else dollar := euro / kurs;
// euro oder kurs wurden eingegeben
// Werte der Variablen in den Editierfeldern anzeigen:
if Sender = Edit3
then // dollar geändert
begin
Str(euro:8:2,s); Form1.Edit2.Text := s;
// Anzeige von euro (8 Stellen,
// davon 2 Nachkomma)
end else // kurs oder euro geändert
begin
Str(dollar:8:2,s); Form1.Edit3.Text := s;
// sonst Anzeige von dollar
end;
end;
end.