Dividir string

Delphi

24/10/2005

Boa tarde Galera estou com um pequano probleminha é esse : eu tenho uma string de 420 caracteres, a qual são várias aliquotas juntas assim T011800S020500 pois é só que é necessário que eu jogue em um vetor a mesma só que separada dessa forma T011800 na posição 1 , S020500 na posição 2 do vetor e assim por diante ai verifiquei que no inicio de cada aliquota tem uma letra então gostaria de saber como eu faço pra verificar dentro dessa string uma letra que ai se for letra eu copio ela mais os outros 6 caracteres e mando pro vetor nas posições algeum pode me dar uma força


Bruno

brunoemf@gmail.com

[color=red:6d3fad602e]Título editado por Massuda Título original removido: ´Help Urgente´[/color:6d3fad602e]



Orc

Orc

Curtidas 0

Respostas

Marlon Spiess

Marlon Spiess

24/10/2005

begin
texto := Stringoriginal;
ind := 0;
while length(texto) > 0 do
begin
inc(ind);
recebe[ind] := copy(texto,1,6);
delete(texto,1,6);
end;


Só falta defenir as variáveis.


GOSTEI 0
Fabiano Góes

Fabiano Góes

24/10/2005

Apenas um ideia, tente adaptar a sua situação:

var
  str : String;
  iPos:  integer;
begin
  str :=  SuaString;

  iPos  :=  Pos(´T´, str);
  if copy(str, iPos, 1) = ´T´ then
     Memo1.Lines.Add(copy(str, iPos, 7));// <= Aqui você joga no Vetor
                                         // estou adionando no memo apenas como teste

  iPos  :=  Pos(´S´, str);
  if copy(str, iPos, 1) = ´S´ then
     Memo1.Lines.Add(copy(str, iPos, 7));

  // Faça o mesmo para as outras letras ....

  ...

end;


Espero que possa te ajudar !

Um Abraço !!!!


GOSTEI 0
Randallo

Randallo

24/10/2005

for i:=1 to Length(SuaString)/7 do begin
Array[i] := MidStr(SuaString,i*7-6,7);

rápido e fácil... :P
um abraço


GOSTEI 0
Orc

Orc

24/10/2005

Valeu Galera pela força


GOSTEI 0
POSTAR