Hallo Motu,
ich möchte die etwas korrigieren
Zitat:
Du hast mir ja Deine Dienste angeboten
Ich hatte dir meine Hilfe bei Problemen angeboten. Ich kann nicht dir dein Programm schreiben. Aber ich kann dir Hilfen, daß du deine Aufgabe lösen kannst. Wenn du so willst, sehe mich als Coach an.
Zum Fachlichen deines Beitrags: (in den vorherigen Beträgen wurde dazu bereits Source Code beschrieben)
1) Öffne die Datei mit AssignFile(filevar, dateiname) und Reset(filevar).
2) Lese die Daten mit Readln(filevar, stringbuffer) ein.
3) Lese jede Spalte mit seinem Feld ein und konvertieren die Stringabbildungen in Real-Zahlen.
4) Speichere die Zahlen jeder Zeile in ein eigenes Objekt mit dem Namen "TMessdaten". Das Objekt enthält als Objekteigenschaften und damit lokale Variablen die jeweiligen Spalten deiner Datei als Realzahlen.
Delphi-Quellcode:
TMessdaten = class(object)
private
...F_spaltennamen: Real;
public
property ...spaltennamen: Real
read F_spaltennamen write F_spaltennamen
end;
5) Speichere das Objekt mit dem TList-Objekt der
VCL in einer internen Liste ab.
Delphi-Quellcode:
FList := TList.Create;
repeat
...zeile aus datei einlesen...
FMessdatenzeile := TMessagen.Create;
FList.Add(FMessdatenzeile);
FMessdatenzeile.spaltenname := StringInZahl(HoleZahlEinerSpalte(eingeleseneZeile));
until EOF(filevar);
...nun daten mit der internen darstellung beliebig bearbeiten...
for i := 0 to FList.Count-1 do
begin
TMessdaten(FList.Item[i]).spaltenname .... berechnen, verrechnen etc.
....
end;
6) Am Ende der Datei, schließe die Datei mit CloseFile(filevar).
Nun kannst du die Daten in deiner internen Liste, die pro Eintrag nun deine Zahlen einer Zeile enthält schnell und einfach bearbeiten.
Grüße Kay