procedure
TForm1.Button1Click(Sender: TObject);
Var St:String;
i:Integer;
begin
St:='Delphipage'; //Texte à
écrire verticalement
Label1.Caption:=''; //Efface le contenu
du label
for i:=1 to Length(St) do
Label1.Caption:=Label1.Caption+St[i]+#13;
end;
|