Delphi-PRAXiS :: Das Forum für Fragen zu Delphi
Das Experten Forum für Delphi Programmierer
Hilfe für Borland Delphi gibts es hier im Forum
Delphi Quelltexte und Source Codes
 
Winter 2008 - lieben Dank an Julius für ds Bild
Delphi-PRAXiS :: Foren-ÜbersichtForen-Übersicht Delphi-PRAXiS Modul-ÜbersichtSite-Map Delphi-PRAXiS durchsuchenSuchen Delphi-PRAXiS Code-LibraryCode-Library Jetzt registrieren!Registrieren Login  
   
 
0
 
Delphi für Win32
Stringgrid Zeileweise abarbeiten II
Ein Delphi (Win32)-Thema von capo.

Vorheriges Thema anzeigen  |  Nächstes Thema anzeigen
Neuen Beitrag schreiben Auf Beitrag antworten
als PDF-Datei herunterladenThema ausdrucken
 
Delphi-PRAXiS Forum - Übersicht -> Internet / LAN / ASP.NET
Seite 1 von 1   [ 7 Beiträge ]  
 
 Autor 
 Nachricht 
 
capo #1|Beitrag #972627Verfasst am: 04.12.2008, 20:22      Titel: Stringgrid Zeileweise abarbeiten II Antworten mit Zitat
Mitglied
Status: offline
Beiträge: 386
angemeldet: 07.07.2006
Delphi 2007 Professional

Sprache: Delphi (Win32)

Delphi-Quellcode: zusammenfalten | markieren
function LeseDieNaechsteZeile(const StringGrid: TAdvStringGrid; aCol: integer = 1): string;
var aRow: Integer;
begin
  aRow := StringGrid.Row;
  if aRow < Pred(StringGrid.RowCount) then
    Inc(aRow)
  else
    aRow := StringGrid.FixedRows;
  StringGrid.Row := aRow;
  Result := StringGrid.Cells[aCol, aRow];
end;


Momentan ist es so das alles Zeilenweise abgearbeitet wird und wieder in der ersten Zeile begonnen wird.
Nun möchte ich doch dass es in der letzten Zeile endet und nicht wieder von vorne anfängt.
Wie muss ich den Code oben dafür anpassen?

Gruss
Capo
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
DeddyH #2|Beitrag #972629Verfasst am: 04.12.2008, 20:26      Titel: Re: Stringgrid Zeileweise abarbeiten II Antworten mit Zitat
"Rüsselmops" ;-)
Alter: 42
Status: online
Beiträge: 9.245
angemeldet: 17.09.2006
Wohnort: Schweina/Thüringen
Delphi 2007 Professional

Der else-Zweig muss weg.

10 Minuten Nachdenken ersparen oftmals 10 Stunden Fehlersuche.

If a train station is where the train stops, what the hell is a workstation? Grübelnd...
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
capo #3|Beitrag #972632Verfasst am: 04.12.2008, 20:47      Titel: Re: Stringgrid Zeileweise abarbeiten II Antworten mit Zitat
Mitglied
Status: offline
Beiträge: 386
angemeldet: 07.07.2006
Delphi 2007 Professional

Danke, wie kann ich erkennen wann ich in der letzten Zeile bin?
Also z.B. eine kurze Nachricht erhalte?

Gruss
Capo
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
DeddyH #4|Beitrag #972633Verfasst am: 04.12.2008, 20:49      Titel: Re: Stringgrid Zeileweise abarbeiten II Antworten mit Zitat
"Rüsselmops" ;-)
Alter: 42
Status: online
Beiträge: 9.245
angemeldet: 17.09.2006
Wohnort: Schweina/Thüringen
Delphi 2007 Professional

Du hast den Code noch nicht ganz verinnerlicht, oder?
Delphi-Quellcode: zusammenfalten | markieren
function LeseDieNaechsteZeile(const StringGrid: TAdvStringGrid; aCol: integer = 1): string;
var aRow: Integer;
begin
  aRow := StringGrid.Row;
  if aRow < Pred(StringGrid.RowCount) then
    Inc(aRow)
  else
    //aRow := StringGrid.FixedRows;
    ShowMessage('Letzte Zeile erreicht');
  StringGrid.Row := aRow;
  Result := StringGrid.Cells[aCol, aRow];
