Fórum Script Brasil > (Resolvido) Ler array de String

Versão Completa: (Resolvido) Ler array de String

Fórum Script Brasil > Programação & Desenvolvimento > Delphi, Kylix

djfarinha

26/06/2010 - 14:55

Boa tarde pessoal vim pedir a ajuda de voces para resolver um probleminha.

Eu tenho a seguinte string : '1.15.20.50.19.9.23';
Eu quero colocar cada numero dentro de uma variavel ex:

num: array[1..7]of string;

num[1]:='1';

num[2]:='15';

num[3]:='20';

num[4]:='50';

num[5]:='19';

num[6]:='9';

num[7]:='23';

Eu ate tentei fazer, só que esta pegando somento o ultimo numero ex:

num[2]:='15'; No meu programa o valor da variavel num[2] , seria num[2]:='5';

Meu codigo:

Program string ;
var
cartas:array[1..7]of string;
x,i,cont,tm:integer;
texto:string;
Begin
texto:='1.34.51.15.4.37.10';
i:=1; x:=1; cont:=1; tm:=length( texto );
while(cont <= tm)do
begin
if(texto[cont] <> '.')then
begin
cartas[x]:='';
cartas[x]:= cartas[x]+''+Copy(Texto, cont, 1);
cont:=cont+1;
end;
if(texto[cont]= '.')then
begin
x:=x+1;
cont:=cont+1;
end;

end;
writeln(cartas[1]);
writeln(cartas[2]);
writeln(cartas[3]);
writeln(cartas[4]);
writeln(cartas[5]);
writeln(cartas[6]);
writeln(cartas[7]);

End.

VLw.. espero pela ajuda de Voces.

Jhonas

26/06/2010 - 15:46

Veja a correção do código

CODE

var
   cartas:array[1..7]of string;
   x,i,cont,tm:integer;
   texto:string;

Begin
texto:='1.34.51.15.4.37.10';
x:=0; cont:=1; tm:=length( texto );
while(cont <= tm)do
begin
   if(texto[cont] = '.')then
      begin
        x:=x+1;
        cartas[x]:='';
        cartas[x]:= cartas[x]+''+Copy(Texto, 1, cont-1);
        delete(Texto,1,cont);
        cont:= 1;
      end
   else
      begin
        cont:=cont+1;
        if cont > tm then
           begin
              x:=x+1;
              cartas[x]:= cartas[x]+''+Copy(Texto, 1, cont-1);
              Break;
           end;
      end;
end;

writeln(cartas[1]);
writeln(cartas[2]);
writeln(cartas[3]);
writeln(cartas[4]);
writeln(cartas[5]);
writeln(cartas[6]);
writeln(cartas[7]);
readln;

End.

abraço

djfarinha

03/07/2010 - 20:48

valeu amigo ajudo muuiito, brigadão

Esta é uma versão simplificada de nosso conteúdo principal. Para ver a versão completa com maiores informações, formatação e imagens, por favor clique aqui.