Astuces
- Strings - Mettre
des espaces entre les lettres d'un string en Delphi
Ajouter un composant
TButton.
procedure
TForm1.Button1Click(Sender: TObject); Var St:String;
i:integer; begin
St:='delphipage';
Label1.Caption:=''; //Efface le contenu
du label for i:=1 to Length(St) do
Label1.Caption:=Label1.Caption+' '+St[i]; end;