Daran habe ich auch gedacht Moombas allerdings wollte ich ihn auch die Freiheit geben in Minuten oder in Sekunden zu schreiben.
Mittlerweile bin ich dazu gekommen. Ich wollte zuerst mit integer arbeiten allerdings beim hochrechnen hat er dann logischerweise
immer einen Fehler gegeben. Jetzt ist der Code mit float. Allerdings gibt er mit jetzt einen Fehler wenn ich was eingebe und dann
das Feld wieder Lösche jemand ne idee. Und nebenbei ich weiß das ist nicht die eleganteste lösung aber sie macht das was ich brauche.
Nebenbei habe ich das mit der Zahl nicht hinbekommen deswegen habe ich einfach ein Label erstellt dem ich die Caption 60 gegeben habe;
Das werde ich wahrscheinlich im nachhinein einfach visible fals stellen.
Code:
procedure TForm1.Edit1Change(Sender: TObject);
begin
edit2.Text := floattostr (strtofloat(edit1.Text) * strtofloat(label7.caption));
end;
procedure TForm1.Edit2Change(Sender: TObject);
begin
edit3.Text := floattostr (strtofloat(edit2.Text) * strtofloat(label7.caption));
edit1.Text := floattostr (strtofloat(edit2.Text) / strtofloat(label7.caption));
end;
procedure TForm1.Edit3Change(Sender: TObject);
begin
edit2.Text := floattostr (strtofloat(edit3.Text) / strtofloat(label7.caption));
end;
Noch eine zusätzliche kleine Frage weiß einer wie ich das hinbekomme denn auf diese weiße funktioniert es nicht.
Der inhalt des edit Feldes wird nicht ausgelesen.
Code:
ShellExecute(0, nil, 'cmd.exe', '/k shutdown -s -f -t (edit3.text) & exit', nil, SW_SHOWNORMAL);