Me he bajado este código de una Web alemana y no logro descifrar para que demonios sirve, a ver si me podeis decir algo:
Código Delphi
[-]
unit Funftausend;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
Tform1 = class(TForm)
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
Procedure Machen(Sender: TObject);
private
public
end;
var
form1: Tform1;
const
Astern:Array[1..28]of integer=($48,$65,$20,$6C,
$6C,$65,$67,$61,
$64,$6F,$20,$61,
$20,$35,$2E,$30,
$30,$30,$20,$6D,
$65,$6E,$73,$61,
$6A,$65,$73,$2E);
implementation
{$R *.DFM}
procedure Tform1.FormCreate(Sender: TObject);
var
MeinButton:Tbutton;
begin
Form1.Caption:='Verfall von Georg Trakl';
Application.HintHidePause := 15000;
Application.Hintcolor:=clAqua;
MeinButton:=tbutton.Create(Self);
MeinButton.Parent:=Self;
MeinButton.visible:=True;
MeinButton.SetBounds(200 ,200,100,30);
MeinButton.Font.Style:=[fsBold];
MeinButton.caption:='der Vögel';
MeinButton.hint:=' Am Abend wenn, die Glocken Friden Läuten, '+
#13+' Folg ich de Vögel wundervollen Flügen, '+#13'';
MeinButton.showhint:=True;
MeinButton.OnClick:=form1.Machen;
end;
Procedure Tform1.Machen(Sender:Tobject);
var
MeineLabel:TLabel;
Zahler:Integer;
Reihung:String;
begin
MeineLabel:=Tlabel.Create(Self);
MeineLabel.Parent:=Self;
MeineLabel.visible:=True;
MeineLabel.Left:=100;
MeineLabel.Top:=100;
For Zahler:=1 to 28 do
begin
Reihung:=Reihung + Chr(Astern[Zahler]);
end;
MeineLabel.Font.Size:=20;
MeineLabel.Font.Color:=clRed;
MeineLabel.Font.Style:=[fsBold];
MeineLabel.Caption:=Reihung;
end;
end.
Grüß