AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

TStringgrid zählt nur bis 10

Ein Thema von akazukilp · begonnen am 15. Okt 2020 · letzter Beitrag vom 22. Okt 2020
Antwort Antwort
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.277 Beiträge
 
Delphi 10.4 Sydney
 
#1

AW: TStringgrid zählt nur bis 10

  Alt 15. Okt 2020, 18:11
Hallo,
ich sehe im Code keine 10 ??
Das muss du dem StringGrid schon sagen.


procedure TForm1.FormCreate(Sender: TObject);
var
i, J, z : Integer;
begin
z:=0;

StringGrid1.ColCount:= 75;
StringGrid1.RowCount:= 10;

with StringGrid1 do

Und ausserdem:
for I := 1 to ColCount - 1 do
Die Zählung begibt bei 0, nicht bei 1.
Heiko

Geändert von hoika (15. Okt 2020 um 18:13 Uhr)
  Mit Zitat antworten Zitat
stifflersmom

Registriert seit: 8. Dez 2005
Ort: 24994 Holt
388 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#2

AW: TStringgrid zählt nur bis 10

  Alt 15. Okt 2020, 18:24
Hallo,

Und ausserdem:
for I := 1 to ColCount - 1 do
Die Zählung begibt bei 0, nicht bei 1.
Wenn er eine Fixed Row und eine Fixed Col übergehen will, weil dort Spalten und Zeilenbezeichner stehen, macht eine Zählung von 1 an schon Sinn.
  Mit Zitat antworten Zitat
mmw
(Gast)

n/a Beiträge
 
#3

AW: TStringgrid zählt nur bis 10

  Alt 15. Okt 2020, 18:26
hallo,
vielleicht funktioniert dies -

Delphi-Quellcode:
var
  i, j, z: Integer;
begin

 z := 0;

  with StringGrid1 do
  begin
    for i := 0 to StringGrid1.RowCount - 1 do
      for j := 0 to stringgrid1.ColCount - 1 do

      begin
        if Cells[j, i] = 'then
        begin
          inc(z);
          Stringgrid1.Cells[j, i] := IntToStr(z);
        end;
      end;
  end;
end;
'Delphi Hilfe'

property Cells[ACol, ARow: Integer]:

Gruß

Geändert von mmw (15. Okt 2020 um 19:13 Uhr)
  Mit Zitat antworten Zitat
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.277 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: TStringgrid zählt nur bis 10

  Alt 15. Okt 2020, 20:19
Hallo,
das habe ich ja sogar übersehen

if Cells[j,i]

Cells[Col,Row] und nicht umgekehrt.
Heiko
  Mit Zitat antworten Zitat
Benutzerbild von scrat1979
scrat1979

Registriert seit: 12. Jan 2007
Ort: Sulzbach a.d. Murr
1.029 Beiträge
 
Delphi 10.4 Sydney
 
#5

AW: TStringgrid zählt nur bis 10

  Alt 15. Okt 2020, 20:48
Kleine Anmerkung meinerseits: Nirgends erwähnt der TE, dass die Zahl nur eingetragen werden soll wenn die Zelle(n) leer ist/sind. Falls das zutrifft würde ich die IF-Abfrage komplett streichen - oder übersehe ich da was?!?
Michael Kübler
  Mit Zitat antworten Zitat
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.277 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: TStringgrid zählt nur bis 10

  Alt 15. Okt 2020, 21:03
Hallo,
ja, das if Cells[i, j] = '' (gleich mal die Parameter richtig vertauscht) ist etwas komisch,
zumal im FormCreate nichts im Grid stehen sollte.
Heiko
  Mit Zitat antworten Zitat
akazukilp

Registriert seit: 3. Sep 2020
18 Beiträge
 
#7

AW: TStringgrid zählt nur bis 10

  Alt 16. Okt 2020, 15:23
Ok danke das klappt jetzt soweit.
Wen ich das jetzt rückwärts machen will.
Also ich starte von unten und gehe nach oben funktioniert es nicht was mach ich falsch.
Code:
procedure TForm1.Button1Click(Sender: TObject);
 var
  i, j, z: Integer;
begin

 z := 750;

  with StringGrid1 do
  begin
    for i := 750 to StringGrid1.RowCount - 1 do
      for j := 750 to stringgrid1.ColCount - 1 do

      begin
        if Cells[j, i] = '' then
        begin
          z := (z-1);
          Stringgrid1.Cells[j, i] := IntToStr(z);
        end;
      end;
  end;
end;
  Mit Zitat antworten Zitat
Antwort Antwort


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 23:50 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-2025 by Thomas Breitkreuz