Problem mit StringGrid Füllen, komme nicht weiter

[AlexII]

Hallo,

ich will ein StringGrid füllen, es klappt auch soweit, aber wenn ich die Anwendung schließe stürzt sie ab (siehe Screenshot), weiß nicht mehr weiter. :cry:

Hab wie folgt eingestellt:
RowCount=1
FixCols=0

Hier der Code:

Delphi-Quellcode:

i:=Form1.StringGrid1.RowCount-1; //<- wenn ich die 1 weglasse stürzt das Prog nicht ab, aber dann wird die SringGrid falsch gefüllt, erste Zeile bleibt leer.

senderindex[i].name:=LabeledEdit1.Text;
senderindex[i].vorname:=LabeledEdit2.Text;

Form1.StringGrid1.RowCount:=Form1.StringGrid1.RowCount+1;

Form1.StringGrid1.Cells[0,i] := senderindex[i].name;
Form1.StringGrid1.Cells[1,i] := senderindex[i].vorname;

Danke für die Hilfe!

[Klaus01]

Hallo AlexII,

wie schaut denn die Form1.Close Routine aus?
Gibst Du eventuell Sachen frei die es nicht mehr gibt?

Grüße
Klaus

[AlexII]

Ne es liegt nicht daran, denn wenn ich anstatt

Code:

i:=Form1.StringGrid1.RowCount-1;

das hier eingebe

Code:

i:=Form1.StringGrid1.RowCount;

Klappt das Schließen wunderbar!

Hat dann vllt jemand eine Idee wie ich die Daten anders füllen kann?

[Luckie]

Die Zeile

Delphi-Quellcode:

i:=Form1.StringGrid1.RowCount-1;

hat wahrscheinlich nur indirekt mit dem Programmabsturz beim Schließen zu tun. Wahrscheinlich überschreibst du dir irgendwo den Speicher und dann kracht es am Ende.

[idefix2]

Anhand des Codeausschnitts, den Du gepostet hast, kann man nicht viel sagen, der eigentliche Fehler liegt jedenfalls irgendwo anders im Programm - zumindest ist er hier ohne zusätzlichen Kontext nicht zu erkennen.

[DeddyH]

Ist denn senderindex auch ausreichend dimensioniert?

[hoika]

Hallo,

was ist senderindex überhaupt.

Ich hoffe, kein dynamisches Array ;)


Heiko

[AlexII]

Zitat:

Zitat von hoika (Beitrag 1028028)

was ist senderindex überhaupt.
Ich hoffe, kein dynamisches Array ;)

Ja das ist ein array, aber ich hab das jetzt anders gemacht und es klappt ohne Absturz.

Delphi-Quellcode:

      begin
      Cells[0, RowCount-1]:=LabeledEdit1.Text;
      Cells[1, RowCount-1]:=LabeledEdit2.Text;
      Cells[2, RowCount-1]:=LabeledEdit3.Text;
      Cells[3, RowCount-1]:=LabeledEdit4.Text;

      RowCount:=RowCount+1;
     end;

[David Martens]

Zitat:

Zitat von AlexII (Beitrag 1028059)

Delphi-Quellcode:

      begin
      Cells[0, RowCount-1]:=LabeledEdit1.Text;
      Cells[1, RowCount-1]:=LabeledEdit2.Text;
      Cells[2, RowCount-1]:=LabeledEdit3.Text;
      Cells[3, RowCount-1]:=LabeledEdit4.Text;

      RowCount:=RowCount+1;
     end;

Mit dem Code produzierst du aber immer eine Leerzeile am Ende, oder?
Du solltest erst den RowCount hochsetzten und dann die Werte eintragen:

Delphi-Quellcode:

    begin
      RowCount := RowCount + 1; // erst Platz schaffen für neue Daten

      // dann neue Daten eintragen
      Cells[0, RowCount - 1] := LabeledEdit1.Text;
      Cells[1, RowCount - 1] := LabeledEdit2.Text;
      Cells[2, RowCount - 1] := LabeledEdit3.Text;
      Cells[3, RowCount - 1] := LabeledEdit4.Text;      
     end;