Carregar conte�do de uma arquivo

Question

Galera, eu estou com um prblema,Eu tenho um arquivo chamado registro.reg, e tenho que carregar o conte�do desse arquivo em uma vari�vel, mas n�o pode aparecer uma tela para selecionar o arquivo, pois ...

Hades · Answer

Fica mais f�cil ajud�-lo se voc� detalhar mais o problema.Apesar disso, acredito que alguma classe da fam�lia TStream possa resolver (que tal TFileStream?).Atenciosamente,Hades...

Isac · Answer

� o seguinte:Eu gravei um arquivo system.reg no disco onde o conte�do � somente um c�digo.ex: arquivo: system.reg      conteudo: 000586545Toda vez que eu abrir a minha aplica��o, eu tenho que carregar este conte�do (000586545) em uma vari�vel.Mas eu n�o estou conseguindo fazer....

Hhhhhh · Answer

se o arquivo for um TXT, vc pode usar a vari�vel TextFile para manipul�-lo.

procedure TForm1.FormCreate(Sender: TObject);
var
  arq: TextFile;
  s: String;
begin
  AssignFile(arq, �c:\registro.reg�);
  Reset(arq);
  Readln(arq, s);
  CloseFile(arq);
end;

Isac · Answer

Valeu galera, consegui..Obrigado a todos!!!!...

Rebel_inside · Answer

outra solu��o seria:[code:1:6f08275f59]procedure FileToStr(AFileName: String): String;var  l: TStringList;begin  l:= TStringList.Create;  try    l.LoadFromFile(AFileName);    Result:= l.Text;  finally    FreeAndNil(l);  end;end;[/code:1:6f08275f59]para usar, fa�a o seguinte:[code:1:6f08275f59](...)  MinhaVariavel:= FileToStr(�X:MeuArquivo.ext�);(...)[/code:1:6f08275f59]...

F�rum Carregar conte�do de uma arquivo #155478