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