Ir para conteúdo
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!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora

  • Conteúdo Similar

    • Por 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?
    • Por 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.
    • Por 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
    • Por 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;
       
    • Por Remeling
      Ola pessoal,
      Estou fazendo um sistema web em Delphi xe8 Intraweb, coloco os objetos no form e quando vou compilar o sistema, aparece somente a pagina em branco, o que estou fazendo errado.
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.