Como Generar Un Archivo Txt Desde Delphi

[[Lepe]]

¿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