Dateien austauschen

[Moonlight]

Also ich habe mein Problem gelöst :

Code:

var
  i: Integer;
  datei: file of Byte;
  myDatei: array of Byte;
begin

  SetLength(myDatei, Length(dateiInhalt) + 1);
  for i := 0 to Length(dateiInhalt) do
    myDatei[i] := Ord(dateiInhalt[i]);

  Assign(datei, cROOTPATH + dateiName);
{$I-}
  Rewrite(datei); // Zum schreiben öffnen, falls vorhanden wird Inhalt gelöscht
{$I+}
  if IOResult <> 0 then
  begin
  // Fehler beim öffnen abfangen
    MessageDlg('Fehler beim öffnen der Datei!', mtError, [mbOk], 0);
  end;
  for i := 1 to High(myDatei) do
  begin
    Write(datei, myDatei[i]);
  end;
  Close(datei);
end;

Viele Grüße
Moonlight