Mit delphi rechnen bzw addieren

Computer: Software & Programmierung Delphi & Pascal
#1

hallo
ich hab eine datei die sieht so aus bzw ein ausschnitt

datum…zeit…RI
091025 03:00 1 29 162 111,4 13,5 98 125 8 22 52
091025 03:00 2 29 167 113,5 14,1 99 127 1 5 22
091025 03:00 1 29 138 112,9 12,8 99 125 7 20 30
091025 03:00 2 29 142 115,0 15,0 99 129 1 6 15

jetzt muss ich die 1. mit der 3. und die 2. mit der 4. Zeile verrechnen.

die 1. Zahl muss addiert werden, also 29+29, die 2-6 müssen auch addiert werden und dann durch 2 dividiert werden. 7-ende müssen wieder nur addiert werden.

hat jemand eine idee, wie ich das am besten mache?

#2

Hallo,

Das schwierige ist wohl, die Datei gescheit einzulesen. Wie’s aussieht, ist das eine Text-Tabelle mit konstanten Spaltenbreiten. Da würde ich die Datei zeilenweise mit ReadLn in einen String einlesen und dann mit Copy die Teilstrings rausholen und mit Val oder mit StrToFloat in Zahlenwerte umwandeln, die man dann ja einfach addieren, subtrahieren usw. kann.

LG
Jochen

#3

hat jemand eine idee, wie ich das am besten mache?

Ich weiss nicht, ob dir das was hilft, aber am besten machst du das mit Excel.

Gruss Reinhard

#4

Hallo,

offensichtlich handelt es sich NICHT um eine Textdatei mit fester Spaltenbreite.
Du kannst entweder die Datei zeilenweise einlesen und mit Pos nach den Leerzeichen suchen oder Du nimmst eine StringList. Die hat zwei Eigenschaften Delimiter (das Trennzeichen; hier also das Leerzeichen) und DelimitedText (Der Text, der in einzelne Items aufgespalten werden soll).
Wenn Du dem DelimitedText einen String zuweist, wird er in seine Einzelteile zerlegt und in der StringList gespeichert. Auf die kannst Du dann über den Index zugreifen und mit StrToFloat etc konvertieren.

Die Funktionsweise kannst Du anschaulich sehen, indem Du eine Anwendung zusammenklickst, bestehend aus einem TEdit, einem TMemo und einem TButton.
In das OnClick-Ereignis des Buttons schreibst Du:

 Memo1.Lines.Delimiter := ' ';
 Memo1.Lines.DelimitedText := Edit1.Text;

Wenn du im Editfeld einen Leerzeichengetrennten String eingibst und auf den Button drückst, erscheint die Liste im Memo.
Zwei Zeilen Code, die viel Arbeit abnehmen.

Gruß, Niels

#5

Ok danke für die Antworten

Nee das muss mit Delphi gemacht werden.Das ist ein Teil von einem Programm