AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Stringgrid einlesen

Ein Thema von ichnixwissen · begonnen am 14. Mär 2009 · letzter Beitrag vom 14. Mär 2009
Antwort Antwort
omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#1

Re: Stringgrid einlesen

  Alt 14. Mär 2009, 19:11
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.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:15 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz