Manipular Arquivo Texto

[lote 0]

Caros amigos,

Estou precisando de uma rotina que me possibilite o seguinte:

Em um arquivo texto está gravado a seguinte linha por exemplo:

 

manga, pera, maçã, uva (002233)

 

realizado o procedimento ou a função fique da seguinte maneira no form:

 

Memo1: manga, pera, maçã, uva

Memo2:(002233)

 

Estou precisando muito,

Desde já agradeço. http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[Hugo Slepicka 0]

Tente a Busca do fórum logo ali embaixo...

 

garanto que tem muito material a respeito de arquivo texto... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[lote 0]

Hugo, já procurei muito, tem muita coisa de arquivo texto, mas não encontrei nenhum exemplo que pudesse me dá uma idéia de como fazer isso.

[marcio.theis 3]

Tente algo do tipo:

 

procedure TForm1.BitBtn1Click(Sender: TObject);var	arq: TextFile;	str, codigo: string;	x: integer;beginAssignFile(arq,'c:\teste.txt');{$I-}Reset(arq);{$I+}if IOResult = 0 then	begin	while not Eof(arq) do		begin		Readln(arq,str);		x:=Length(str) - 1;		codigo:='';		while (x > 0) and (str[x] <> '(') do			begin			codigo:=str[x] + codigo;			Dec(x);			end;		if codigo <> '' then			begin			Memo1.Lines.Add(copy(str,1,Length(str) - Length(codigo) - 2));			Memo2.Lines.Add('(' + codigo + ')');			end		else			Memo1.Lines.Add(str);		end;	end;CloseFile(arq);end;

[lote 0]

Marcio está perfeito,

Como diz o Romário você é o cara.

Muito obrigado mesmo.

Até breve.

[marcio.theis 3]

certo, beleza... :P