Form ausgeben ...

[Mackhack]

Nimm mal ein Array anstatt Zahl1 bist ZahlX!

Klar ist ein Export moeglich. Kommt drauf an in wechlches Format. Fuer xml gibts genuegend Beispiele hier oder bei google oder aber hier eine schoene handliche xml Unit von Muetze1. Dann waere noch der Export in csv Dateien nuetzlich oder wie du schriebst in HTML oder pdf. Fuer pdf gibt es massig Komponenten zu finden - auch free!

Delphi-Quellcode:

  private
    { Private declarations }
    Zahl: Array[0..59] of Byte;
    Serie: Array[0..5] of Byte;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  I, Idx, Erg: Integer;
begin
  Idx := 0;

  for I := 0 to ComponentCount -1 do
  begin
    if ( Components[I] is TEdit ) then
    begin
      Zahl[Idx] := StrToIntDef(TEdit(Components[I]).Text, 0);
      Inc(Idx, 1);
    end;
  end;
  ZeroMemory(@Serie, SizeOf(Serie));
  Idx := -1;
  for I := Low(Zahl) to High(Zahl) do
  begin
    if ( Frac(I / 10) = 0 ) then
    begin
      Inc(idx);
    end;
    Inc(Serie[Idx], Zahl[I]);
  end;
  ShowMessage((IntToStr(Serie[0])) + ' ' + (IntToStr(Serie[1])) + ' ' + (IntToStr(Serie[2])) + ' ' + (IntToStr(Serie[3])) + ' ' + (IntToStr(Serie[4])) + ' ' + (IntToStr(Serie[5])));
  Erg := Serie[0] + Serie[1] + Serie[2] + Serie[3] + Serie[4] + Serie[5];
  ShowMessage(IntToStr(Erg));
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Byte;
  X, Y: Integer;
begin
  X := 10 - 35;
  Y := 10 - 25;

  for I := 0 to 59 do
  begin
    if ( Frac(i / 10) = 0 ) then
    begin
      Inc(X, 35);
      Y := 10;
    end;

    with TEdit.Create(Self) do
    begin
      Parent := Self;
      Text := '0';
      Top := Y;
      Left := X;
      Width := 25;
      Inc(Y, 25);
      Show;
    end;
  end;
end;

Mit Gedankenunterstuetzung von Sunlight7!