1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:

unit Unit1;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
     Dialogs, Grids, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    MittelwerteStringGrid: TStringGrid;
    MaxWertLabeledEdit: TLabeledEdit;
    MaxZeitLabeledEdit: TLabeledEdit;
    ErgebnisseSpeichernButton: TButton;
    BeendenButton:             TButton;
    EinlesenButton:            TButton;
    MonatComboBox: TComboBox;
    TagComboBox:   TComboBox;
    MonatLabel: TLabel;
    TagLabel:   TLabel;
    procedure BeendenButtonClick(Sender: TObject);
    procedure EinlesenButtonClick(Sender: TObject);
    procedure ErgebnisseSpeichernButtonClick(Sender: TObject);
  private
    procedure DatumErfassen(Var Datum: String);
  end;

var Form1: TForm1;

implementation {$R *.dfm}
Uses DateioperationenSolar;

Var DateiDatum    : String;
    StundenMittel : TStundenMittel;
    Maximum       : TDatensatz;

procedure TForm1.BeendenButtonClick(Sender: TObject);
begin
  Application.Terminate
end;

procedure TForm1.EinlesenButtonClick(Sender: TObject);
Var Stunde : Integer;
begin
  DatumErfassen (DateiDatum);
  DatenEinlesen (DateiDatum, StundenMittel, Maximum);
  MaxWertLabeledEdit.Text := FloatToStr(Maximum.Wert);
  MaxZeitLabeledEdit.Text := IntToStr(Maximum.Stunde) + ' : ' +
                             IntToStr(Maximum.Minute);
  For Stunde := ersteStunde To letzteStunde Do
  Begin
    MittelwerteStringGrid.Cells [0,Stunde - ersteStunde + 1] := IntToStr(Stunde);
    MittelwerteStringGrid.Cells [1,Stunde - ersteStunde + 1] :=
                         FloatToStrF(StundenMittel [Stunde], ffNumber, 4, 0);
  End;
end;

procedure TForm1.ErgebnisseSpeichernButtonClick(Sender: TObject);
Var ErgebnisDatei: TextFile;
    ErgebnisdateiName: String;
begin
  DatenSpeichern (StundenMittel, Maximum, DateiDatum);
end;

procedure TForm1.DatumErfassen(Var Datum: String);
begin
  Datum := IntToStr (1 + TagComboBox.ItemIndex) + '_' +
           IntToStr (1 + MonatComboBox.ItemIndex);
end;

end.					

1:

283  0   7  0					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:

unit DateioperationenSolar;

interface

const
   ersteStunde = 7;
   letzteStunde = 19;

type
  TStundenMittel = array[7..19] of real;
  TDatenSatz = Record
               wert: real;
               Stunde: integer;
               Minute: integer;
               end;

procedure DatenEinlesen (D:string;s: TStundenMittel; M:TDatenSatz);
procedure DatenSpeichern (s: TStundenMittel; M: TDatenSatz; D: String);

implementation

procedure DatenEinlesen (D:string; s: TStundenMittel; M:TDatenSatz);
type TFeldtyp = array of string;
var solarfile: Textfile;
puffer: string;
i: integer;
n: integer;
zweipuffer: TFeldtyp;
laenge: integer;
drittpuffer: TFeldtyp;
wert: TFeldtyp;
ersteabschneidstelle: integer;
abschneidstelle: integer;
begin
  AssignFile(solarfile, D + '.dat');
  reset(solarfile);
    repeat
      Read (solarfile,puffer);
      Inc(n);
      zweipuffer[n]:= puffer;
      laenge := length(zweipuffer[n]);
      for i:= 1 to laenge do
        begin
          if zweipuffer[n] = '#9' then

            begin
              ersteabschneidstelle := abschneidstelle;
              abschneidstelle := i;
              drittpuffer[i] := copy(zweipuffer, ersteabschneidstelle, abschneidstelle);
            end;
        end;
    //drittpuffer := copy(zweipuffer);
    until EoF (solarfile);
    closefile(solarfile);
    for i:=1 to n do 
end;

procedure DatenSpeichern (s: TStundenMittel; M: TDatenSatz; D: String);
begin
end;

end.					

1:

Read (solarfile,puffer);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

ReadLn(solarfile, puffer);
// Ich lese eine Zeile
Volt := Copy(puffer, 1, Pos(#9, puffer) - 1);
// Ich kopiere von Position 1 bis ein Zeichen vor der Position des Tabs
// (der zweite Parameter ist die Länge des zu kopierenden Abschnitts).
Delete(puffer, 1, Pos(#9, puffer));
// Ich lösche dies inkl. des Tabs.
Delete(puffer, 1, Pos(#9, puffer));
// Dies wiederhole ich, die Angabe (die 0) muss ich ja vorher nicht auslesen.
ErsteZahl := Copy(puffer, 1, Pos(#9, puffer) - 1);
// Ich kopiere wieder alles bis vor dem nächsten Tab.

// Und wenn du das jetzt löschst bleibt ja schon nur die letzte Zahl noch übrig.					

1:

VoltInt := VoltInt+StrToInt (Volt);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

ReadLn(solarfile, puffer);
// puffer = '283  0   7  0'
// Volt = ''
// ErsteZahl = ''
Volt := Copy(puffer, 1, Pos(#9, puffer) - 1);
// puffer = '283  0   7  0'
// Volt = '283'
// ErsteZahl = ''
Delete(puffer, 1, Pos(#9, puffer));
// puffer = '0   7  0'
// Volt = '283'
// ErsteZahl = ''
Delete(puffer, 1, Pos(#9, puffer));
// puffer = '7  0'
// Volt = '283'
// ErsteZahl = ''
ErsteZahl := Copy(puffer, 1, Pos(#9, puffer) - 1);
// puffer = '7  0'
// Volt = '283'
// ErsteZahl = '7'					

1:
2:

if puffer(1) = 7 then //Greift man so auf den Puffer an 1. stelle zu?
VoltInt7 := VoltInt7+StrToInt(Volt);