Comment copier 4 caractères du début de la chaîne à la fin de la chaîne?

Question

Par exemple:

var 
s:string; 
begin 
s:='Hello1234567'; 

end; 
end. 

Comment puis-je copier à partir chaîne de 4 octets 4 byte..Example ShowMessage ('l'enfer') et ShowMessage ('O123') et ShowMessage ('4567')?

Answer 1

Utilisez la fonction Copy() pour que:

var 
    s: string; 
begin 
    s := 'Hello1234567'; 
    ShowMessage(Copy(s, 1, 4)); 
    ShowMessage(Copy(s, 5, 4)); 
    ShowMessage(Copy(s, 9, 4)); 
end;