Thema: Delphi Quelltext

Einzelnen Beitrag anzeigen

Benutzerbild von Matze
Matze
(Co-Admin)

Registriert seit: 7. Jul 2003
Ort: Schwabenländle
14.929 Beiträge
 
Turbo Delphi für Win32
 
#24

Re: Quelltext

  Alt 2. Nov 2004, 20:57
Ich sehe auch kein problem, evtl noch einen richtigen Antwortsatz, aber sonst sollte es doch gehen. SIngle ist vielleicht etwas unglücklich gewählt:

Delphi-Quellcode:
var
  Form1: TForm1;
  ergebnis, zahl1: real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  zahl1 := StrToFloat(Edit1.text);
  ergebnis := zahl1 * 13/100 ;
  //evtl noch runden:
  ergebnis := round(ergebnis * 100) / 100;
  Label2.Caption := FloatToStr(zahl1) + ' PS sind ' + FloatToStr(ergebnis) + ' kW';
end;
  Mit Zitat antworten Zitat