hola, no tengo idea de pascal, (Delphi) y necesito pasar una clase de este a Java o C#, no entiendo estos dos metodos
function TrmBase.GetWord(const Offset: Integer): Word;
var PWord : ^Word;
PWordLo, PWordHi : Pointer;
begin
Result := 0;
if assigned (FileStream) then
begin
FileStream.Seek(OffSet-1,soFromBeginning);
new (PWord);
try
PWordHi := PWord;
PWordLo := PWord;
inc (Integer(PWordHi));
FileStream.Read(PWordHi^,1);
FileStream.Read(PWordLo^,1);
Result := PWord^;
finally
Dispose (PWord);
end;
end;
end;
function TrmBase.GetByte(const Offset: Integer): Byte;
var PByte : ^Byte;
begin
Result := 0;
if assigned (FileStream) then
begin
FileStream.Seek(OffSet-1,soFromBeginning);
new (PByte);
try
FileStream.Read(PByte^,1);
Result := PByte^;
finally
Dispose (PByte);
end;
end;
end;
GetByte y GetWord, si me ayudaran a pasarlo a C# o Java se los agradeceria,
Adjunto el archivo de proyecto exactamente la clase rmClass ...
esto es un programa que convierte o interpreta archivos DAT de rmcobol 85 que por ningun lado lo he podido conseguir, esto es la unica alternativa que he encontrado. la informacion mas reciente de cobol es del 2003, y nadie que conosca ha manejado eso. menos mal encontre este programita que lo lee, pero hecho en delphi y he probado convertidores y he tratado de que funcione pero sin ningun exito.
se los agradesco que me puedan ayudar con esto porque no se que mas hacer :nervios:
function TrmBase.GetWord(const Offset: Integer): Word;
var PWord : ^Word;
PWordLo, PWordHi : Pointer;
begin
Result := 0;
if assigned (FileStream) then
begin
FileStream.Seek(OffSet-1,soFromBeginning);
new (PWord);
try
PWordHi := PWord;
PWordLo := PWord;
inc (Integer(PWordHi));
FileStream.Read(PWordHi^,1);
FileStream.Read(PWordLo^,1);
Result := PWord^;
finally
Dispose (PWord);
end;
end;
end;
function TrmBase.GetByte(const Offset: Integer): Byte;
var PByte : ^Byte;
begin
Result := 0;
if assigned (FileStream) then
begin
FileStream.Seek(OffSet-1,soFromBeginning);
new (PByte);
try
FileStream.Read(PByte^,1);
Result := PByte^;
finally
Dispose (PByte);
end;
end;
end;
GetByte y GetWord, si me ayudaran a pasarlo a C# o Java se los agradeceria,
Adjunto el archivo de proyecto exactamente la clase rmClass ...
esto es un programa que convierte o interpreta archivos DAT de rmcobol 85 que por ningun lado lo he podido conseguir, esto es la unica alternativa que he encontrado. la informacion mas reciente de cobol es del 2003, y nadie que conosca ha manejado eso. menos mal encontre este programita que lo lee, pero hecho en delphi y he probado convertidores y he tratado de que funcione pero sin ningun exito.
se los agradesco que me puedan ayudar con esto porque no se que mas hacer :nervios: