Stringgrid einlesen

[ichnixwissen]

Es sind 4 Stringgrids auf einer Form und in den stringgrids sollen daten aus verschiedenen Dateien geladen werden. Aber es wird nichts in den stringgrids angezeigt.

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;
  datei: file of Teintrag;   // Datei ist die Datei von Teintrag
eintrag: Teintrag;

implementation

{$R *.dfm}

procedure TForm19.FormCreate(Sender: TObject);
begin
if FileExists(z +'.kt5') then begin
AssignFile(datei,z +'.kt5');   // wird diese Datei geöffnet
 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;
     closeFile(datei);         // die Datei wird geschlossen
      end;

if FileExists(z +'.kt6') then begin
AssignFile(datei,z +'.kt6');   // wird diese Datei geöffnet
 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; closeFile(datei);         // die Datei wird geschlossen
      end;

if FileExists(z +'.kt7') then begin
AssignFile(datei,z +'.kt7');   // wird diese Datei geöffnet
 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; closeFile(datei);         // die Datei wird geschlossen
      end;

 if FileExists(z +'.kt8') then begin
 AssignFile(datei,z +'.kt8');   // wird diese Datei geöffnet
 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; closeFile(datei);         // die Datei wird geschlossen
      end;
end;

end.