Forum: Object-Pascal / Delphi-Language
by Portfreak,
22. Nov 2010
xD ist mir garnicht aufgefallen xDDD.
Danke!! Ihr seid cool ^^.
Forum: Object-Pascal / Delphi-Language
by Portfreak,
22. Nov 2010
Danke! Ihr seid die besten!
Allerdings gibt es Rechenfehler :(
Bei -> Folgt
1 -> nichts (ist ja richtig)
9 -> 8 (auch richtig)
18 -> 17 (falsch)
60 -> 59 (falsch)
Forum: Object-Pascal / Delphi-Language
by Portfreak,
21. Nov 2010
Also ich benutze den o.g. Code
procedure TForm1.Differenz;
var i : integer;
var k: double;
begin
k:=0;
for i:=0 to Memo1.Lines.Count-1 do begin
k := k + (StrToFloat(memo1.Lines)-(StrToFloat(memo1.Lines)));
Forum: Object-Pascal / Delphi-Language
by Portfreak,
21. Nov 2010
xD tut mir leid aber so bin ich aber xDDD
Eigentlich müssten vernüpftige Zahlen nach dem Schlefiendurchlauf herrauskommen, auch wenn es mehr als 2 Zeilen beinhaltet.
Da der Wert i sich ja jedesmal neu richtet. Durchlauf 1.(Zeile 1 - Zeile 0) Durchlauf 2.(Zeile 2 -Zeile 1) Durchlauf 3.(Zeile 3 - Zeile 2) usw.
Mit Memo2.lines.add(FloatToStr(k)) und Memo2.Text := FloatToStr(k)...
Forum: Object-Pascal / Delphi-Language
by Portfreak,
21. Nov 2010
Mit Memo2.Lines.Add funktionierts leider nicht. Habe alle möglichen varianten durchgespielt...
also
Memo2.Lines.Add(FloatToStr(e))
Memo2.Lines.Add('FloatToStr(e)')
Memo2.Lines.Add()usw..
nichts hat geklappt.
Forum: Object-Pascal / Delphi-Language
by Portfreak,
21. Nov 2010
Hallöchen!
So nun ist das eine Problem gelöst kommt das andere :D...
Ich versuche eine Differenzübersicht in Form eines Memofeldes zu generieren.
Dieser soll zwei Werte in einem Memofeld(1) voneinander subtrahieren (z.B. Eintrag 2. - 1.). -> Was soweit klappt.
Nun soll er diesen Wert in das Memofeld(2) übertragen. -> Was nicht klappt.
Zur Zeit bin ich soweit gekommen. Ich weiß, dass...