mehrzeiliger Text

[toms]

Oder wenn du die vielen #13#10 nicht magst, schreibst du dir eine kleine Wrapper-Procedure:

Delphi-Quellcode:

procedure AddLabelText(ALabel: TLabel; const s: string);
begin
  with ALabel do
  begin
    if s <> '' then
      Caption := Caption + #13#10;
    Caption := Caption + s;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var Text: String;
begin
  AddLabelText(Label1,'EMeine Firma '+ chr(174) +' by:');
  AddLabelText(Label1, chr(169) +' 2007');
  AddLabelText(Label1,'Version: 1.1.1.1');
  AddLabelText(Label1,'');
  AddLabelText(Label1,'Sitz des Unternehmens');
  AddLabelText(Label1,'Str: ');
  AddLabelText(Label1,'Ort: ');
  AddLabelText(Label1,'Tel: ');
  AddLabelText(Label1,'Mobil: ');
  AddLabelText(Label1,'');
  AddLabelText(Label1,'Web: http://www.MeinePage.de');
  AddLabelText(Label1,'Email: [email][e-mail][/email]');
end;