Mit insert machst du eine neue Zeile und verschiebst die bisherige nach unten. Dadurch entsteht die Pyramide. Du must einfach ...Lines[i] = Lines[i]+...+Zahl[i]
oder entsprechend ändern.
Generell wäre es aber sicher einfacher erstmal in einer ersten Schleife die Zahlen zu generieren und in dem Array zu speichern. Anschließend dann die Zahlen aus dem Array ausgeben in einer neuen Schleife, wo man dann einfach erstmal bis zu 10 Zahlen in einen String hängt und den dann nach und nach ausgibt.
Oder man macht es direkt so wie bjoerk es vorschlägt.
Dann wird aber nur eine Zeile angezeigt
Ich zitier mich mal selber:
Zitat:
Anschließend dann die Zahlen aus dem Array ausgeben in einer neuen Schleife, wo man dann einfach erstmal bis zu 10 Zahlen in einen String hängt und den dann nach und nach ausgibt.
Delphi-Quellcode:
s:='';
for i:=Low(Array) to High(Array) do
begin
s = s+Array[i];
if (i mod 10 = 0) or i=High(Array) then
beginn
Memo1.Lines.Add(s);
s:='';
end
else
begin
s=s+',';
end;
end;