Probleme mit einem Rechner

[Patrick162]

Tach.

Als erster, sry, falls ich hier in der Falschen Sektion gepostet habe.


So kommen wir mal zu meinem Problem.

Ich wollte einen Rechner programmieren, um Kreise auszurrechen.
Also den Umfang, Durchmesser, Radius und Flächeninhalt.

Leider komme ich nicht mehr weiter, da ich immer Fehlermeldungen bekomme...

Ich hoffe ihr könnt mir helfen, hier der Source.Code:

Delphi-Quellcode:

unit Kreisberechnung;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  r, u, d, A: extended;
  lol, ergebnis1, ergebnis2, ergebnis3, ergebnis4: string;
  pi: extended;


implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
r := strtofloat(Edit1.Text);
u := strtofloat(Edit2.text);
d := strtofloat(Edit3.Text);
A := strtofloat(Edit4.Text);
pi := floattostrf(3.14159265358);

ergebnis1 := 2*  pi * r;
Label12.Caption := ergebnis1;
end;
end.

Greets Patrick

[stifflersmom]

Auch ohne Deine Fehlermeldung zu kennen...
Du hast pi als String deklariert und versuchst damit in Deiner Formel zu rechnen,
das kann so nicht funktionieren.
Und ein Label kann nur einen String darstellen, eine Zahl dafür müsstest Du also erst in einen String umwandeln.
Moin

[Matze]

Hallo Patrick,

herzlich Willkommen!

Es wäre gut, wenn du uns sagen würdest, welche Fehler du wo genau erhälst.

Wie mir scheint fehlen dir auch einige Delphi-Grundlagen. Hier kannst du diese durcharbeiten. Denn sowas wie

Delphi-Quellcode:

pi := floattostrf(3.14159265358);

kann nicht gehen. Pi ist nicht als String deaklariert, was auch blödsinnig wäre, daher musst du da auch nichts konvertieren. Richtig und viel einfacher wäre

Delphi-Quellcode:

pi = 3.14159265358;

bzw. die Unit Math in den uses einzubinden, dann kannst du Pi direkt nutzen.


Edit: Auch wenn sich der Inhalt meines Beitrags mit dem von stifflersmom ähnelt, habe ich ihn dennoch abgesendet aufgrund des Hinweises der fehlenden Grundlagen.

[brinkee]

Hoi,

na, schau Dir doch bite an, welche Typen deine Variablen haben... Du versuchst einem String den Wert einer Rechenoperation mit Float-Werten zuzuweisen. Das kann ja nicht klappen...

Delphi-Quellcode:

FloatToStr()

wird Dir helfen...

Wo, das musst Du selber rausfinden. Sind ja kein Hausaufgaben-Erledigungs-Forum...

LG, Markus

[DeddyH]

Hallo,

willkommen in der DP :dp:

1. Die Konstante Pi ist bereits definiert (Unit System).
2. Du kannst eine Extended (als Ergebnis einer Berechung) nicht an einen String zuweisen.

Delphi-Quellcode:

ergebnis1 := 2*  pi * r;

Versuch es mal so:

Delphi-Quellcode:

ergebnis1 := Format('%.2f',[2*  pi * r]);

[brinkee]

Was soll den so'n Scheiß?

[Mark90]

Zitat:

Zitat von brinkee

Was soll den so'n Scheiß?

hasch recht

[Patrick162]

Zitat:

Zitat von brinkee

Was soll den so'n Scheiß?

Frag ich mich auch xD




So, hier ist das bild mit Source:

http://www.imagebanana.com/view/k9qng560/Delphi.JPG

Jetzt kommt nur noch eine Fehlermeldung, aber ich weiß nicht wie ich die wegbekommen kann.

[brinkee]

Du versuchst, einen String in einen Float zu konvertieren...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
r := strtofloat(Edit1.Text);
u := strtofloat(Edit2.text);
d := strtofloat(Edit3.Text);
A := strtofloat(Edit4.Text);
pi := 1.34;

ergebnis1 := FloatToStr(2*  pi * r);
Label12.Caption := ergebnis1;
end;

Sieh Dir doch bitte für solche Fragen mal zu allererst an, welche Variable welchen Typ hat und wie Du die Typen ineinander umwandeln kannst, was welchert Typ kann. Das man mit Strings nicht rechnen kann erscheint doch logisch, oder?

LG, Markus

(edit) P.S.: 15 ist doch das Alter, in dem man Informatikunterricht das erste Mal in der Schule hat, oder? Lass' Dich nicht verleiten, Dir deine Probleme in Foren lösen zu lassen. Es gibt immer genug Leute, die Dir gerne helfen und aus Ungeduld - so wie ich gerade - die fertige Lösung hinposten. Wenn Du auch nur ansatzweise was aus dem Unterricht mitnehmen willst, dann versuche Dir ein Buch zu packen und es Dir anzulernen..

[DeddyH]

Zitat:

Zitat von brinkee

Delphi-Quellcode:

pi := 1.34;

Das war mir neu ;)