Delphi for Schleife -> Warnung

[DieDolly]

Zitat:

Oder eine while - Schleife benutzen

Dann aber im Delphi-Style :thumb:

Delphi-Quellcode:

while t <= j do
 begin

[Neutral General]

Ich würds so machen:

Delphi-Quellcode:

label _loop;
asm
  mov ecx, 0
  mov edx, 100
_loop:
  // iwas
  inc ecx
  cmp ecx, edx
  jng _loop
end;

[pesi]

Vielleicht bin ich ja manchmal etwas einfach gestrickt, aber ich verstehe nicht warum t die Schleifenvariable sein muss und gleichzeitig der Anfangswert???? Noch nie gesehen so ein Konstrukt, kommt mir auch ziemlich sinnfrei vor, oder??? Warum nicht eine wirkliche, also eigenständige, Schleifenwariable XXX verwenden???

Code:

t := 0;
j := 100;
for XXX := t to j do begin
 //iwas...
end;

[DieDolly]

Zitat:

Vielleicht bin ich ja manchmal etwas einfach gestrickt, aber ich verstehe nicht warum t die Schleifenvariable sein muss und gleichzeitig der Anfangswert????

Wer sagt denn, dass das sein muss? Stimmt doch gar nicht.

Delphi-Quellcode:

for i := 0 to 99 do
 begin
 end;

[himitsu]

Klar kann die Schleifenvariable und der Startwert die selbe Variable sein, aber man sollte/darf eben nach der Schleife nicht mehr den Wert dieser Variable verwenden.
Man kann sogar für Schleifenvariable und Endwert die selbe Variable verwenden, da Delphi sich von dem Endwert sowieso eine Kopie macht, weswegen man bei Schleifen mit Delete etwas aufpassen muß.

Delphi-Quellcode:

x := 100;
for x := 0 to x do 
  ;

[kagi3624]

Zitat:

Zitat von pesi (Beitrag 1458742)

Vielleicht bin ich ja manchmal etwas einfach gestrickt, aber ich verstehe nicht warum t die Schleifenvariable sein muss und gleichzeitig der Anfangswert???? Noch nie gesehen so ein Konstrukt, kommt mir auch ziemlich sinnfrei vor, oder??? Warum nicht eine wirkliche, also eigenständige, Schleifenwariable XXX verwenden???

Code:

t := 0;
j := 100;
for XXX := t to j do begin
 //iwas...
end;

Das hängt damit zusammen, dass ich von C++ komme :lol: ... aus meiner Sicht macht Delphi überhaupt keinen Sinn :lol:

[Sherlock]

Delphi ist etwas wortreicher als C++, das sehe ich ein. Aber Unverständlich dürfte es nun wirklich nicht sein. :wink:

Sherlock

[hoika]

Hallo,

Zitat:

dass ich von C++ komme

Auch in c++ werden Schleifenvariablen in Register kopiert (z.B. ax,eax).
Und da es nicht genügend Register gibt,
können diese Register nach dem Ende der Schleife wieder anderweitig belegt werden/sein.

[Moombas]

Also ich mache es in der Regel so, das die Schleifenvariable ihren eigene Variable hat (Beispiel gab es hier ja schon). Jedoch immer mit eindeutiger Bezeichnung wofür gezählt wird (wenn möglich):

Delphi-Quellcode:

for Col := 0 to Listen_XLS.ColCount - 2 do
begin
   for Row := 0 to Listen_XLS.RowCount - 1 do
   begin
     Listen_XLS.Cells[Col, Row] := Listen_XLS.Cells[Col + 1, Row];
   end;
end;

bzw. wenn es vorher definiert werden muss wo ich starte/aufhöre auch mal so (nur ein Sample):

Delphi-Quellcode:

start   := 0;
EndeCol := Listen_XLS.ColCount - 2;
EndeRow := Listen_XLS.RowCount - 1;

for Col := start to EndeCol do
begin
   for Row := start to EndeRow do
   begin
     Listen_XLS.Cells[Col, Row] := Listen_XLS.Cells[Col + 1, Row];
   end;
end;

So kann man, sofern man es braucht, diese gesetzten Werte auch mehrfach verwenden. Das erleichtert auch ggf. Anpassungen, wenn aus irgendwelchen Gründen, sich diese Start/Endpunkte verschieben sollen, da nur die Variable geändert werden muss.

[himitsu]

@pesi ohne große Ahnung vom Programmieren zu haben, ist die Delphi-Schleife IMHO einfacher,
denn da gibt es nur FROM und TO, während man in C die Initialisierung, die Abbruchbedingung und die Inkrementierung erstmal kappieren muß.
Dafür kann man in C die For-Schleife nativ auch wesentlich komplexer benutzen.

https://www.w3schools.com/cpp/cpp_for_loop.asp
http://docwiki.embarcadero.com/RADSt...For_Statements
Und mal ganz im Ernst ... ohne genauere Vorkentniss, weiß man bein C++ hier nicht was wo rein muß.

Code:

for (statement 1; statement 2; statement 3) {

Delphi-Quellcode:

for counter := initialValue to finalValue do

for counter := initialValue downto finalValue do

Und ich hab schon viele Wikis/Tutorials/Hilfen gesehen, wo es so "unbezeichnend" dokumentiert ist und man erst das Kleingedruckte genau lesen muss.

Auch wenn es anders ginge.
http://docwiki.embarcadero.com/RADSt.../For_(C%2B%2B)
https://en.cppreference.com/w/cpp/language/for



In C ist der For-Loop quasi nur eine Kurzschreibweise (Makro) für eine While-Schleife inkl. Initialisierung und Inkrementierung.

In Delphi ist es halt was Eigenes. (auch wenn es intern auch fast wie 'ne WHILE arbeitet, inkl. einer Temp-Variable für das Ende)
Leider ohne das STEP, was man aus BASIC und anderen Pascal-Dialekten kennt. :cry:

Da das Ende oft mit = arbeitet, gäbe es Probleme, wenn man innerhalb der Schleife den Zähler ändert. (was möglich ist, aber dann den Abbruch verhindern kann)

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  //for i := 0 to 8 step 2 do begin
  for i := 0 to 8 do begin // 0 2 4 8 (Abbruch bei 9, aber da sie übersprungen wurde) 10 12 14 ... = Endlosschleife, da bei 32 Bit es wieder zur 0 zurückkehrt
    if i > 30 then
      Break;  // manueller Sicherheitsabbruch
    Memo1.Lines.Add(IntToStr(i));
    Application.ProcessMessages;
    Inc(PInteger(@i)^);  // STEP 2
  end;

Hier kann man sich mit dem FOR-IN behelfen.

Delphi-Quellcode:

// wenn GenerateSeries(From, To, Step) die Zahlenfolge als Enumerator oder dynamisches Array liefert

for i in GenerateSeries(0, 8, 2) do