Jump to content
cibelly_cristina

Leitura de arquivo e separação de variavéis

Recommended Posts

begin
Readln(txt,linha);
if contador <> 0 then
begin
Splitted := linha.Split([#9], 2); 
setlength(dados,contador); 
dados[contador-1].Cliente:=Splitted[0];
dados[contador-1].Marca:=Splitted[1];
end;


inc(contador);
end;
Edit17.Text:= dados[0].Cliente;
Edit2.Text:= dados[1].Marca;

end;
end.

Boa tarde, gente! Primeiramente gostaria de pedir desculpa pelo tópico que inseri minha pergunta, acabei não encontrando o relacionado com o delphi.
No meu programa eu estou lendo um arquivo txt e preciso separar cada coisa para colocar em Edits diferentes na minha tela principal. Dentro do meu arquivo tenho palavras e números separadas por tabulação. Já estou obtendo exito em relação as strings, entretanto, não sei e não encontrei uma forma de fazer o mesmo com os números. Irei mandar o código abaixo, quem puder me ajudar ficarei extremamente grata!

Desde já, meus agradecimentos!!
--------------------------
begin
Readln(txt,linha);
if contador <> 0 then
begin
Splitted := linha.Split([#9], 2); 
setlength(dados,contador); 
dados[contador-1].Cliente:=Splitted[0];
dados[contador-1].Marca:=Splitted[1];
end;


inc(contador);
end;
Edit17.Text:= dados[0].Cliente;
Edit2.Text:= dados[1].Marca;

end;
end.
---------------------
Nesse caso, tanto meu cliente e marca são strings, mas minhas outras variáveis que estou com dificuldade são do tipo real, como o número, a data de fabricação e a potência. Obrigada novamente!

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • By bernal.rodrigo
      Pessoal boa noite!!
      Criei um servidor datasnap e to precisando de uma ajuda agora neste pondo do lado cliente.
      No meu servidor tenho um Method que se chama GetVendas  para pegar as vendas.
      Porem agora ´preciso passar um período para retornar as vendas, ai que não estou conseguindo montar minha url.
      estou fazendo desta maneira do lado do cliente:
      Preciso saber como passar a data
         RESTClient1.ResetToDefaults;
         RESTRequest1.ResetToDefaults;
         RESTResponse1.ResetToDefaults;
         RESTClient1.BaseURL := 'http://localhost:8080/datasnap/rest/TVendaControl';
       
         RESTRequest1.Resource := '/Venda/{Status}/{CodVendedor}/{DtIni}/{DtFim}';
         RESTRequest1.Method := TRESTRequestMethod.rmGET;
         RestRequest1.Params.AddItem('Status',inttostr(cbbStatus.ItemIndex), TRESTRequestParameterKind.pkURLSEGMENT);
         RestRequest1.Params.AddItem('CodVendedor','', TRESTRequestParameterKind.pkURLSEGMENT);

      Project GestorApp.exe raised exception class EHTTPProtocolException with message 'HTTP/1.1 500 Internal Server Error'.
      ---------------------------
      Break   Continue   Help   
      ---------------------------
      Agradeço a todos e um forte abraço.
    • By Joelend
      Estou utilizando TPasLibVlcPlayer para reprodução de videos e preciso que estes sejam exibidos sem áudio. 
      Tentei utilizar a função "vlc.SetAudioMute(true); " porem não funcionou... 
      Olhando a documentação encontrei isso: 

      "Aviso 
      Esta função nem sempre funciona. Se não houver fluxo de reprodução de áudio ativo, o status de mudo poderá não estar disponível. Se a passagem digital (S / PDIF, HDMI ...) estiver em uso, o muting pode não ser aplicável. Além disso, alguns plug-ins de saída de áudio não suportam muting. 
      Nota 
      Para forçar a reprodução silenciosa, desative todas as faixas de áudio. Isso é mais eficiente e confiável do que o mudo." 

      No meu caso, estou utilizando o HDMI. Minha duvida é sobre como desativar as faixas de audio. 

      Alguém saberia ajudar?
    • By felk_fel@hotmail.com
      Boa tarde a todos!

      De vez em quando, acontece isso comigo, o Delphi compila a aplicação mas ela não roda ou fecha sozinha...Para resolver eu estou sempre tendo que fechar o delphi e criar uma nova aplicação. Alguém poderia me ajudar conforme o vídeo abaixo?

      https://www.youtube.com/watch?v=cFBJSS5yTN8

      Agradeço pela atenção.
    • By Felipe Garciax
      Ola,
       
      Estou com o seguinte problema, no formulario principal do meu projeto tenho um SplitView e um Image em AlClient com uma imagem em 193 kb, ao abrir e fechar o SplitView em execucao a imagem PISCA, ja usei no OBJECT INSPECTOR o DoubleBuffered em TRUE tanto para o form quanto para o SplitView e o problema persiste, ja fiz o teste no codigo tanto para o EVENTO OnShow e OnCreat:
      DoubleBuffered :=True;  e nenhum resultado... Help Me
    • By ericborrero
      Boa Noite a todos ....
       
      aguem pode me ajudar com esse código.... preciso que ele procure o menor valor e não o maior como esta aqui
       
       
       
      Procedure TfrmAvaliacao.PiorTempo;
      var
        ArrayString: Array [1 .. 5] of string;
        PiorTempo: string;
        i: Integer;
      begin
        ArrayString[1] := dbtext2.Caption;
        ArrayString[2] := dbtext4.Caption;
        ArrayString[3] := dbtext6.Caption;
        ArrayString[4] := dbtext8.Caption;
        ArrayString[5] := dbtext10.Caption;
        PiorTempo := EmptyStr;
          for i := low(ArrayString) to high(ArrayString) - 1 do
          if PiorTempo < ArrayString then
            PiorTempo := ArrayString;

        Label210.Caption := PiorTempo;
       
      end;
       
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.