Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi gefüllte Zeilen im StringGrid zählen... (https://www.delphipraxis.net/21690-gefuellte-zeilen-im-stringgrid-zaehlen.html)

alanblack 6. Mai 2004 16:39


gefüllte Zeilen im StringGrid zählen...
 
Hallo Leute,

Ich habe Ein StringGrid mit 2 Spalten und 5 Zeilen und zählen möchte ich in einem Label die gefüllten Zeilen.

Beispiel:

5 Zeilen sind im Grid
in 4 Zeilen wurde etwas eingetragen
im Label soll dann zb stehen: In 4 Zeilen wurde etwas geschrieben.

Hat da jemand eine Idee? :?


Mit freundlichen Grüßen

alanblack

gmarts 6. Mai 2004 16:56

Re: gefüllte Zeilen im StringGrid zählen...
 
Code:
var
  I, J, z : Integer;
begin
  z:=0;
  with StringGrid do
    for I := 0 to ColCount - 1 do
      for J:= 0 to RowCount - 1 do
        begin
          if Cells[I,J]<>'' then z:=z+1;
        end;
end;

...

label.caption:='Gefüllte Zellen: '+inttostr(z);

Markus K. 6. Mai 2004 17:19

Re: gefüllte Zeilen im StringGrid zählen...
 
Hallo alanblack,
ich würde es so machen.
Delphi-Quellcode:
var
 Zeile,Spalte,gefZeilen:Integer;
begin
     gefZeilen:=0;
     with StringGrid1 do
     for Zeile:=0 to RowCount-1
     do for Spalte:=0 to ColCount-1
        do if Cells[Spalte,Zeile]<>''
           then begin
                inc(Z);
                Break;
                end;
     Label1.Caption:='Gefüllte Zeilen: '+IntToStr(gefZeilen);
end;
Tschüß Markus

s14 6. Mai 2004 17:26

Re: gefüllte Zeilen im StringGrid zählen...
 
@Markus K:
wieso das Break, willst Du nicht alle Zeilen überprüfen :?:

Gruß
s14

alanblack 6. Mai 2004 17:36

Re: gefüllte Zeilen im StringGrid zählen...
 
Hallo,

Vielen Dank für eure Antworten, nur leider funktionieren die codes nich so ganz wie ich will :(

bei gmarts code zält er zwar aber irgentwie viel zu viel:

obwohl ich nur 4 Zeilen gefüllt habe sagt das Label: Gefüllte Zellen: 1243084

und bei Markus sagt es mir immer nur "0" :?

Wisst ihr warum das nicht so ganz geht?


Mit freundlichen Grüßen

alan

Markus K. 6. Mai 2004 17:42

Re: gefüllte Zeilen im StringGrid zählen...
 
@alanblack der Code funktioniert schon hatte nur was falsch abgetippt :oops:
du musst noch das inc(Z); gegen inc(gefZeilen); austauschen

@s14 laut der Aufgabenstellung von alanblack sollen nur die Zeilen gezählt werden, in welchen schon was eingetragen wurde. Findet er einen Eintrag in der entsprechenden Zeile wird gefZeilen um 1 erhöht und die Schleife wird verlassen, da ja ein gefülltes Feld in der Zeile gefunden wurde.

Tschüß Markus

s14 6. Mai 2004 17:48

Re: gefüllte Zeilen im StringGrid zählen...
 
@Markus K.
Du hast natürlich Recht, hab zu oberflächlich drübergeschaut :oops:

Gruß
s14


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:34 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz