[Delphi] Lendo .txts

[NoSlake 56]

Uma dúvida simples, eu tenho um .txt com 20 linhas (por exemplo) e quero conferir o Edit1.Text, se o que está escrito no Edit estiver em alguma linha ele libera o Form2...

 

Bom, já estudei Ler/Criar .txts e qualquer aplicativo por meio de Delphi, mas eu não estou conseguindo simplesmente isso. (Só comparar o txt com o Edit, se tiver escrito alguma linha ele abre o form2)

 

Obrigado :yes:

[DarkShade 52]

Use:

1 - TStringList.LoadFromFile;

2 - TStringList.Items[x];

3 - TEdit.Text;

4 - While;

[DromeNox 1]

Mas o que está no Edit pode estar em qualquer linha ? Se for assim faça isso:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Se não conseguir fala...

[Kyle 7]

Use um Loop, verificando todas as linhas, uma por uma.

[NoSlake 56]

Mas o que está no Edit pode estar em qualquer linha ? Se for assim faça isso:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Se não conseguir fala...

 

O que está no edit pode estar em qualquer linha.

é isso mesmo que eu quero, porém deu um erro, e se não se importar ajuda ae, que eu estou estudando ainda esse Readln.

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

É esse o erro e único mesmo, tentei traduzir e não consegui nenhum resultado, apenas :

Erro: Tipos incompatíveis: String e Processo, sem tipo ponteiro ou procedimento não digitado

 

Só isso. :rs:

 

Cheguei a essa função, mas não consegui usar Read nem Eof para comparar:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[DromeNox 1]

Tente assim:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[NoSlake 56]

Tente assim:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Não deu....

O erro é o mesmo e na mesma linha:

 

var

Texto: String;

ArquivoTexto: TextFile;

Extrair : String;

begin

AssignFile(ArquivoTexto,'C:\teste\arqtexto.txt');

Reset(ArquivoTexto);

Extrair := Readln(ArquivoTexto,Texto);

Extrair := Texto;

CloseFile(ArquivoTexto);

if extrair = edit1.text then

form2.enabled = true;

end;

[DromeNox 1]

Tente assim:

 

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[[H]unTerz 0]

mto código a toa...

use Pos :)