Stringgrid zeichnet zum falschen Zeitpunkt

[Wolli-Essen]

Hallo,

ich habe folgendes problem:


Nach Eingabe in einem Memofeld wird nach Eingabe von Enter über das FormKeyPress Ereignis in einem bestehenden Stringgrid eine Zeile angefügt und mit Cells() beschrieben.
Die neue Zeile wird aber nicht direkt auf dem Bildschirm angezeigt. Erst nachdem ich wieder etwas in das Memofeld eingebe und Enter drücke, wird der vorherige Zeileneintrag angezeigt.

Weiss jemand Rat?

Wolle

[Steku]

Nur so eine idee, kann es gerade nicht prüfen, aber
gibt es nicht irgend etwas wie z.B. ein

.refresh
.update
.repaint
.invalidate

oder so?

Gruß
steku

[Wolli-Essen]

Hab ich auch dran gedacht, .refresh etc. ohne Erfolg probiert.

Gruß

Wolle

[Perlsau]

Zitat:

Zitat von Wolli-Essen (Beitrag 1152675)

Erst nachdem ich wieder etwas in das Memofeld eingebe und Enter drücke, wird der vorherige Zeileneintrag angezeigt.

Wie oft muß man es noch erwähnen: Hier hat's keine Hellseher. Wie soll es uns im Forum gelingen, die Ursache ohne deinen Code herauszufinden, wenn dir das nicht einmal mit Code gelingt?

[Wolli-Essen]

Ok, versuchen wir es mit etwas Code.

Hier die Ereignisroutine vom Memo KeyPress

Delphi-Quellcode:

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9','a'..'z','/','-', DecimalSeparator, ThousandSeparator])
 then Key := #0;
end;

und hier der entsprechende teil vom FormKeyPress

Delphi-Quellcode:

    While i < GrdArtikel.RowCount-1 do
     Begin
      Artikel := GrdArtikel.Cells[5,i];
      While not datamodule2.DBSRabatt.Eof do
       Begin
        If Datamodule2.DBSRabatt.FieldValues['Gruppe'] = Artikel then
        Begin
         ClubRabatt := ClubRabatt+(StrToFloat(GrdArtikel.cells[4,i])*Datamodule2.DBSRabatt.FieldValues['Rabatt']/100);
         Inc(i);
        End;
        Datamodule2.DBSRabatt.Next;
       End;
     Inc(I);
     End;
     Mtg_Flag := 'J';
     If ClubRabatt > 0 Then
     Begin;
      Clubrabatt := Clubrabatt*-1;
      Summe := Summe+Clubrabatt;
      lb_Summe.Caption := FloatToStrF(Summe,ffNumber,8,2);
      GrdArtikel.RowCount := Zeile;
      GrdArtikel.Cells[0,Zeile] := '1';
      GrdArtikel.Cells[1,Zeile] := 'Clubrabatt';
      GrdArtikel.Cells[3,Zeile] := FloatToStrf(Clubrabatt,ffNumber,8,2);
      GrdArtikel.Cells[4,Zeile] := FloatToStrf(Clubrabatt,ffNumber,8,2);
      GrdArtikel.Cells[5,Zeile] := '1111';
      Inc(Zeile);
     End;
     Memo1.Text := '';
   End;
   ShowMessage('Clubmitglied '+ Datamodule2.DBMitglieder.FieldByName('Vorname')
    .Value+'  '+Datamodule2.DBMitglieder.FieldByName('Name').Value+#13+Datamodule2.
    DBMitglieder.FieldByName('Produkt').Value);
  End;

das ShowMessage() wird ausgelöst.

Jetzt kommen noch einige Routinen zum Bezahlvorgang. Nach erfolgter Zahlung wartet das Prg in dieser

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
LblFirma.Caption := TimeToStr(Time);
end;

Schleife.

Erst wenn der nächste Artikel im Memo eingegeben und Enter gedrückt wird, wird die Stringgridzeile der Vorartikels ausgegeben.

Gruß

Wolle

[Perlsau]

Zitat:

Zitat von Wolli-Essen (Beitrag 1152705)

Ok, versuchen wir es mit etwas Code.

Delphi-Quellcode:

GrdArtikel.RowCount := Zeile;

Woher bekommt die Variable Zeile ihren Ursprungswert, sprich: wo wird Zeile initialisiert?
Der von dir eingestellte Code läßt es nicht ohne weiteres zu, den genannten Fehler zu finden.
Ich würde hier erstmal mit einer lokalen Variable Zeile arbeiten, damit du sicherstellst, daß auch wirklich eine Zeile hinzugefügt wurde, falls du woanders mit der Zählung durcheinandergeraten bist:

Delphi-Quellcode:

GrdArtikel.Rowcount := GrdArtikel.Rowcount + 1.
Zeile := GrdArtikel.Rowcount -1; //Zählung beginnt bei 0

