Fazer o Label ler apenas uma linha de meu txt

25/08/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


Lhcsilva

Respostas

25/08/2004

Rômulo Barros

[u:eefe2ca5d9][b:eefe2ca5d9]Vamos ver se é isso mesmo:[/b:eefe2ca5d9][/u:eefe2ca5d9]
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&93;;  // Primeira linha do arquivo: TITULO
  Label2.Caption := strLinhas.Strings&91;1&93;;  // Segunda linha do arquivo:  SUBTITULO
  Label3.Caption := strLinhas.Strings&91;2&93;;  // Terceria linha do arquivo: OS
  FreeAndNil(strLinhas);
end;


:wink: :wink: :wink: :wink: :wink:


Responder Citar