end;

10 Minuten Nachdenken ersparen oftmals 10 Stunden Fehlersuche.

If a train station is where the train stops, what the hell is a workstation? Grübelnd...
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
toms #5|Beitrag #972634Verfasst am: 04.12.2008, 20:51      Titel: Re: Stringgrid Zeileweise abarbeiten II Antworten mit Zitat
sehr aktives Mitglied
Status: offline
Beiträge: 3.715
angemeldet: 10.06.2002
Delphi 6 Professional

capo hat folgendes geschrieben:
Danke, wie kann ich erkennen wann ich in der letzten Zeile bin?
Also z.B. eine kurze Nachricht erhalte?

Gruss
Capo


Genau dann, wenn diese Bedingung False ist.

Delphi-Quellcode: markieren
if aRow < Pred(StringGrid.RowCount) then


PS: Probiere mal den Code in LeseDieNaechsteZeile() zu verstehen.
Dann kommst du ganz alleine zu einer Antwort und wird dich dann eher weiter bringen, als wenn wir
dir die Antwort direkt geben.

Edit: Ist (leider) schon passiert....

WinSpy 2008 - Der Fenster Spion (V.2.0.3.523 - 06.09.2008)

 Zuletzt bearbeitet von toms am 04.12.2008, 20:51, insgesamt 1-mal bearbeitet.
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
DeddyH #6|Beitrag #972635Verfasst am: 04.12.2008, 20:54      Titel: Re: Stringgrid Zeileweise abarbeiten II Antworten mit Zitat
"Rüsselmops" ;-)
Alter: 42
Status: online
Beiträge: 9.245
angemeldet: 17.09.2006
Wohnort: Schweina/Thüringen
Delphi 2007 Professional

Ich geh mich ja schon schämen Embarassed

10 Minuten Nachdenken ersparen oftmals 10 Stunden Fehlersuche.

If a train station is where the train stops, what the hell is a workstation? Grübelnd...
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
 
capo #7|Beitrag #972637Verfasst am: 04.12.2008, 20:58      Titel: Re: Stringgrid Zeileweise abarbeiten II Antworten mit Zitat
Mitglied
Status: offline
Beiträge: 386
angemeldet: 07.07.2006
Delphi 2007 Professional

@Tom
Das stimmt schon, manchmal fällt es mir schwer Wege zum testen zu finden.
Wahrscheinlich bin ich einfach nicht mutig genug.

Gruss Capo

@DeddyH
nee, ich muss mich schämen Wink
nach oben nach unten
Benutzer-Profile anzeigen Private Nachricht senden
Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen im Forum zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Google zu suchen. Markiere Begriffe im Text und klicke auf diesen Button, um nach zusätzlichen Informationen bei Wikipedia zu suchen.
 
Anzeige-Optionen:    
 
Delphi-PRAXiS Forum - Übersicht -> Internet / LAN / ASP.NET Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1   [ 7 Beiträge ]  
 
  Neuen Beitrag schreiben Auf Beitrag antworten
als PDF-Datei herunterladenThema ausdrucken
 
   
Gehe zu:  
Du darfst keine Beiträge in dieses Forum schreiben.
Du darfst auf Beiträge in diesem Forum nicht antworten.
Du darfst Deine Beiträge in diesem Forum nicht bearbeiten.
Du darfst Deine Beiträge in diesem Forum nicht löschen.
Du darfst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten.
Du kannst Dateien in diesem Forum nicht herunterladen.


Impressum / Kontakt
Allgemeine Geschäftsbedingungen
Verhaltenskodex & FAQ

Delphi-PRAXiS :: Das Forum für Delphi-Programmierer
Das Experten Forum für Delphi ProgrammiererHilfe für Borland Delphi gibts es hier im ForumDelphi Quelltexte und Source CodesDelphi-PRAXiS :: Das Forum für DelphiWindows APIInternet und NetzwerkeVCL und Datenbanken
 

Delphi-PRAXiS V.2005 III
© 2002-2009 by Daniel R. Wolf
powered by phpBB © phpBB Group

Impressum / Kontakt Allgemeine Geschäftsbedingungen