Cita:
Empezado por gusspagano
Hola,
Bueno, al parecer se guardan los valores ASCII pues el manual no dice otra cosa, y en cuanto a lo que hay que leer es Word (palabras de 16 bits), ahora, es esto suficiente para convertir a texto??, que función puedo usar??
|
Hola gusspagano.
Ateniendome a lo que me comentas, una forma de leerlo sería:
Código Delphi
[-]
var
FileWord: file of Word;
s: string;
W: Word;
begin
AssignFile(FileWord, 'C:\TU_RUTA\TU_ARCHIVO.BIN');
try
Reset(FileWord);
with TStringList.Create do
try
while not Eof(FileWord) do
begin
s:= '';
repeat
Read(FileWord, W);
s:= s + Chr(W);
until (W = 13) or Eof(FileWord);
if not Eof(FileWord) then TS.Add(s);
end
finally
Memo1.Lines:= TS;
TS.Free
end
finally
CloseFile(FileWord)
end
end;
Saludos.