Ver Mensaje Individual
  #5  
Antiguo 25-09-2007
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 28
Lepe Va por buen camino
¿Y este tema está en el foro Noticias? Por fa, algún moderador que lo mueva.


La función Pos permite saber donde está una subcadena dentro de otra, así que puedes saber donde está el símbolo de igual.

¿Es obligatorio un array para guardar los números?

si tenemos este texto : 1,2,3,4,5,6,7,8,9,0
podemos usar un TStringList para guardarlos, (funciona igual que los elementos de un Combobox, líneas de un memo, etc...)

Para guardarlos puedes usar algo así:
Código Delphi [-]
TForm1 = class(TForm)
...

private
  numerosDeA :TStringList;
end;

procedure TForm1.button1Click(...)
var lista :string;
    idxAbre, i :integer;
   idxCierra :integer;
begin
  FreeAndnil(numerosDeA);
  lista := 'a={1,2,3,4,5,6,7,8,9,0}';
  idxAbre := pos('{', lista);
  idxCierra := pos('}', lista);
  numerosDeA := TStringlist.Create;
  numerosDeA.commaText := Copy(lista, idxAbre +1, idxCierra - idxAbre);
  
  For i:=0 to numerosDeA.Count -1 do
    ShowMessage(Format('el índice %d de NumerosDeA tiene el texto %s', [ i,numerosDeA[i]]);
end;

Espero se entienda.

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita