Cita:
Empezado por elmago00
como puedo separar la cadena del Tedit en gruppo de 2.
por ejemplo :256312456892254 quisiera que quedara en string.
var1: 25
var2: 63
etc
|
En ese caso creo que te conviene hacerlo a mano...
Código Delphi
[-]
...
var
s1,s2,s3,s4,s5,s6,s7,s8: string;
procedure TForm1.btnSepararClick(Sender: TObject);
begin
with Edit1 do
begin
s1:= Copy(Text,1,2);
s2:= Copy(Text,3,2);
s3:= Copy(Text,5,2);
s4:= Copy(Text,7,2);
s5:= Copy(Text,9,2);
s6:= Copy(Text,11,2);
s7:= Copy(Text,13,2);
s8:= Copy(Text,15,2);
end;
Edit2.Text:= Format('%s %s %s %s %s %s %s %s',[s1,s2,s3,s4,s5,s6,s7,s8]);
end;
Aunque logicamente, al ser un total de 15 caracteres, no es posible almacenar dos caracteres por variable ...
Saludos
