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.

Hab wie folgt eingestellt:
RowCount=1
FixCols=0

Hier der Code:

markieren

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!

Hallo AlexII,

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

Grüße
Klaus

Ne es liegt nicht daran, denn wenn ich anstatt

markieren

Code:

i:=Form1.StringGrid1.RowCount-1;

das hier eingebe

markieren

Code:

i:=Form1.StringGrid1.RowCount;

Klappt das Schließen wunderbar!

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

Die Zeile 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.

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.

Ist denn senderindex auch ausreichend dimensioniert?

Hallo,

was ist senderindex überhaupt.

Ich hoffe, kein dynamisches Array


Heiko

Zitat von hoika:

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.

markieren

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;

Zitat von AlexII:

markieren

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:

markieren

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;