Stringgrid einlesen

[omata]

Wenn du dir mal die Mühe gemacht hättest, deinen Quellcode ordentlich einzurücken, dann wäre dir auch aufgefallen, das das erste closefile innerhalb deiner Einleseschleife steht.

Delphi-Quellcode:

type 
  Teintrag = record   // die datentypen date und woerter werden in dem record Teintrag deklariert
    zahl:    string[20];
    zeit:    string[20];
    datum:   string[20];
    date:    string[20];
    woerter: string[20];
    zahl2:   string[20];
    zeit2:   string[20];
    datum2:  string[20];
    zahl3:   string[20];
    zeit3:   string[20];
    datum3:  string[20];
  end;

var
  Form19: TForm19;

implementation

{$R *.dfm}

var
  datei: file of Teintrag;   // Datei ist die Datei von Teintrag
  eintrag: Teintrag;

procedure TForm19.FormCreate(Sender: TObject);
begin
  if FileExists(z + '.kt5') then begin
    AssignFile(datei, z + '.kt5'); // wird diese Datei geöffnet
    try
      Reset(datei);
      while not eof(datei) do //solange die Datei nicht zu Ende ist...
      begin
        Read(datei, eintrag); // und die Datei gelesen
        with eintrag do
        begin // die Datei wird zurück gesetzt
          stringGrid1.Cells[0,1]:=datum;
          stringGrid1.Cells[1,1]:=zahl;
          StringGrid1.Cells[2,1]:=zeit;
        end;
      end;
    finally
      closeFile(datei); // die Datei wird geschlossen
    end;
  end;

  if FileExists(z + '.kt6') then begin
    AssignFile(datei, z + '.kt6'); // wird diese Datei geöffnet
    try
      Reset(datei); // die Datei wird zurück gesetzt
      while not eof(datei) do //solange die Datei nicht zu Ende ist...
      begin
        Read(datei, eintrag); // und die Datei gelesen
        with eintrag do
        begin
          stringGrid2.Cells[0,1]:=date;
          stringGrid2.Cells[1,1]:=woerter;
        end;
      end; 
    finally
      closeFile(datei); // die Datei wird geschlossen
    end;
  end;

  if FileExists(z + '.kt7') then begin
    AssignFile(datei, z + '.kt7'); // wird diese Datei geöffnet
    try
      Reset(datei); // die Datei wird zurück gesetzt
      while not eof(datei) do //solange die Datei nicht zu Ende ist...
      begin
        Read(datei,eintrag); // und die Datei gelesen
        with eintrag do
        begin
          stringGrid3.Cells[0,1]:=datum2;
          stringGrid3.Cells[1,1]:=zahl2;
          stringGrid3.Cells[2,1]:=zeit2;
        end;
      end; 
    finally
      closeFile(datei); // die Datei wird geschlossen
    end;
  end;

  if FileExists(z + '.kt8') then begin
    AssignFile(datei, z + '.kt8'); // wird diese Datei geöffnet
    try
      Reset(datei); // die Datei wird zurück gesetzt
      while not eof(datei) do //solange die Datei nicht zu Ende ist...
      begin
        Read(datei, eintrag); // und die Datei gelesen
        with eintrag do
        begin
          stringGrid4.Cells[0,1]:=datum;
          stringGrid4.Cells[1,1]:=zahl;
          stringGrid4.Cells[2,1]:=zeit;
        end;
      end; 
    finally
      closeFile(datei); // die Datei wird geschlossen
    end;
  end;
end;

end.