Pegar dados de um arquivo txt

[choia 0]

tenho duvidas de como pegar os dados de um arquivo txt e colocar na tela para o usuario visualizar

[bdexterholland 0]

você pode usar um memo

 

memo1.lines.loadfromfile(<arquivo>);

Isso serve?

[Hugo Slepicka 0]

De uma olhada nesse tópico...

 

Aqui!!!!!!

 

e tambem procure na BUSCA do fórum por txt, tem muito material lá!!!!

 

 

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[choia 0]

você pode usar um memo

memo1.lines.loadfromfile(<arquivo>);

Isso serve?

cara isso serve sim, mas eu tenho que pegar somente uma parte do arquivo txto meu prog ele salva isso "error on SnmpMgrRequest 40Value = String Hardware: x86 Family 15 Model 2 Stepping 9 AT/AT COMPATIBLE - Software: Windows 2000 Version 5.1 (Build 2600 Uniprocessor Free)"so que so posso mostrar para o usuario do value para frente

[Hugo Slepicka 0]

Procedure Le_Em_Ini;Var Texto: TStringList;	pegar: String;begin	Texto := TStringList.Create;	Texto.LoadFromFile('Arquivo.txt');	pegar :=  Copy(Texto.Strings[2],8, Length(Texto.Strings[2]));	Texto.Freeend;

acredito que isso pode te ajudar...

[choia 0]

Procedure Le_Em_Ini;Var Texto: TStringList;	pegar: String;begin	Texto := TStringList.Create;	Texto.LoadFromFile('Arquivo.txt');	pegar :=  Copy(Texto.Strings[2],8, Length(Texto.Strings[2]));	Texto.Freeend;

acredito que isso pode te ajudar...

cara mas esse codigo nao esta jogando nenhum valor na tela como eu jogo isso em um memo...

[bdexterholland 0]

Procedure Le_Em_Ini;Var Texto: TStringList;	pegar: String;begin	Texto := TStringList.Create;	Texto.LoadFromFile('Arquivo.txt');	pegar :=  Copy(Texto.Strings[2],8, Length(Texto.Strings[2]));	showmessage(pegar);	Texto.Freeend;

ou

 

Procedure Le_Em_Ini;Var Texto: TStringList;	pegar: String;begin	Texto := TStringList.Create;	Texto.LoadFromFile('Arquivo.txt');	pegar :=  Copy(Texto.Strings[2],8, Length(Texto.Strings[2]));	memo1.text:=pegar;   	Texto.Freeend;

[choia 0]

Procedure Le_Em_Ini;Var Texto: TStringList;	pegar: String;begin	Texto := TStringList.Create;	Texto.LoadFromFile('Arquivo.txt');	pegar :=  Copy(Texto.Strings[2],8, Length(Texto.Strings[2]));	showmessage(pegar);	Texto.Freeend;

ou

Procedure Le_Em_Ini;Var Texto: TStringList;	pegar: String;begin	Texto := TStringList.Create;	Texto.LoadFromFile('Arquivo.txt');	pegar :=  Copy(Texto.Strings[2],8, Length(Texto.Strings[2]));	memo1.text:=pegar;   	Texto.Freeend;

cara et ate tentei faer isso so que ele da esse erro "missing operator or semicolon" oq significa?

[marcio.theis 3]

Tente desta outra forma:

 

procedure TForm1.BitBtn1Click(Sender: TObject);var	txt: TextFile;	str: string;beginMemo1.Clear;AssignFile(txt,'c:\teste.txt');{$I-}Reset(txt);{$I+}if IOResult = 0 then	begin	while not Eof(txt) do		begin		Readln(txt, str);		if str <> '' then			if copy(str,1,8) = 'Value = ' then				Memo1.Lines.Add(copy(str,9,Length(str) - 8));		end;	end;CloseFile(txt);end;

[Hugo Slepicka 0]

Texto.Free

 

esse erro que você ressaltou Choia, é devido a falta de um ; no fim dessa linha!!!

 

 

 

Procedure Le_Em_Ini;

Var Texto: TStringList;

pegar: String;

begin

Texto := TStringList.Create;

 

Texto.LoadFromFile('Arquivo.txt');

 

pegar := Copy(Texto.Strings[2],8, Length(Texto.Strings[2]));

 

memo1.text:=pegar;

 

Texto.Free;

end;

[choia 0]

Texto.Free

 

esse erro que você ressaltou Choia, é devido a falta de um ; no fim dessa linha!!!

 

 

 

Procedure Le_Em_Ini;

Var Texto: TStringList;

pegar: String;

begin

Texto := TStringList.Create;

 

Texto.LoadFromFile('Arquivo.txt');

 

pegar := Copy(Texto.Strings[2],8, Length(Texto.Strings[2]));

 

memo1.text:=pegar;

 

Texto.Free;

end;

cara deu certo sim muito obrigado

[Hugo Slepicka 0]

Sussa...tamo ai!!! B)

[bdexterholland 0]

fala sério!