pauloevaristo

Eu coloquei desta maneira pois foi como um exemplo que vi. Se não for te incomodar muito, gostaria que você me enviasse seu e-mail pra eu te mandar uma copia do arquivo pra voce ver se é possível me ajudar? Abraço

Bom pessoal estou tendo dificuldades na conversão de dados de um arquivo binario. Al ler alguns dados do tipo string tudo bem mas qunado tento ler quatro bytes que são do tipo inteiro os valores não estão sendo convertidos de forma adequada, favor olhar parte do codigo que usei para ver se isso mesmo ou se estou fazendo algo errado: procedure TFRelatorio.Button12Click(Sender: TObject); var F: TextFile; strDados: String; chrByte: Char; intByte,i: Integer; begin AssignFile(F,'c:\arquivo.PDB'); Reset(F); // nome strDados := ''; for i := 1 to 32 do begin Read(F,chrByte); strDados := strDados + chrByte; end; Edit1.Text := strDados; // quantidade de segundos strDados := ''; for i := 1 to 4 do begin Read(F,chrByte); intByte := Ord(chrByte); strDados := strDados + IntToStr(intByte); end; Edit2.Text := strDados; CloseFile(F); end;

Prezado colega se o campo codigo for do tipo inteiro, então você deve colocar a seguinte linha : (dmLocad.tbClientes.Filter := 'Codigo = '+ nome.Text;), pois se voce colocar as aspas duplas ele vai entender que o valor que você esta passando e do tipo string. Abraço

Presado colega, eu nunca trabalhei com buffer e estou tendo algumas dificuldades, sera que teria como voce me dar alguns exemplos destas funcoes e de como trabalhar com buffer em memória?

Label1.Caption := 'R$ ' + FloatToSTrF(Variavel,ffNumber,12,2);

você tem alguns exemplos de leitura e conversão dos dados para que eu possa dar uma olhada ?

FrmPrincipal.FormShow(nil);

Prezado colega, se o que eu tentendi foi que você quer chamar aquele procedimento dentro de outro, basta você incluir a seguinte linha dentro do procedimento desejado : TFrmPrincipal.FormShow(nil);

E ai pessoal estou precisando ler um arquivo binario (pdb - bando de dados do palm) e não estou conseguindo, se alguém tiver uma ideia de como faço, pois preciso ler uma determinada quantidade de bytes para saber onde ler os proximos e assim por diante até o final do arquivo.