jlen100
Messages postés1606Date d'inscriptionsamedi 10 juillet 2004StatutMembreDernière intervention25 juillet 201413 17 déc. 2008 à 09:59
salut
passe apr une variable intermédiaire et une boucle for
var s,s1 : string;
r:integer;
begin
s := 'abcdef';
s1:='';
for r:=1 to length(s)-1 do s1 := s1+s[r]+'.';
s1 := s1+s[r];
showmessage(s1);