einfache Addition...wie?

[TheMiller]

Hey,

also, ich habe ein Problem bei der Addition, da sie mit einer Schleife erfolgen soll. Ich habe ein Programm, indem man Geldbeträge buchen kann. Die Daten(Beträge) werden in einer Datei gespeichert und bei jeder Abfrage abgerufen. Nun möchte ich aber, dass das Programm den Gesamtbetrag ausrechnet. Nur ich weis nicht wie. Ich dachte mir, dass ich eine Variable nehme, die den Anfang des Memos mit den Beträgen bestimmt und eine Variable, die nicht definiert ist und das Ende darstellt. Bitte echt dringend um Hilfe...

PS: habe schon in der Suchfunktion geschaut und leider nichts passendes gefunden...

[Phantom]

Hi,

du musst erstma alle Zahlen mit (strtofloat) in kommazahlen umwandeln. Dann musst du eine Schleife schreiben, die dir alles ausrechnet. Dann musst du es nur noch in ein Editfeld eintragen.

Aber das mit der Schleife wüsste ich jetzt auch nciht. Sorry

Man(n) liest sich...

[TheMiller]

Hallo,

willkommen in der DP...

Also, danke für deine Antowort, aber ich weis leider auch nicht, wie das mit der Schleife geht.

Wäre cool, wenn mit jemand helfen könnte...

Danke im Vorraus

[Nicodius]

var A, x : Integer;
begin

For x := 0 to (zb.) 10 do

A(Variable..) := A(Damit A immer erweitert wird) + 10(oder wie auch immer)

If x = 10 then Label1.caption := IntToStr(A);
end;

-----
Hoffe geholfen zu haben! Nicodius

[Stanlay Hanks]

Hi! Also im Zusammenhang mit Schleifen solltest du dir mal in der OH die Begriffe for, while und repeat anschauen. da sind meines wissens auch beispiele mit dabei. im Forum sollte sich zum thema Schleifen auch einiges finden. Du hast geschrieben, dass du deine Beträge in einer Datei speicherst. Nimmst du vielleicht eine Ini Datei?

Man liest sich, Stanlay :hi:

[TheMiller]

Nein, ich habe einfach folgenden Code benutzt um eine eigene Datei anzulegen:

Delphi-Quellcode:

Memo2.Lines.SaveToFile(ExtractFilePath(paramstr(0))+'\daten\Konto1.shd');

Lässt sich auch mit einem Editor öffnen und die Werte stehen drin. Sollte halt nur Professionell aussehen :)