array speichern

[ErazerZ]

Delphi-Quellcode:

var
  i, iTemp: Integer;
  sText: String;
const
  MeinArray: Array[0..34] of Byte = (1,3,2,0,0,0,2,3,1,3,2,1,1,1,3,1,0,0,2,0,1,0,3,2,3,3,1,0,1,2,3,4,5,6,7);
  InsertPos = 7;
begin
  sText := '';
  for i := 0 to sizeof(MeinArray) -1 do
  begin
    sText := sText + IntToStr(MeinArray[i]);
  end;

  if Length(sText) mod InsertPos = 0 then
  begin
    i := InsertPos;
    iTemp := 1;
    repeat
      insert(#13#10, sText, i +iTemp);
      inc(i, InsertPos);
      inc(iTemp, 2);
    until i >= Length(sText);
    sText := Trim(sText);
    // text ist geteilt ..
  end else
    ShowMessage('es ist nicht möglich gleiche reihen zu bekommen ..');