File2Code v1

[Neutral General]

Hi,

Also ich finds ehrlichgesagt ein bisschen sinnlos... Aber naja.

Ansonsten ist deine Delphi Funktion zum zusammenbauen der Datei nicht gerade die performanteste

Von AssignFile etc hab ich jetzt nicht so viel Ahnung. Aber ich schätze man kann es auch so machen:

Delphi-Quellcode:

procedure CreateFileByte0(const fileName: String);
var
  hFile: File;
  g: Cardinal;
begin
  AssignFile(hFile, filename);
  ReWrite(hFile, 1);
  BlockWrite(hFile, aFileByteArray0[0], SizeOf(aFileByteArray0));
  CloseFile(hFile);
end;

oder eben auch so:

Delphi-Quellcode:

procedure CreateFileByte0(const fileName: String);
var fs: TFileStream;
begin
  fs := TFileStream.Create(filename,fmOpenWrite);
  try
    fs.Write(aFileByteArray0[0], SizeOf(aFileByteArray0));
  finally  
    fs.Free;
  end;
end;

PS: Bei dieser Meldung:

Zitat:

---------------------------
Success
---------------------------
All files have been converted successfully
---------------------------
OK
---------------------------

hab ich erstmal einen riesen Schreck bekommen: "??? Was hat der mit meiner Datei gemacht? Was, wie konvertiert??!!"
Kam vielleicht aber auch davon,das ich mir anfangs nicht verstanden habe wofür das Programm gut ist.