Array
(
)

Fazer o Label ler apenas uma linha de meu txt

Lhcsilva
   - 25 ago 2004

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


Rômulo Barros
   - 25 ago 2004

[u:eefe2ca5d9]Vamos ver se é isso mesmo:[/u:eefe2ca5d9]
#Código

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: