VB Funktions Übersetzung in Delphi

**Back2Code**

Hi DP,

ich bräuchte mal Hilfe bei einer VB Funktion die richtig nach Delphi zu übersetzen. Ich bin schon nen Stück vorangekommen aber leider nicht komplett.

markieren

Code:

			    Private Sub BumpExe(ByVal sPfad As String)

        Dim fs As FileStream = File.Open(sPfad, FileMode.Open, FileAccess.ReadWrite, FileShare.ReadWrite)

        Dim bw As New BinaryWriter(fs)

        fs.Position = fs.Length + 1

        For i = 1 To 1024

            bw.Write(Chr(0))

        Next

        bw.Close()

        fs.Close()

    End Sub

Bisher sieht die Delphi Prozedur so aus:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure BumpExe(sPfad: string);

var i: integer;

    buffer : TBytes;

begin

  FileStream := (TFileStream.Create(sPfad, fmOpenRead+fmShareDenyNone));

  // ??

  for i := 1 to 1024 do 

  begin

    FileStream.WriteBuffer(Chr, 0); //??

  end;

  FileStream.Free;

end;

Würde jetzt gerne mal wissen, was noch genau fehlt bzw bei mir falsch ist. Danke

VB Funktions Übersetzung in Delphi

VB Funktions Übersetzung in Delphi

Forumregeln