Ajuda pra formatar uma String

Delphi

01/03/2005

Olá,

seguinte, tenho uma string da seguinte maneira:

C258741258999

Pois bem, são 10 caracteres numericos, e os doi ultimos, e mais a primeira letra...
ou seja:

C 2587412589 99

Eis minha pergunta, esses dez caracteres são variaveis, u mudam de acordo com um calculo.. e podem aparecer numeros negativos, ou seja ficar assim

C2587-41258999


eis minha questao, tenho um vetor n de 10 possicoes, pra guardar os dez numeros, porem como faço pra pegar o numero negativo? como dividir essa string da forma correta?

ou seja...

C 2 5 8 7 -4 1 2 5 8 9 99


tentei de tudo quanto eh forma e me embaralho com o negativo! :(

desde ja agradeço a ajuda de todos... :D


[]s


Titanius

Titanius

Curtidas 0

Respostas

Motta

Motta

01/03/2005

Use a function pos ela retorna a posição de uma substring em uma string se houver, vai saber a posicao do sinal se houver.


GOSTEI 0
Beppe

Beppe

01/03/2005

Se pode ser negativo, então técnicamente deixa de ser caracter...como declara o array?

A princípio, é só iterar por ele.
var
  S: TStringStream;
  I: Integer;
  Codigo: String;
begin
  S := TStringStream.Create(´C ´);
  try
    for I := Low(Vet) to High(Vet) do
      S.WriteString(IntToStr(Vet[I]) + ´ ´);
    S.WriteString(´99´);
  finally
    S.Free;
  end;
  Codigo := S.DataString;
end;



GOSTEI 0
POSTAR