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

[Nikolas]

Was noch fehlt:
- Abfrage, ob man aus dem Text überhaupt einen Float machen kann. (z.B. Fehleingaben wie 100mw)
da könntest du mal nach try..except schauen.

- Ich geh mal davon aus, dass du mit dem Schnipsel oben kw in ps umrechnen willst. Da ist es besser, wenn du es so schreibst: ergebniss:= eingabe * (1/0,753);
Deine 13/100 sollten eher 13/10 sein und dann ist es nur eine schlechte Näherung.

- Bei der Ausgabe einen ganzen Satz scheiben also:
caption:= 'floattostr(eingabe)+' ps sind' ...

- Gib dem Button einen Namen wie 'BPsInKw'

[glkgereon]

ja aber das einzige was falsch war war doch jetzt die 13/100, oder seh ich das jetzt falsch?

wo war denn jetzt dein problem? :?:

ich peil das grad nicht...

[Matze]

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;