Zufallszahlen generieren und in Memo feld ausgeben funktioniert nicht

[Jumpy]

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.

[Bjoerk]

Oder man baut sich gleich eine Klasse, die die entsprechende Funktionalität zur Verfügung stellt (braucht man eh öfter). Wenn XE bereits eine TIntegerList hat, dann kann man die Klasse ja auch davon ableiten und entsprechend erweitern.

Delphi-Quellcode:

procedure TIntegerList.Exchange(Index1, Index2: integer);
var
  T: integer;
begin
end;

procedure TIntegerList.Sort;
var
  I, J: integer;
begin
end;

procedure TIntegerList.Assign(List: TIntegerList);
var
  I: integer;
begin
  Clear;
  for I := 0 to List.Count - 1 do
    Add(List[I]);
end;

procedure TIntegerList.Mix;
var
  MixList: TIntegerList;
  I: integer;
begin
  MixList := TIntegerList.Create;
  try
    while FCount > 0 do
    begin
      I := Random(FCount);
      MixList.Add(FItems[I]);
      Del(I);
    end;
    Assign(MixList);
  finally
    MixList.Free;
  end;
end;

procedure TIntegerList.SetStrings(Strings: TStrings; ColCount: integer);
var
  I, J, K, RowCount: integer;
  S: string;
begin
  Strings.BeginUpdate;
  Strings.Clear;
  try
    if FCount mod ColCount = 0 then
      RowCount := FCount div ColCount
    else
      RowCount := FCount div ColCount + 1;
    for I := 0 to RowCount - 1 do
    begin
      S := '';
      for J := 0 to ColCount - 1 do
      begin
        K := I * ColCount + J;
        if K < FCount then
          S := S + IntToStr(FItems[K]) + FSeparator;
      end;
      Strings.Add(S);
    end;
  finally
    Strings.EndUpdate;
  end;
end;

[Blup]

Ich befürchte ihr habt den Fragesteller mit euren Lösungen etwas überfordert.
Er hat jetzt zwar funktionierende Lösungen, versteht aber vieleicht nicht wie diese funktionieren.
Deshalb gehe ich noch einmal auf die ursprüngliche Frage ein.

Zahlen ist ein dynamisches Array.
Nach "setlength(zahlen, max);" enthält das Array Elemente für "0" bis "max - 1".
Deine Schleife läuft von "1" bis "max", ein Zugriff "zahlen[max]" ist aber unzulässig.
Bei aktiver Bereichsprüfung gäbe es an dieser Stelle bereits eine Fehlermeldung.

Mein Tip:
Gib allem einen verständlichen Namen (Steuerelemente, Methoden, Variablen).
Zerlege grosse Aufgaben in einzelne kleine Funktionen bzw. Methoden.
Die kann man unabhängig von einander Entwickeln und Testen.

Delphi-Quellcode:

procedure TForm1.ZahlenErstellen(Anzahl, Zahlenbereich: Integer);
var
  i: Integer;
begin
  SetLength(Zahlen, Anzahl);
  for i := 0 to Anzahl - 1 do
  begin
    Zahlen[i] := Random(Zahlenbereich);
  end;
end;

procedure TForm1.ZahlenBubbleSort;
begin
 { TODO :  }
end;

function TForm1.ZahlenAlsTextZeilen(MaxProZeile: Integer): string;
var
  i, n: Integer;
begin
  Result := '';
  n := 0;
  for i := 0 to Length(Zahlen) - 1 do
  begin
    {am Anfang der Zeile kein Komma}
    if n <> 0 then
      Result := Result + ',';
      
    Result := Result + IntToStr(Zahlen[i]);

    n := n + 1;
    if n = MaxProZeile then
    begin
      {neue Zeile, Zähler zurücksetzen}
      Result := Result + System.sLineBreak;
      n := 0;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ZahlenErstellen(StrToInt(edit1.Text), StrToInt(edit2.Text));
  ZahlenBubbleSort;
  memo1.Lines.Text := ZahlenAlsTextZeilen(10);
  showmessage(IntToStr(memo1.Lines.Count));
end;