Abrir Txt

[Paulo Nobre]

Prezados amigos,

Como se abre um txt diretamente sem ser no memo?

Vi uma resposta em que a pessoa sugeria abrir no memo, fazendo:

Memo1.Lines.LoadFromFile('caminho_do_arquivo');

Uma outra resposta sugeria um canhão para matar uma mosca, ou seja, usar API:

ShellExecute (0,'open',PChar('Nome do Arquivo.DOC'),nil,nil,SW_SHOW);

EXISTE UMA MANEIRA DE ABRIR DIRETO, OU SEJA, SEM MEMO,MAS SEM API?

Obrigado

Paulo Nobre

[AnaoScript]

Ae veio primeiro você tem que declarar uma variavel do tipo TextFile que contera o texto aberto ex:

Texto: TextFile;

e depois você usa esse codigo

AssignFile(Texto, piadas.txt);

Reset(Texto);

Aqui você meche no texto e depois tire o da memoria assim

CloseFile(Texto);

so isso mas se você for usar arquivos docs vai ser meio complicado pois docs usam algumes codigos e configuração e se você abrir dessa manaira você tera mais que os textos digitados tera cofigurações tipicas de docs

T++

[Paulo Nobre]

Valeu a dica, anao!

Paulo Nobre