Fehler beim Speichern???

[ichnixwissen]

Beim einlesen des Stringrids ließt er nur die erste Zeile ein und macht dann nicht weiter.

Delphi-Quellcode:

v:=0;
AssignFile(datei,z +'.kt');
 Reset(datei);
 m:=0;
  while not eof(datei) do
      begin
        m:=m+1;
    Read(datei,eintrag);
    with eintrag do
      begin
      stringGrid1.Cells[0,m]:= datum;
        stringGrid1.Cells[1,m]:=zahl;
        StringGrid1.Cells[2,m]:=zeit;
        Label8.Caption:= inttostr(m);
      end;
      end;
      closeFile(datei);
    v:= ((strtoint(Label8.Caption))+1);
    stringgrid1.Cells[0,v]:= Label7.Caption;
stringGrid1.Cells[1,v]:=label2.Caption;
StringGrid1.Cells[2,v]:=zeit.Caption;
end;
end;

[Reinhardtinho]

Weil du die Datei nach dem ersten Record schließt :mrgreen:

[BackOrifice]

-Gehts jetzt hier ums Speichern oder ums Lesen?

-Was ist m, was ist v?

-I/O Operationen setzt man in try..except + try..finally Teile.

-Gib den fucking Labels einen anständigen Bezeichner :/

-Je nachdem, was v ist (typisiert oder text), verhält sich read anders.

[DeddyH]

Und eine sinnvolle Einrückung erleichtert die Fehlersuche auch ungemein.

[BackOrifice]

Zitat:

Zitat von Reinhardtinho

Weil du die Datei nach dem ersten Record schließt :mrgreen:

Wie kommst du darauf?

[ichnixwissen]

es geht ums lesen. der soll die vorhanden daten in der datei ins stringgrid schreiben und die neuen werte in den labels auch ins stringgrid schreiben, aber hinten dran.
v und m sind normale integer variablen

[Reinhardtinho]

Zitat:

Zitat von BackOrifice

Zitat:

Zitat von Reinhardtinho

Weil du die Datei nach dem ersten Record schließt :mrgreen:

Wie kommst du darauf?

Ups. Hab mich verguckt.

Die Einrückung und die [zu] vielen end;s haben mich verwirrt.


@DeddyH: So ist es :mrgreen:

[Klaus01]

Delphi-Quellcode:

v:=0; 
AssignFile(datei,z +'.kt'); 
Reset(datei); 
m:=0; 
while not eof(datei) do 
  begin 
    m:=m+1; 
    Read(datei,eintrag); 
    with eintrag do 
      begin 
        stringGrid1.Cells[0,m]:= datum; 
        stringGrid1.Cells[1,m]:=zahl; 
        StringGrid1.Cells[2,m]:=zeit; 
        Label8.Caption:= inttostr(m); 
      end; 
  end; 
closeFile(datei); 
v:= ((strtoint(Label8.Caption))+1); 
stringgrid1.Cells[0,v]:= Label7.Caption; 
stringGrid1.Cells[1,v]:=label2.Caption; 
StringGrid1.Cells[2,v]:=zeit.Caption; 
//end; wozu diese ends gehören kann man hier nicht erkennen
//end;

Ansonsten sieht für mich die Schleife o.k. aus.
Bist Du sicher das in der Datei mehr als 1 Datensatz ist?
Bist Du Deinen Code mal mit F7 oder F8 durchgegangen und hast Dir die
Variablen angeschaut?

Grüße
Klaus

[nahpets]

Zitat:

Zitat von BackOrifice

Zitat:

Zitat von Reinhardtinho

Weil du die Datei nach dem ersten Record schließt :mrgreen:

Wie kommst du darauf?

Über die nicht so ganz elegante Einrückung gestolpert, hatte ich im ersten Moment auch gedacht.

Von welchem Type ist Eintrag?

Eventuell hilft ja Reset(datei,SizeOf(Eintrag)), damit das Programm weiß, wieviel es bei einem Read lesen soll. Ohne Größenangabe werden 128 Byte gelesen. Wenn die Datei kleiner ist, ist sie beim ersten Lesen weg. Von welchem Typ ist Datei?

Delphi-Quellcode:

var 
  Datei: TextFile;
// oder
  Datei: File of Char
// oder
  Datei: File of Eintrag;
// oder
...

[edit]hat mal wieder Schreibfehler gefunden[/edit]

[ichnixwissen]

Delphi-Quellcode:

type Teintrag = record
        zahl:string[20];
        zeit: string[20];
        datum: string[20];
     end;

var

datei: file of Teintrag;
eintrag: Teintrag;