Fehler bei Dateneingabe

[snboy2010]

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 gekommen

Code:

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 := StrToFloat(Edit4.Text);
    end
  else
  decimalseparator := '.';
   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 := StrToFloat(Edit4.Text);
    end
  else
    decimalseparator := ',';
   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 := StrToFloat(Edit4.Text);
    end
    else
    begin
      ShowMessage('Bitte Zahlen zur Eingabe verwenden!');
    end;

[DeddyH]

Zitat:

if TryStrToFloat(Edit6.Text,aktpreis)

Wenn das klappt, steht in aktpreis bereits der Wert, die spätere Zuweisung

Zitat:

aktpreis := StrToFloat(Edit6.Text);

ist also komplett überflüssig. Das wurde aber auch bereits mehrfach erwähnt.

[mkinzler]

@Detlef: Er scheint unseren Fähigkeiten nicht genügend zu trauen, um uns zu glauben.

[DeddyH]

Der Hilfe scheint er auch nicht zu trauen (sofern er sie denn gelesen hat).

[rollstuhlfahrer]

So, das muss ich jetzt mal loswerden:

Mir ist es ganz egal, wie anfängerhaft du agierst. Aber zuerst uns zurechtweisen wollen und dann nicht auf die nachgereichten Hinweise reagieren wollen, ist nicht nur Dreist sondern auch noch Frech obendrauf.

Zitat von snboy2010:

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 gekommen

Eigenlob stinkt nicht nur, sondern es ist auch an dieser Stelle nicht angebracht. Wenn du mal hochscrollst (über deinen eigenen Beitrag, ja da ist noch was), dann steht da eine Lösung, die besser für dein Problem geeignet ist.

Bernhard

[snboy2010]

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

Code:

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 habt. Aber man hat doch deutlich gemerckt, dass hier einer Anfragt, der keine von Programmieren hat und es nur für die Schule macht. Die Art und Weise wie hier geantwortet wurde, hat bei mir das Gefühl ausgelöst ausgelacht zu werden und die Tipps, die Ihr mir geschrieben habt habe ich so gut wie nicht verstanden.
Ich z.B. mache es so: Ich habe Ahnung von Autos. Eigentlich viel Ahnung. Wenn im Forum einer eine Frage hat und ich darauf die Antwort kenne, dann Antworte ich ihm mit einer Schritt für Schritt Anleitung und erkläre dabei was das alles bedeutet.
Aber trozdem Danke.

[DeddyH]

Hier wird niemand ausgelacht (mit gaaaanz wenigen Ausnahmen). Und wenn Du etwas nicht verstehst, kannst Du in die Hilfe schauen und bei Bedarf nachfragen. Dass Du Anfänger bist, kann Dir ja niemand vorwerfen, fehlende Eigeninitiative hingegen schon