Forum: Object-Pascal / Delphi-Language
by DeddyH,
24. Mai 2008
n muss integer sein und Du musst dann IntToStr verwenden.
Außerdem fehlt noch ein end;
Forum: Object-Pascal / Delphi-Language
by DeddyH,
24. Mai 2008
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:function SumFromStrings(const s: TStrings): double;
var i: integer;
begin
Result := 0;
for i := 0 to s.Count - 1 do
Result := Result + StrToFloat(s);
end;
Der...
Forum: Object-Pascal / Delphi-Language
by DeddyH,
24. Mai 2008
Das sind Fließkommazahlen? Dann etwas anders:
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);
summe := summe + zahl;
Forum: Object-Pascal / Delphi-Language
by DeddyH,
24. Mai 2008
Zeig mal Deinen Code, ich kann nicht hellsehen.
Forum: Object-Pascal / Delphi-Language
by DeddyH,
24. Mai 2008
Also gut, für die Summe:Summe := 0;
for i := 0 to Memo.Lines.Count - 1 do
inc(Summe,StrToInt(Memo.Lines));
Wobei Du eine Fehlerbehandlung selbst implementieren musst, das nehm ich Dir nicht auch noch ab ;)
Forum: Object-Pascal / Delphi-Language
by DeddyH,
24. Mai 2008
for i := 0 to Memo.Lines.Count - 1 do...
Die erste Zeile hat immer den Index 0, die letzte Zeile daher den Index Anzahl - 1.