Größere Labels erlauben..

[fabgo]

Delphi-Quellcode:

procedure TSpielplan.BtEintragenClick(Sender: TObject);
begin
I:=I+1;
Zahl:=Zahl2+I;
  Label14.Caption := Label14.Caption + FloatToStr(Zahl)+ #13#10 + #13#10;             // Nummer (#13#10 sorgt für Zeilenumbruch)
  Label1.Caption := Label1.Caption + Edit1.Text + #13#10 + #13#10;                 // Datum
  Label15.Caption := Label15.Caption + ComboBox1.Text + #13#10 + #13#10;           // Mannschaftstyp
  Label16.Caption := Label16.Caption + ComboBox2.Text + #13#10 + #13#10;           // Teamgröße
  Label17.Caption := Label17.Caption + ComboBox3.Text + #13#10 + #13#10;           // Spieltyp
  Label18.Caption := Label18.Caption + ComboBox4.Text + #13#10 + #13#10;           // H/A
  Label19.Caption := Label19.Caption + Edit2.Text + #13#10 + #13#10;               // Gegner
  if ComboBox4.Text = 'Heim'
    then begin
      Label20.Caption := Label20.Caption + FloatToStr(StrToFloat(Edit3.Text)-1) + ':' + Edit4.Text + #13#10 + #13#10;
    end
    else begin
      Label20.Caption := Label20.Caption + FloatToStr(StrToFloat(Edit3.Text)-2) + ':' + Edit4.Text + #13#10 + #13#10;  // Treffpunkt
    end;
  Label21.Caption := Label21.Caption + Edit3.Text + ':' + Edit4.Text + #13#10 + #13#10;  // Spielbeginn
  Label22.Caption := Label22.Caption+Edit5.Text + #13#10 + #13#10;                 // Ort
  Label23.Caption := Label23.Caption+ComboBox5.Text + #13#10 + #13#10;             // Betreuer