Summe, Mittelwert, min und max ermitteln...

[sqrt 9]

auch das haut nicht hin!!!!!

--> left side can not be assigned to...

[DeddyH]

Zeig mal Deinen Code, ich kann nicht hellsehen.

[sqrt 9]

procedure TForm1.Button1Click(Sender: TObject);
var summe, mitte, max, zahl, min:double;
i: integer;
begin
summe:=0;
for i := 0 to Memo1.Lines.Count - 1 do
zahl:=strtofloat(memo1.lines[i]);
inc(summe,{hier taucht die fehlermeldung auf}strtoint(memo1.lines[i]));
edit1.Text:=floattostr(summe);

end;

wofür ist das INC überhaupt?

[DeddyH]

Das sind Fließkommazahlen? Dann etwas anders:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var summe, mitte, max, zahl, min:double;
    i: integer;
begin
  summe:=0;
  for i := 0 to Memo1.Lines.Count - 1 do
    begin
      zahl:=strtofloat(memo1.lines[i]);
      summe := summe + zahl;
    end;
  edit1.Text:=floattostr(summe);
end;

[edit] Abschließendes end vergessen [/edit]

[sqrt 9]

es funktioniert!!!!!

und ich trottel habe das begin und end vergessen

thx a lot!!!!!!!

[xZise]

Hallo sqrt 9,
Inc ist eine Funktion welche den Wert der übergebenen Variable erhöht.
Standardmäßig ist das eins. (Inc = Increment)

Delphi-Quellcode:

x := 1;
Inc(x); // In x steht jetzt 2

Das ist das gleiche wie:

Delphi-Quellcode:

x := 1;
x := x + 1; // In x steht jetzt 2

Wenn du wie bei Deddy H aber um mehr als eins erhöhen möchtest, gibst du das im zweiten Parameter an:

Delphi-Quellcode:

x := 1;
Inc(x, 2); // In x steht jetzt 3 (x := x + 2)

Und das ist das gleiche wie:

Delphi-Quellcode:

x := 1;
x := x + 2; // In x steht jetzt 3

Also ganz allgemein:

Delphi-Quellcode:

x := 1;
Inc(x, n);

Delphi-Quellcode:

x := 1;
x := x + n;

Eine andere Sache übrigens: Verwende die Delphi-Tags:
[delphi]<Dein Delphicode>[/delphi]
Findest du auch als Button oben in der Mitte (du musst aber, wenn kein Text selektiert ist, auch ein zweites mal zum Schließen klicken).

Achso noch was: Wenn du etwas hinzufügen möchtest, dann editiere den Beitrag Da ist neben den Zitat-Button auch ein Edit-Button (bei deinen Beiträgen natürlich nur).

Und wo ich das gerade sehe:
Inc() funktioniert nur bei Ganzzahlen (Integer).
bei Gleit/Fließkommazahlen musst du das "manuell" machen.

[sqrt 9]

danke für dein sehr Lehrreiches Kommentar!!!

[DeddyH]

Außerdem sollte man die Logik von der Darstellung trennen, d.h. es wäre besser, sich für die einzelnen Anforderungen (Summe, Mittel, etc.) jeweils eine Funktion zu schreiben und diese dann aufzurufen. Beispiel für die Summe:

Delphi-Quellcode:

function SumFromStrings(const s: TStrings): double;
var i: integer;
begin
  Result := 0;
  for i := 0 to s.Count - 1 do
    Result := Result + StrToFloat(s[i]);
end;

Der Aufruf wäre dann z.B.Edit1.Text := FloatToStr(SumFromStrings(Memo1.Lines)); Wobei ungültige Zeilen hier nicht berücksichtigt werden.

[sqrt 9]

eine allerletzte frage hätte ich noch...

schon behoben...

[DeddyH]

n muss integer sein und Du musst dann IntToStr verwenden.
[edit] Außerdem fehlt noch ein end; [/edit]