Re: [delphi-br] Salvar conteudo de uma query

Foi mau eu esqueci de testar o Abrir e estava com erro. ttAbrir : begin Readln(F, Linha); s := ''; x := -1; pDataSet.Append; for i := 1 to Length(Linha) do begin if Linha[i] <> ';' then

Re: [delphi-br] Salvar conteudo de uma query

Ta na mão, type TTipo = (ttAbrir, ttGravar); TForm1 = class(TForm) ... procedure ProcessarArquivo(pDataSet: TDataSet; pArquivo: String; pTipo: TTipo); var F : TextFile; i, x : Integer; Linha, s : String; vArquivo : Array [0..MAX_PATH] of Char; begin StrPCopy(vArquiv