Schleife um Zahl hoch zu zählen

[Rainer Sieling]

Moin zusammen,

betreffend Delphi bin ich ein Neuling.
Ich möchte gerne meiner Tochter bei einem Problem helfen. Mit C++, COBOL oder Clipper komme ich leider nicht weiter.

Flogendes:

Die Kundernummer wird bei einem Anlegen eines neuen Datensatzes neu vergeben.

Dies ist mein erster Versuch:

Programm zaehler;

var x,y,z:integer;
begin
x:=0;
y:=25;

for z:=x to y do;
write (z);
end;

Benötige bitte Eure Hilfe. Danke.

Gruß, Rainer

[Klaus01]

Delphi-Quellcode:

for z:=x to y do{;}
  begin
    write (z);
  end;

Grüße
Klaus

[Andreas13]

Hallo Rainer,
Willkommen im Klub!

Du kannst Deinen QuellCode hier mit Hilfe des Delphi-Symbols (= Helm mit rotem Kamm gleich über der ersten Zeile im Editor) richtig formatieren, damit er besser lesbar ist.
Gruß, Andreas
PS: Das geht auch nachträglich über den Button "Bearbeiten"

[blawen]

Zitat von Rainer Sieling:

Die Kundernummer wird bei einem Anlegen eines neuen Datensatzes neu vergeben.

Dies ist mein erster Versuch:

Delphi-Quellcode:

Programm zaehler;

    var x,y,z:integer;
       begin
      x:=0;
          y:=25;
    
          for z:=x to y do;
          write (z);
   end;

Hallo Rainer und Herzlich Willkommen in der DP

Wo genau ist Dein Problem?
Irgendwie passt Deine Beschreibung und Dein Code nicht zusammen und schlussendlich verstehe ich nicht, was Du genau möchtest und woran es scheitert.

Kann es sein, dass Du die verschiedenen Werte sehen möchtest?
Dann hilft Dir WriteLn weiter (WriteLine), welches einen Zeilenumbruch macht.

Delphi-Quellcode:

begin
  x:=0;
  y:=25;
  for z:=x to y
    do writeLn (z);
  readln;
end;

PS: Damit der Code besser lesbar ist, kannst Du ihn mit den Delphi Tags einschliessen (Helm Symbol)

[venice2]

Unverständlich.

Zitat:

um Zahl hoch zu zählen

welche Zahl soll hoch gezählt werden?
z ist doch nur der Schleifen durchlauf.

[Klaus01]

hinter dem do steht ein ";" Leeranweisung dadurch wird z nicht hochgezählt.

[venice2]

Zitat von Klaus01:

hinter dem do steht ein ";" Leeranweisung dadurch wird z nicht hochgezählt.

Da sollte doch eine Warnung sichtbar werden.

Zitat:

[DCC Warning] xxx W1037 FOR-Loop variable 'z' may be undefined after loop

Destotrotz ist immer noch nicht ersichtlich welcher wert Hochgezählt werden soll.
Definitiv fehlt hier die Kundennummer.

KundenNummer = y (Neuer Datensatz)? dann ist die Schleife sinnlos ein inc(y) sollte dann vollkommen reichen.

[Rainer Sieling]

Vielen Dank erst einmal an alle.

Noch etwas zur Erläuterung.
Ich lege einen neuen Datensatz für einen Kunden an. Dieser bekommt dann vom System eine Kd-Nr. zugewiesen.

Eigendlich soll es so sein.

x = Startwert, z.B. 2021. Diese Zahl soll dann hochgezählt werden

Beispiel:

Delphi-Quellcode:

var x,y,z:integer;
       begin
         x:=2021;
         y:=99999999;
           for z:=x to y
           do writeLn (z);
        readln;
       end;

Jetzt soll die Schleife aber nur immer bei einem neuen Datensatz durchlaufen werden. Wie bewerkstellige ich das jetzt noch?
Ach so. Suche ein Delphi Buch für Anfänger. Könnt ihr eines empfehlen? Danke

[dummzeuch]

Zitat von Rainer Sieling:

Delphi-Quellcode:

var x,y,z:integer;
       begin
         x:=2021;
         y:=99999999;
           for z:=x to y
           do writeLn (z);
        readln;
       end;

Jetzt soll die Schleife aber nur immer bei einem neuen Datensatz durchlaufen werden. Wie bewerkstellige ich das jetzt noch?

Dafür ist eine for-Schleife nicht geeignet. Du musst dir jeweils den letzten Wert merken (oder "irgendwo" auslesen) und ihn beim Einfügen eines neuen Datensatzes um 1 erhöhen (und dann ggf. den neuen Wert wieder "irgendwo" abspeichern).

Zitat von Rainer Sieling:

Ach so. Suche ein Delphi Buch für Anfänger. Könnt ihr eines empfehlen? Danke

"Delphi fuer Kids" ist trotz des abschreckenden Namens recht gut. Gibt es aber nur noch gebraucht und bezieht sich noch auf Delphi 7. Nichts desto trotz vermittelt es die notwendigen Grundlagen ganz gut.

[venice2]

Zitat:

Dafür ist eine for-Schleife nicht geeignet. Du musst dir jeweils den letzten Wert merken (oder "irgendwo" auslesen) und ihn beim Einfügen eines neuen Datensatzes um 1 erhöhen (und dann ggf. den neuen Wert wieder "irgendwo" abspeichern).

Jep! Wie ich schon sagte wenn x = Startwert dann inc(x) das ist ausreichend.
Schleife ist Sinnlos.