natürlicher logaritmus von x

[MasterTobi]

hey
also:
die funktion:

Delphi-Quellcode:

function Ln(const X: Extended): Extended;

es heißt sie berechnet den natürlicher logaritmus von x
ich muss ja irgendwie x angeben oder
also wenn ich in einer function x:=edit1.text eingebe geht es ja nicht
wie kann ich dann x eine zahl zuweisen?

[Apollonius]

Diese Konvertierungsfragen gab es in letzter Zeit ziemlich oft. (Try)StrToFloat(Def) sind deine Freunde.

[MasterTobi]

ok was willst du mir damit sagen

Delphi-Quellcode:

procedure TForm2.Button7Click(Sender: TObject);
var a:string;
begin
edit1.Text /ln(2)(a);
end;

[Fehler] Unit2.pas(221): E2066 Operator oder Semikolon fehlt

mit ;
[Fehler] Unit2.pas(221): E2010 Inkompatible Typen: 'string' und 'Extended'

müsst doch eig auch so gehen oder?

[Apollonius]

Wie wäre es, wenn du uns sagst, was du machen willst? :) Es schien mir eben so, als wollest du den natürlichen Logarithmus aus dem Wert eines Edit-Feldes ziehen. Da ln extended erwartet, müsstest du den Feldwert mit StrToFloat umwandeln.

[MasterTobi]

also
ich will einfach die anzahl der stellen von dezimal in dual

in der mathematik:
bsp.
dezimalzahl =11

umwandlung in die stellen

2^n =11 /log
log 2^n =log 11
n log 2 = log 11 / :log2
n=log11:log2
n = 3,45 runden 4

anzahl der stellen 4

[MasterTobi]

ich weiß is kompliziert

so gehts auch nicht:

Delphi-Quellcode:

procedure TForm2.Button7Click(Sender: TObject);
var a:string;

begin
a:= edit1.Text ;

ln (2);Strtofloat(a);

edit6.text:=a;
end;

[Dax]

Hast du überhaupt eine Ahnung, wie die Delphi-Syntax aussieht? :gruebel:

Wenn nicht: http://dsdt.info/grundlagen/sprache/syntax.php

[Neutral General]

MasterTobi. Ich würde dir empfehlen dir erst mal einige Grundlagen anzueignen. StrToFloat ist eine Funktion. Ein StrToFloat(a) das so in der Gegend rumsteht bringt dir genau gar nichts.

Delphi-Quellcode:

var x: Double;
x := StrToFloat(a);

ergibt da schon mehr sinn. Aber wie gesagt: Eigne dir mal ein paar Grundlagen an sonst wird das nichts ;)

Gruß
Neutral General

[g0rmed]

Um dir in dem Falle mal ne komplette Antwort zu geben:

Delphi-Quellcode:

procedure TForm.Button1Click(Sender: TObject);
begin
Label1.Caption := FloattoStr(ln(StrtoFloat(Edit1.Text)));
end;

ok...?...menno

Aber trotzdem solltest du dir mal tutorials zu Delphi anschauen.

[s-off]

Zitat:

Zitat von g0rmed

Um dir in dem Falle mal ne komplette Antwort zu geben:

dann solltest Du darauf achten, dass es nicht eine komplett Falsche ist.

Zitat:

Zitat von g0rmed

Label1 := FloattoStr(Edit1.Text);

Sowohl vor als auch nach dem Zuweisungszeichen und in sich selbst und überhaupt :wall:

1. Erfolgt die Zuweisung an die Caption des Labels
2. Brauchst Du bei Zuweisung eines Strings zu einer String-Eigenschaft keine Umwandlung vornehmen
3. Wandelt FloatToStr einen Floattypen in einen String um - und die Text-Eigenschaft eines TEdit ist definitiv nicht vom Typ Float.
4. Auch wenn Du korrekterweise 'StrToFloat' geschrieben hättest, so könntest Du das Ergebnis dieser Umwandlung keiner Label.Caption zuweisen

Zitat:

Zitat von g0rmed

Aber trotzdem solltest du dir mal tutorials zu Delphi anschauen.

Edit: ahh, ich verstehe - daran liegt es :?

Zitat:

Zitat von g0rmed

Realität ist was für Leute, die nicht mit Drogen klarkommen^^

[g0rmed]

Ich finde das wirklich nicht nett...naja anstatt jemanden auf einen fehler aufmerksam zu machen kann man ihn natürlich auch erstmal runtermachen...
Und überhaupt was hat das was mit meiner signatur zu tun...?
Es war einfach nur mist, aber anstatt sowas (verständlich) zu korrigieren.

