Thema: Delphi Dateien als Hex laden

Einzelnen Beitrag anzeigen

mr_emre_d
(Gast)

n/a Beiträge
 
#4

Re: Dateien als Hex laden

  Alt 9. Dez 2008, 11:48
hast du dir schon die grundlagen angeschaut ? falls ja, und du trotzdem nicht weiterkommst
hier (pseudo code)... zum copy/pasten

Code:
type
  TByteArr = Array of Byte;

...

function ReadIn( Filename: String ): TByteArr;
begin
  if fileexists(filename) then
  begin
    try
      AssignFile( F, Dateiname );
      Reset( F );
      SetLength( Buf, FileSize(F) );
      BlockRead( F, Result, FileSize(F) ); // evt. Result[0] ...
    finally
      CloseFile(F);
    end;
  end else
    ShowMessage( 'Datei existiert nicht' );
end;
  Mit Zitat antworten Zitat