-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by snboy2010,
21. Jan 2011
Fehlende Eigeninitiative auch nicht. Ich bin immerhin selber auf die Lösung gekommen. Zumindest funktioniert es so.
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by snboy2010,
21. Jan 2011
Also, hätte ich eure Lösungen verstanden, hätte ich diese auch benutzt. Aber das einzige worauf ich gekommen bin, war meine Lösung.
Das mit dem Überflüssig von aktpreis := StrToFloat(Edit6.Text); keine Ahnung. Als ich es rausgenommen habe, wurde eine Fehlermeldung angezeigt und das Programm lief nicht.
Als Fazit möchte ich sagen: Ertsmal möchte ich mich dafür bedanken, dass Ihr geantwortet...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by snboy2010,
20. Jan 2011
So ICH HAB'S!!! Sieht zwar nicht gut aus und man merkt, dass es von einem deutlichen Anfänger gemacht wurde, aber die Lösung erfühlt alle meine Vorraussetzungen. Und ich bin selber darauf gekommen8-)
procedure TForm1.Button1Click(Sender: TObject);
var aktpreis, ver100ben, jahrkm, ausgabevbj, ausgabebkj : double;
begin
if TryStrToFloat(Edit6.Text,aktpreis) and...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by snboy2010,
20. Jan 2011
Fazit. Nicht nur ich, sondern keiner hier wusste eine richtige Lösung für das Problem. Und nur Tipps oder Ansätze helfen einem Anfänger wie mir nicht wirklich weiter. Aber ist ja auch egal. Trozdem Danke!
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by snboy2010,
19. Jan 2011
geht nicht. immer der gleiche fehler
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by snboy2010,
19. Jan 2011
Das Problem bleibt immer noch bestehen.
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by snboy2010,
19. Jan 2011
Wenn Sie es so meinen:
procedure TForm1.Button1Click(Sender: TObject);
var aktpreis, ver100ben, jahrkm, ausgabevbj, ausgabebkj : double;
begin
if TryStrToFloat(Edit6.Text,aktpreis) and TryStrToFloat(Edit3.Text,ver100ben)
and TryStrToFloat(Edit4.Text,jahrkm) then
begin
aktpreis := StrToFloat(Edit6.Text);
ver100ben := StrToFloat(Edit3.Text);
jahrkm :=...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by snboy2010,
19. Jan 2011
Wie soll ich es machen? Wie lautet jetzt die Syntax?
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by snboy2010,
19. Jan 2011
Welche Vorgehenweise denn?
Egal, ich lass es sein. Gebe die Aufgabe so ab. Dann werden mir hoffentlich nur Punkte für Unvollständigkeit abgezogen.
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by snboy2010,
19. Jan 2011
Das ist ja nicht das Ziel der Aufgabe. Man soll sowohl die Eingabe mit , als mit . durchführen können.
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by snboy2010,
19. Jan 2011
Ohh man. Ich kapiere überhaupt nichts mehr. Welche Schritte? Ich habe es versucht mit StrinReplace dann mit diesem Decimalseparator und alles anderem. Es läuft nicht. Keine Ahnung ob ich vielleicht nur die Syntax falsch schreibe oder was auch immer.
Programmieren ist absolut nicht meine Stärke. Ich mache das nur, weil es in der Schule ein Unterricht dafür gibt. Ich glaube, nachdem dieses...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by snboy2010,
19. Jan 2011
Wäre es möglich, dass jemand mir hier dieses hinschreibt? Ich komme nicht drauf, wie und was ich jetzt bei mir im Queltext ändern muss:(
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by snboy2010,
19. Jan 2011
Wo finde ich diese TFormat.Settings? Außerdem will ich doch, dass beide Varianten laufen. Man soll die Eingabe sowohl mit . als auch mit , schreiben können.
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by snboy2010,
18. Jan 2011
Hier bis jetzt das gesamte Programm: function VerbrauchBenzinJahr(ver100ben, jahrkm : double): double;
begin
result := ver100ben * jahrkm / 100;
end;
function BenzinkostenJahr(aktpreis, ausgabevbj : double): double;
begin
result := aktpreis * ausgabevbj;
end;
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by snboy2010,
18. Jan 2011
eingentlich nicht. Mal so eine Idee:
Ich kann ja mit decimalseparator := '.'; den Punkt festlegen kann ich auch schreiben punkt oder komma? also z.b. so: decimalseparator := '.' or ',';
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by snboy2010,
18. Jan 2011
Das habe ich ja probiert. Funktioniert nicht. Kommt folgende Fehlermeldung: 1.51 Is not a valid floating point value
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by snboy2010,
18. Jan 2011
Geht nicht, da die Variablen vom Datentyp double sind und wenn ich diese in ein String umwandele, funktioniert das ganze Programm nicht mehr.
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by snboy2010,
18. Jan 2011
und wie?
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by snboy2010,
18. Jan 2011
Ok. Habe es so gelöst procedure TForm1.Button1Click(Sender: TObject);
var aktpreis, ver100ben, jahrkm, ausgabevbj, ausgabebkj : double;
begin
if TryStrToFloat(Edit6.Text,aktpreis) then
begin
//ShowMessage('Ungültige Eingabe');
aktpreis := StrToFloat(Edit6.Text);
end
else
begin
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by snboy2010,
18. Jan 2011
Sprich ich muss diese SysUtils in den Queltext implemetieren?
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by snboy2010,
18. Jan 2011
Hallo. Ok ich habe es jetzt so gemacht:
var aktpreis, ver100ben, jahrkm, ausgabevbj, ausgabebkj : real;
begin
aktpreis := tryStrToFloat(Edit6.Text);
Es kommt aber die folgende Fehlermeldung:
There is no overloaded version of 'TryStrToFloat' that can be called with these arguments.
Muss ich TryStrToFloat irgendwo definieren? Sorry aber programmieren ist nicht meine Stärke. Ich mache...
-
Forum: Algorithmen, Datenstrukturen und Klassendesign
by snboy2010,
18. Jan 2011
Hallo. Ich habe ein folgendes Problem. Schreibe gerade ein Programm. Der Queltext für den Button sieht so aus:
procedure TForm1.Button1Click(Sender: TObject);
var aktpreis, ver100ben, jahrkm, ausgabevbj, ausgabebkj : real;
begin
aktpreis := StrToFloat(Edit6.Text);
ver100ben := StrToFloat(Edit3.Text);
jahrkm := StrToFloat(Edit4.Text);
ausgabevbj :=...