[s-off]

Hallo g0rmed,

entschuldige bitte - wusste nicht, dass Du so sensibel bist.
'Runtermachen' wollte ich Dich nicht, ansonsten hätte ich mich anders ausgedrückt.

Sicherlich hast Du recht, wenn Du meinst, dass der 'Ton' den ich hier angeschlagen habe etwas anderes vermuten lassen könnte.

Das kommt wahrscheinlich daher, dass ich Deinen Auftritt a la 'So, hier komme ich und liefer Dir erstmal die Musterlösung - und hey, lies Dir erstmal nen Tutorial durch' nicht so toll fand, als ich ihn las.

Naja, und meine Stimmung schlägt sich gelegentlich dann auch schonmal in meinen Texten nieder.

Nichts für Ungut.

Und bzgl. Deiner Signatur - denke mal darüber nach, was da für ein Schwachsinn drin steht.

Edit:
Probier es lieber morgen nochmal, denn

Zitat:

Zitat von g0rmed

Label1.Text := ln(StrtoFloat(Edit1.Text));

ist noch immer falsch.

Edit2:
Ich sagte doch 'morgen'

Zitat:

Zitat von g0rmed

Label1.Text := FloattoStr(ln(StrtoFloat(Edit1.Text)));

ist auch noch falsch.

Aber ich bin ja nicht so - ein Label hat keine Text-Eigenschaft :wink:

Edit3:
gut, dass es Quotes gibt - ansonsten heisst es hinterher noch 'Hey s-off - was machst denn Du hier für einen Aufstand - ist doch alles korrekt, was der Junge dort oben geschrieben hat'.
Naja, noch haben wir diesen Status ja nicht erreicht.

[g0rmed]

Arg.... :wall:

Naja...nun habe ich ausgeschlafen...und alles wird klarer.
Hey, ich bin nicht nachtragend und es ist schon ok...hatte mich ja nun wirklich nen bisschen wie der obermacker hingestellt. obwohl das bestimmt nicht meine absicht war.

So, nun allen noch einen ruigen und gemütlichen sonntag morgen/mittag :love:

ps: ich ändere die antort nun noch ein letztes mal...und ich stand nicht unter irgendwelchen drogen...omg

[s-off]

:wink: :wink: :wink:

[MasterTobi]

ich danke euch

hab´s jetzt rausgefunden "juhu"

Delphi-Quellcode:

procedure TForm2.Button7Click(Sender: TObject);
var a,x:extended;
b,c:string;
begin
c:=edit1.text;
x:=strtofloat(c);
a:=Ln(x) / Ln(2);
b:=floattostr(a);
edit6.text:=b;

[freddiiii]

einfach xD
dachte immer dies sei ein delphi-forum und kein comedy-fourm ;)

[s-off]

[OT]

Hallo,

Zitat:

Zitat von freddiiii

einfach xD

nur, weil dieses Thema für Dich gerade kein Problem darstellt, bedeutet das nicht, dass das auch für jede andere Person gilt.
Desweiteren sind wir hier nicht bei einer Bewertungsshow :wall:

Zitat:

Zitat von freddiiii

dachte immer dies sei ein delphi-forum und kein comedy-fourm ;)

Die Komödie spielst Du gerade.
[/OT]

[freddiiii]

Zitat:

Zitat von s-off

Die Komödie spielst Du gerade.

ErnstToSpaß(Mach ich doch gern ;))

SpaßToErnst(Aber sorry, ich programmier selbst noch nicht lange in Delphi, da kann ich zwar Verständnisprobleme nachvollziehn, aber sorry Tobi fragt prinzipiell immer das selbe. Und wenn jemand 1000 ma das selbe Fragt und zu faul ist mal zu googlen was die Fehlermeldungen bedeuten, kann ich dafür kein Verständnis mehr zeigen ;))

[MasterTobi]

sag ma hast du jetzt ein problem nur weil ich frag was das heißt????

manche menschen versteh ich einfach net

[s-off]

Zitat:

Zitat von MasterTobi

sag ma hast du jetzt ein problem nur weil ich frag was das heißt????

Mach Dir nichts draus :wink:
Dafür weiß er nicht, dass Umlaute, 'ß' etc. in Methodennamen nicht funktionieren :stupid:

[Sharky]

So,

und jetzt bitte wieder zurück zum Thema. Danke.

[freddiiii]

Zitat:

Zitat von MasterTobi

manche menschen versteh ich einfach net

ich merks ;) bös gemeint solls aber nicht sein kleiner =)

und @ s-off xD ich seh du verstehst dochn bissi spass ;)

*duck* zurueck zum thema ;)