Quelltext

[freak4fun]

Code:

var 
  Form1: TForm1; 
  zahl1, ergebnis : single; 
implementation 

{$R *.dfm} 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  zahl1 := StrToFloat(Edit1.text); 
  ergebnis := zahl1 * 13/100 ; 
  Label2.Caption := FloatToStr(zahl1) + 'sind ' + FloatToStr(ergebnis); 
end; 

end.

Zahl1 := Umwandeln von einem String in eine Zahl vom Typ Single, wobei der String vom Edit1 stammt

Das Ergebnis, auch vom Typ Single, ergibt sich indem man die Zahl1 mit 13/100 Multipliziert

Der Text (Caption) von Label2 ergibt sich indem man die Zahl1 und das Ergebnis wieder in Strings (Text) umwandelt

Das alles passiert wenn man den Button drückt.

Was willst du mehr?

mfg
freak