¿Cómo cortar cadenas en Delphi 7?

[ecfisa]

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