Salvar Texto Em Um Arquivo Binario (Resolvido)

[ramon]

alguém tem um exemplo de como eu posso salvar o que foi digitado em uma txt box num arquivo binario em delphi

[Graymalkin]

alguém tem um exemplo de como eu posso salvar o que foi digitado em uma txt box num arquivo binario em delphi

Creio que não haja um distinção específica entre binário e texto no Delphi, já que o código abaixo funciona:

var t : textfile;
begin
  assignfile(t, 'c:\teste.bin');
  rewrite(t);
  write(t, chr(1));
  write(t, chr(2));
  write(t, chr(3));
  write(t, chr(4));
  write(t, chr(0));
  write(t, chr(1));
  write(t, chr(32));
  closefile(t);
end;

Só que você não vai poder pegar dados binários de uma caixa de texto, já que ela não representa corretamente todos os 256 valores possíveis.

Abraços,

Graymalkin

[ramon]

Bom já vi que tem algumas diferencas em relacoa ao vb eu posso pegar tantos inteiros como string e salvar em binario

e para carregar quais as funcoes que tenho que usar

[Graymalkin]

Bom já vi que tem algumas diferencas em relacoa ao vb eu posso pegar tantos inteiros como string e salvar em binario

Como assim?

e para carregar quais as funcoes que tenho que usar

Para carregar você usa:

var t : textfile;
    dados : string;
begin
  assignfile(t, 'c:\teste.bin');
  reset(t);
  read(t, dados);
  closefile(t);
end;

Abraços,

Graymalkin

[ramon]

Bom já vi que tem algumas diferencas em relacoa ao vb eu posso pegar tantos inteiros como string e salvar em binario

Como assim?

Deixa pra la eu viajei!

Valeu pelos codigos