AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Stringgrid aktuallisiert nicht

Ein Thema von Neutral General · begonnen am 27. Jun 2006 · letzter Beitrag vom 28. Jun 2006
Antwort Antwort
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

Stringgrid aktuallisiert nicht

  Alt 27. Jun 2006, 19:13
Hi,

Wusste nicht ob mein Problem eher zu "Controls" oder zu "Sonstigen Fragen zu Delphi" passt.. egal..
Also es geht wieder um meine Schulden-Record Sache.. Ich stelle die in ner ListBox + Stringgrid dar.
(siehe Screenshot)

Und wenn man jetzt links auf nen Eintrag klickt sollen halt nur die Schulden bei dieser Person angezeigt werden.. Geht im Prinzip ja.. is auch nicht schwer (normal..).

Delphi-Quellcode:
procedure TMain.ListBox1Click(Sender: TObject);
begin
 if ListBox1.ItemIndex > -1 then begin
  Schulden.Repaint(ListBox1.Items[ListBox1.ItemIndex],false, true);
 end;
end;
=>

Delphi-Quellcode:
procedure TSchuldenliste.Repaint(fBei: String; LB_Repaint, SG_Repaint: Boolean);
var i: Integer;
begin
 if (not LB_Repaint) and (not SG_Repaint) then exit;
 if SG_Repaint then begin
  FStringgrid.RowCount := 0; // alles löschen
  for i:= 0 to Count-1 do begin // alles von der ausgewählten Person
   if Items[i].Bei = fBei then begin // ins Stringgrid einfügen
    FStringgrid.RowCount := FStringgrid.RowCount + 1;
    FStringgrid.Cols[0].Add(Items[i].Anlass);
    FStringgrid.Cols[1].Add(FloatToStrF(FItems[i].Betrag,ffNumber,4,2) + '');
    FStringgrid.Cols[2].Add(ziToString(FItems[i].Zinsen.Intervall));
    FStringgrid.Cols[3].Add(IntToStr(FItems[i].Zinsen.Value));
    FStringgrid.Cols[4].Add(zaToString(FItems[i].Zinsen.Kind));
    FStringgrid.Cols[5].Add(FloatToStrF(FItems[i].Betrag,ffNumber,4,2) + '');
    FStringgrid.Cols[6].Add(BoolToString(FItems[i].Gezahlt));
   end;
  end;
  FStringgrid.FixedRows := 1;
 end;

 if LB_Repaint then begin // unwichtig weil der Teil nicht aufgerufen wird
  FListBox.Clear; // in meinem Fall
  for i:= 0 to Count-1 do begin
   FListBox.Items.Add(Items[i].Bei)
  end;
 end;
end;
Beim ersten mal (wie eben^^) geht es ohne Probleme.. Alles wird dargestellt wie es sein soll.
Wenn ich dann nochmal auf die Listbox klicke (auf nen anderen Namen) dann ändert sich nix o.O
Hab mim Debugger nachgeprüft.. Der String ist "gültig" und alle Einträge werden geschrieben.. Aber ich seh nix

Gruß
Neutral General
Miniaturansicht angehängter Grafiken
sosiehtsaus_565.jpg  
Michael
  Mit Zitat antworten Zitat
andreash

Registriert seit: 22. Jun 2006
Ort: Dörverden
60 Beiträge
 
Delphi 7 Professional
 
#2

Re: Stringgrid aktuallisiert nicht

  Alt 27. Jun 2006, 21:33
Hallo,

ersetze doch einmal dein ".add" mit ".Strings[RowCount-1]".
Andreas
Der Optimist glaubt, wir leben in der besten aller möglichen Welten. Der Pessimist befürchtet, daß das stimmt.
  Mit Zitat antworten Zitat
Benutzerbild von zebrafalke
zebrafalke

Registriert seit: 25. Feb 2006
155 Beiträge
 
Turbo Delphi für Win32
 
#3

Re: Stringgrid aktuallisiert nicht

  Alt 27. Jun 2006, 21:36
Intervall schreibt man in der Mitte mit "r"
  Mit Zitat antworten Zitat
Benutzerbild von Lannes
Lannes

Registriert seit: 30. Jan 2005
Ort: Münster
745 Beiträge
 
Delphi 3 Professional
 
#4

Re: Stringgrid aktuallisiert nicht

  Alt 27. Jun 2006, 23:49
Hallo,

FStringgrid.RowCount := 0; // alles löschen damit löscht Du nicht wirklich alles.
Darum schreibst Du mit FStringgrid.Cols[0].Add... unter die sichtbaren Zeilen.

Setz mal vor der Zeile den Code ein, vermute das es Dein Problem löst:
Delphi-Quellcode:
for i := 0 to FStringgrid.RowCount-1 do
      FStringgrid.Rows[i].Clear;
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
  Mit Zitat antworten Zitat
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#5

Re: Stringgrid aktuallisiert nicht

  Alt 28. Jun 2006, 12:57
Zitat von Lannes:
Hallo,

FStringgrid.RowCount := 0; // alles löschen damit löscht Du nicht wirklich alles.
Darum schreibst Du mit FStringgrid.Cols[0].Add... unter die sichtbaren Zeilen.

Setz mal vor der Zeile den Code ein, vermute das es Dein Problem löst:
Delphi-Quellcode:
for i := 0 to FStringgrid.RowCount-1 do
      FStringgrid.Rows[i].Clear;
k ich glaube das werde ich mal ausprobieren.. habe nach FStringgrid.Clear gesucht aber das gabs nicht, deswegen hab ich erst gar nicht weiter nach irgendner Clear-Methode gesucht.. werde das gleich zu Hause mal ausprobieren

Gruß
Neutral General
Michael
  Mit Zitat antworten Zitat
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#6

Re: Stringgrid aktuallisiert nicht

  Alt 28. Jun 2006, 13:33
Das soll jetzt nicht gepushed sein.. wollte nur sagen das ichs jetzt hinbekommen hab
Da zwar durch die neue Methode alles weg ist (war es vorher nicht.. also.. egal^^) muss ich zwar wieder die "Überschriften" neu schreiben aber es klappt

Thx

Gruß
Neutral General
Michael
  Mit Zitat antworten Zitat
Benutzerbild von Lannes
Lannes

Registriert seit: 30. Jan 2005
Ort: Münster
745 Beiträge
 
Delphi 3 Professional
 
#7

Re: Stringgrid aktuallisiert nicht

  Alt 28. Jun 2006, 14:14
Hallo,

Überschrift neu schreiben u.a. so:
StringGrid.Rows[0].Text := 'Spalte1'+#13+'Spalte2'+#13+'Spalte3';
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 08:21 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz