simples problem :/ integer wert

[schmerzbegrenzer]

servuß

ich bin neu und wiedereinsteiger in delphi, hab vor nem halben jahr angefangen aber es geht mir so wie bei latein vokabeln...

zum prog: zur übung will ich ein programm coden, dass drei mal durch editfelder ein zahl in ne var speichert und diese dann am ende addieren und durch die zahl der editfelder teilen, in dem fall drei.

aber irgendwie schneide ich noob da nicht ganz so mit

beispiel für ein editfeld, phy is die var

phy := StrtoInt(Edit3.Text); dann der button der das gewünschte ausführt

Delphi-Quellcode:

erg := (deu + phy + eng) / 3;
Memo1.Lines.Add(erg);

aber dann kommt :

Zitat:

inkompatible typen: 'integer' und 'extended'

schlagt mich tod, aber für meine dummheit kann ich nichts

danke im vorraus

[bigben37]

Du teilst eine Zahl durch 3, und da ist es schon wahrscheinlich, dass eine Kommazahl herauskommt. Ein Integerwert ist aber eine Ganzzahl. Also rundest du entweder die Zahlmit Round() oder du teilst es mit div (Grundschul-Geteilt). Mit mod bekommst du dann den Rest heraus.

Eine andere Möglichkeit wäre auch, wenn du "erg" als Real deklarierst.

Edit: Herzlich Willkommen in der DP

[mkinzler]

Was für einen Typ hat erg?
Wenn Integer dann
erg := (deu + phy + eng) DIV 3; Oder besser als Extended deklarieren

Memo1.Lines.Add(erg); wird so auch nicht funktionieren

Memo1.Lines.Add(IntToStr(erg)); bzw.
Memo1.Lines.Add(FloatToStr(erg));

[schmerzbegrenzer]

erg ist als integer deklariert

aaah DIV, noch nie gehört , warum ist das nicht mit / möglich?

Noch eine frage, ich habe einen button mit clear funktion, der soll das memo und die drei editfelder löschen. wenn ich aber compile, dann kommt ein error: EConverterror : '' ist kein gültiger integer wert

ich denke mal das liegt daran weil im editfeld nichts drin steht

ich habe versucht das so zu lösen

 if edit1.text = '' then edit1.text := '1' oder so ähnlich

[Satty67]

/ ist schon möglich, genauso wie DIV. Nur das Ergebnis kann dann eine reelle Zahl sein (Kommazahl), dafür passte Dein erg nicht und Pascal hat die Angewohnheit solche Fehler nicht zu ignorieren.

 if edit1.text = '' then edit1.text := '1' oder StrToIntDef nehmen, dann kannst Du leere oder ungültige Textfelder z.B. als 0 auswerten lassen.

[Desmulator]

Zitat von schmerzbegrenzer:

aaah DIV, noch nie gehört , warum ist das nicht mit / möglich?

Ganz einfach, weil du mit / eine richtige Teilung durchführst. 4 geteilt durch 3 ist keine Ganzzahl mehr sondern sogar eine periodische Kommazahl. ( Fließkommazahl ) Ein Integer kann nur Zahlen wie 1, 2, 5, 16, 4854687 speichern, bei 1.3 kommst du an seine Grenzen, darum musst du einen anderen Datentyp nehmen, nämlich eine Fließkommazahl. Davon gibt es genau 3 Stück in Delphi, Single, Double und Extended. Sie unterscheiden sich von der Funktion hier nicht, nur in ihrer Genauigkeit. An deiner Stelle sollte ein Single vollkommen reichen.

Delphi-Quellcode:

var
  erg : Single;

Dann sollte es gehen, allerdings funktioniert dann IntToStr nicht mehr, weil du keinen Integer mehr hast, sondern ein Float ( kurzform für FloatpointNumber = Fließkommazahl ).
Darum musst du logischer Weise FloatToStr benutzen.

[Satty67]

Zitat von Desmulator:

3 Stück in Delphi, Single, Double und Extended.

Real48, Comp und Currency als Sondertypen nicht zu vergessen.

[schmerzbegrenzer]

ok danke

ich hab jetzt erg als real deklariert aber geändert hat sich nichts

wie meinst du StrToIntDef? jetzt auf ne var, zb phy bezogen?

[mkinzler]

Zitat:

ich hab jetzt erg als real deklariert aber geändert hat sich nichts Shocked

Zeig mal den kompletten Code

Zitat:

wie meinst du StrToIntDef? jetzt auf ne var, zb phy bezogen?

Ja, wenn der String nicht konvertiert werden kann, wird der angegebene Standardwert verwendet.

[schmerzbegrenzer]

danke schonmal für die antworten

ok hier der source mit float für erg deklariert

Delphi-Quellcode:

var
  Form1: TForm1;
  deu, eng, phy: integer;
  erg : float;
  Key : Char;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin
deu := Strtoint(Edit1.text);
if Edit1.Text = '' then
Edit1.Text := '1'
end;

// hier die anderen beiden editfelder drin

procedure TForm1.Button1Click(Sender: TObject);
begin
erg := (deu + phy + eng) DIV 3;
Memo1.Lines.Add(floattostr(erg));
end;