Hola CM6ISG y bienvenido a Club Delphi
Como es costumbre con los nuevos integrantes te invitamos a leer nuestra
guía de estilo.
Si interpreté bién tu consulta podes hacer:
Código Delphi
[-]
procedure ...
const
DLM = #13#10;
var
Str: string;
ix: Integer;
lCampos: TStrings;
begin
Str:= '#PO0' + DLM + '#SQS' + DLM + '#EM0' + DLM + '#FT0715000' + DLM + '#FR0711200';
lCampos:= TStringList.Create;
try
ExtractStrings(['#'],[' '], PChar(Str), lCampos);
ix:= lCampos.Count-1;
lCampos[ix-1]:= Copy(lCampos[ix-1], 3, MaxInt);
lCampos[ix] := Copy(lCampos[ix] , 3, MaxInt);
ShowMessage(lCampos.Text);
finally
lCampos.Free;
end;
end;
Saludos