[sk0r]

Bitte löschen

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:

markieren

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:

markieren

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.

Hmm, ist wohl nicht die richtige Vokabel.^^