Tag-Benutzung in einer Schleife

[marabu]

Hi,

es gibt bestimmt eine bessere Lösung für die Zeilenaddressierung, aber dein Code funktioniert auch mehr als einmal, wenn du eine zusätzliche Zeile einfügst:

Delphi-Quellcode:

// Der Aufruf:
sg1.tag := 0;
for i := 0 to 5 do
begin
  schreiben(sg1);
  {showmessage(inttostr(i))};
end;

Grüße vom marabu