Forum: Sonstige Fragen zu Delphi
Delphi
by Nikolas,
27. Feb 2007
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
string1: string;
begin
string1:=edit1.text;
//allgemeine Sperrung von allen Zeichen ausser
//backspace, (-) , (,) und Zahlen
if not (key in) then key:=#0;
Forum: Sonstige Fragen zu Delphi
Delphi
by Nikolas,
27. Feb 2007
Ich habe mal den Code für ein Editfeld, dass nur korrekt eingegebene Zahlen zulässt in der Codelibrary veröffentlicht, den kannst du für deine Zwecke anpassen.
Forum: Sonstige Fragen zu Delphi
Delphi
by Nikolas,
27. Feb 2007
Deine Schreibweise ist recht unverständlich, aber es sieht so aus, als hättest du es verstanden. :mrgreen: Falls es sich um eine Hausaufgabe handelt, solltest du bei der Abgabe natürlich erklären können, wie du auf die Formel gekommen bist.
Auf jeden Fall sieht diese Lösung doch deutlich eleganter aus, als deine Schleife, die einmal recht lange dauert und in der du bei den ganzen Operationen...
Forum: Sonstige Fragen zu Delphi
Delphi
by Nikolas,
26. Feb 2007
Der reicht auch völlig. Such mal nach Log-Gesetzen, da wirst du ein Gesetz finden, wie du so einen Ausdruck auch mit dem ln berechnen kannst. (Besser gesagt, mit Log-Funktionen zu beliebiger Basis)
Forum: Sonstige Fragen zu Delphi
Delphi
by Nikolas,
26. Feb 2007
Das x steht für die Meter und das ^ ist das Zeichen für Potenzierung also die Höhe auf 1000m ist dann P(1000m)=P0*
Forum: Sonstige Fragen zu Delphi
Delphi
by Nikolas,
26. Feb 2007
Ich hab meinen Beitrag eben noch erweitert. Die gegebene Form für den Druck kannst du mit den Log-Gesetzen recht schnell und ohne Schleifen einzusetzen, nach x auflösen.