Pascal/Delphi Multiplos textos no edit

[suprem0]

Eu exporto um .zip de dados do SAT pra pegar todas as chave de acesso referente ao período X.
Segue anexo: http://prntscr.com/oq2jgj

Então fiz um programa para baixar essas chave de acesso em XML
Segue anexo: http://prntscr.com/oq2kb4

Minha duvida era: uma chave possui 44 números, como q eu posso fazer para copiar 10 chaves de acesso, colar no edit1 e ir preenchendo os outros 9 edit automático?

[Fazzioni]

Você está copiando manualmente?

se sim, pode usar a função   Edit1.PasteFromClipboard;

 

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = #22 then // se pressionar ctrl+c
begin
  Edit1.Text :=  '';
  Edit1.PasteFromClipboard;
    // crie uma função para separa as cheves e coloque nos edits
    // você pode usar a função copy: exemplo:
  key := #0;
end;

if key = #8 then // se pressionar backspace
begin
Edit1.Text := copy(Edit1.Text {o texto a ser copiado},1 { posição inicial},length(edit1.text)-1 {quantidade de caracteres });
key:=#0
end;

end;

 

 

se não, 

voce pode abrir  o arquivo e verificar como está a estrutura das chaves,

se estiver uma chave a cada linha, basta percorrer linha por linha e atribuir aos edits, aqui você pode usar um Tstringlist para facilitar.

 

var
  arq : TStringList;
  i : integer;
begin
try
  arq := TStringList.Create;

  // abre o arquivo das chaves
  arq.LoadFromFile('c:\meuarquivo.txt' );
  for i := 0 to arq.Count -1 do
  ShowMessage(arq[i]);

finally
  FreeAndNil(arq);
end;

end;