Fazer o Label ler apenas uma linha de meu txt
25/08/2004
0
Olá galera, estou com outra dúvida,
Tenho um programinha que mostra o título, os subtítulo e a ordem de serviço do cliente, porém tais textos sempre mudam, gostaria de saber como poderia fazer para que em um txt o meu label1 lê-se o título, em meu label2 lê-se o subtítulo e no meu label3 a ordem de serviço.Por exemplo
Título: programa
Subtítulo: Programa elaborado em Delphi
O.S.: 500/2004
Gostaria que no mesmo txt contivesse tais dados e cada laber leria cada linha, como devo fazer isto? Como devo escrever no txt?Há a possibilidade de ir escrevendo e o label automaticamente interprete a quebra de linha?
Valeu
Tenho um programinha que mostra o título, os subtítulo e a ordem de serviço do cliente, porém tais textos sempre mudam, gostaria de saber como poderia fazer para que em um txt o meu label1 lê-se o título, em meu label2 lê-se o subtítulo e no meu label3 a ordem de serviço.Por exemplo
Título: programa
Subtítulo: Programa elaborado em Delphi
O.S.: 500/2004
Gostaria que no mesmo txt contivesse tais dados e cada laber leria cada linha, como devo fazer isto? Como devo escrever no txt?Há a possibilidade de ir escrevendo e o label automaticamente interprete a quebra de linha?
Valeu
Lhcsilva
Curtir tópico
+ 0
Responder
Posts
25/08/2004
Rômulo Barros
[u:eefe2ca5d9][b:eefe2ca5d9]Vamos ver se é isso mesmo:[/b:eefe2ca5d9][/u:eefe2ca5d9]
:wink: :wink: :wink: :wink: :wink:
procedure TForm1.Button1Click(Sender: TObject);
Var
flArq : TextFile;
strLinhas : TStrings;
begin
// Gravando no arquivo
AssignFile(flArq,´C:\arquivo.txt´);
Rewrite(flArq);
Writeln(flArq,´Titulo: ´ + Application.Title);
Writeln(flArq,´SubTitulo: Programa elaborado em Delphi´);
Writeln(flArq,´OS: 500/2004´);
CloseFile(flArq);
// Lendo o arquivo e carregando nos Labels
strLinhas := TStringList.Create();
strLinhas.LoadFromFile(´C:\Arquivo.txt´);
Label1.Caption := strLinhas.Strings[0]; // Primeira linha do arquivo: TITULO
Label2.Caption := strLinhas.Strings[1]; // Segunda linha do arquivo: SUBTITULO
Label3.Caption := strLinhas.Strings[2]; // Terceria linha do arquivo: OS
FreeAndNil(strLinhas);
end;:wink: :wink: :wink: :wink: :wink:
Responder
Clique aqui para fazer login e interagir na Comunidade :)