Und wieso dieses umständliche Konstrukt?

Delphi-Quellcode:

Clubrabatt := Clubrabatt*-1;
Summe := Summe+Clubrabatt;

statt einfach:

Delphi-Quellcode:

Summe := Summe - Clubrabatt;

???

Übrigens solltest du nicht mit Leerzeichen geizen, dein Code dadurch wird übersichtlicher.

Empfehlung: Debugge einmal deinen Code, indem du auf GrdArtikel.RowCount := Zeile; einen Haltepunkt setzt. Schau dir im Debug-Fenster den Wert von Rowcount und von Zeile an. Vermutlich kommt dein Fehler daher, daß du die Zeile, in die du zuvor reinschreibst, erst später erzeugst. Müßte eigentlich einen Zugriffsfehler ergeben.

[Wolli-Essen]

Zitat:

Woher bekommt die Variable Zeile ihren Ursprungswert, sprich: wo wird Zeile initialisiert?

Die Variable Zeile wird im Public Teil deklariert und nach jeder efolgreichen Artikeleingabe erhöht.

Zitat:

Und wieso dieses umständliche Konstrukt?

Delphi-Quellcode:

Clubrabatt := Clubrabatt*-1;
Summe := Summe+Clubrabatt;
statt einfach:
Summe := Summe - Clubrabatt; ???

Der Clubrabatt wird noch als Negativwert gebraucht.

Ich habe einen Haltepunkt bei GrdArtikel.RowCount := Zeile; gemacht.
Row und Zeile haben den korrekten Wert (Also die Zeile, in der der Wert geschrieben werden soll).

Wann kommt es denn vor, das ein Cells[] nicht sofort sichtbar wird?

gruß
Wolle

[Perlsau]

Zitat:

Zitat von Wolli-Essen (Beitrag 1152712)

Zitat:

Woher bekommt die Variable Zeile ihren Ursprungswert, sprich: wo wird Zeile initialisiert?

Die Variable Zeile wird im Public Teil deklariert und nach jeder efolgreichen Artikeleingabe erhöht.

Und das muß man dir alles erst aus der Nase ziehen? Du brauchst keine globale Variable Zeile, der Wert von Zeile steht gewissermaßen bereits in RowCount.

Zitat:

Zitat von Wolli-Essen (Beitrag 1152712)

Zitat:

Und wieso dieses umständliche Konstrukt?

Der Clubrabatt wird noch als Negativwert gebraucht.

Dann setz ihn doch dort negativ, wo du ihn negativ brauchst. Das ist übersichtlicher.

Zitat:

Zitat von Wolli-Essen (Beitrag 1152712)

Ich habe einen Haltepunkt bei GrdArtikel.RowCount := Zeile; gemacht.
Row und Zeile haben den korrekten Wert (Also die Zeile, in der der Wert geschrieben werden soll).
Wann kommt es denn vor, das ein Cells[] nicht sofort sichtbar wird?

Das ist jetzt aber mal 'ne Frage: in deinem Code ganz offensichtlich! Aber da ja alles korrekt zu sein scheint in deinem Programm und du auch nicht bereit bist, über Verbesserungsvorschläge nachzudenken bzw. dieselben anzuwenden, kann ich dir nun auch nicht mehr weiterhelfen - frag jemand anderen.

[Wolli-Essen]

Zitat:

Aber da ja alles korrekt zu sein scheint in deinem Programm und du auch nicht bereit bist, über Verbesserungsvorschläge nachzudenken bzw. dieselben anzuwenden, kann ich dir nun auch nicht mehr weiterhelfen - frag jemand anderen.

Was heisst ich geh auf Verbesserungsvorschläge nicht ein? Du hast doch erst jetzt gesagt wie ich das machen kann. Vorher hast ja nur gefragt warum ich was mache.

[Perlsau]

Zitat:

Zitat von Wolli-Essen (Beitrag 1152720)

Was heisst ich geh auf Verbesserungsvorschläge nicht ein? Du hast doch erst jetzt gesagt wie ich das machen kann. Vorher hast ja nur gefragt warum ich was mache.

Ja, da sieht man, daß du die Beiträge der User, die dir zu helfen versuchen, gar nicht richtig liest. Ich gab dir nämlich bereits davor diesen Rat:

Ich würde hier erstmal mit einer lokalen Variable Zeile arbeiten, damit du sicherstellst, daß auch wirklich eine Zeile hinzugefügt wurde, falls du woanders mit der Zählung durcheinandergeraten bist:

Delphi-Quellcode:

GrdArtikel.Rowcount := GrdArtikel.Rowcount + 1.
Zeile := GrdArtikel.Rowcount -1; //Zählung beginnt bei 0

Darauf bist du nicht eingegangen. Und ich hab nun wirklich keine Lust mehr. Frag einen anderen ...