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
 
ichnixwissen

Registriert seit: 11. Mär 2009
26 Beiträge
 
#1

Stringgrid einlesen

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


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 13:44 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