Jump to content
Fórum Script Brasil
  • 0
Sign in to follow this  
virmne

Leitura de informações em arquivo

Question

Preciso ler a seguintes informações do arquivo ex: 2047 000029 260308 1733 200

mas estas informações ficam armazenadas da seguinte forma no arquivo:

20470000292603081733200

e assim tem varios registros dentro deste arquivo e preciso fazer tambem buscas neste aquivo exemplo pela junção de dois grupos de numeros : 2047000029 ou por outro grupo ex: 260308 neste aquivo.

Se alguém puder me ajuda fico grato.

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0
Preciso ler a seguintes informações do arquivo ex: 2047 000029 260308 1733 200

mas estas informações ficam armazenadas da seguinte forma no arquivo:

20470000292603081733200

e assim tem varios registros dentro deste arquivo e preciso fazer tambem buscas neste aquivo exemplo pela junção de dois grupos de numeros : 2047000029 ou por outro grupo ex: 260308 neste aquivo.

Exemplo de como fazer isto

procedure TForm1.Button1Click(Sender: TObject);
var grupo1, grupo2 : integer;
begin
   // registro = 20470000292603081733200
   // separar em grupo de numeros
   // grupo 1 = 2047000029
   // grupo 2 = 260308

   edit1.Text := '20470000292603081733200';

   grupo1 := strtoint(copy(trim(edit1.text),1,10));
   grupo2 := strtoint(copy(trim(edit1.text),11,6));

   edit2.Text := inttostr(grupo1);
   edit3.Text := inttostr(grupo2);

end;

abraço

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  



  • Forum Statistics

    • Total Topics
      148578
    • Total Posts
      644284
×
×
  • Create New...