2 Schleifen Synchron?

[Hallo_Thomas]

Ich habe hier folgendes Problem.

Ich wollte das die Werte Synchron laufen.

Und Zwar so, das dem ersten Wert der letzte aus der 2. Schleife zugeordnet
wird. Dem 2.Wert wird der vorletzte zugeordnet.

Im Moment wird dem 1. Wert ja noch der erste bis zum letzen aus der 2. Schleife zugeordnet.

Was mache ich verkehrt?

Delphi-Quellcode:

for x := meineListe.count - 1 downto 0 do
for i := 1 to meineListe.count do
      begin
        if (StrToInt(meineListe.Strings[x]) in werte[1]) then
        begin
          Counter[1] := 0;
          with Series1 do
          AddXY( i,Counter[1], 'John', clGreen );
        end
        else
        begin
          Inc(Counter[1]);
          with Series1 do
          AddXY( i,Counter[1], 'John', clGreen );
        end;

[BKempf]

Delphi-Quellcode:

for i:=xy.Count-1 downto 0 do
begin
  writeln ('Erster Wert: ', i, 'Zweiter Wert: ', xy.Count-i);
end;

Du brauchst also nur eine Schleife.

[Hallo_Thomas]

Perfekt, ich danke Dir!